rot <- matrix(c(0.847101, -0.480873, -0.226234, 0.489074, 0.538865,
0.685880, -0.207912, -0.691655, 0.691655),3,3,byrow=TRUE)
rotangle(rot) #> 0.785398 0.209440 -0.523599
rotangle(rot)/pi*180 #> degrees: 45 12 -30
Run the code above in your browser using DataLab