Create catchematrix.R