# Check changes of coordinates
sph_to_angles(angles_to_sph(c(pi / 2, 0, pi)))
sph_to_angles(angles_to_sph(rbind(c(pi / 2, 0, pi), c(pi, pi / 2, 0))))
angles_to_sph(sph_to_angles(c(0, sqrt(0.5), sqrt(0.1), sqrt(0.4))))
angles_to_sph(sph_to_angles(rbind(c(0, sqrt(0.5), sqrt(0.1), sqrt(0.4)),
c(0, sqrt(0.5), sqrt(0.5), 0),
c(0, 1, 0, 0),
c(0, 0, 0, -1),
c(0, 0, 1, 0))))
Run the code above in your browser using DataLab