binary_vector_gen function

Make a binary vector with all values equal to zero except for one