Create makeVector.R