The following function calculates the mean of the special vector
makeVector.R

The first function, makeVector creates a special vector