revert to R code to generate rotations