adding makevector.R