standard deviation in r stack overflow – Pinocchio