Create makevector.R