Create new column vector in r