Cross Product answer isn't correct?

Question

I\'m having an issue with doing a function that takes 2 inputs: R (unit vector) and v (vector) and outputs a list of 3 vectors {vr,vp,vc}

vr = (v.R)R