# Adding of the reference frame "ref1_60", which is a 60 degree rotation of
# reference frame "ref1".
orientation <- c (cos (pi / 3), sin (pi / 3), 0,
-sin (pi / 3), cos (pi / 3), 0)
local.Tmat <- ref.add (src.ref = "ref1", orientation = orientation,
new.ref.pseudo = "ref1_60")
str(local.Tmat)
# Removal of "ref1_60"
local.Tmat <- ref.remove (ref.name = "ref1_60", T.MAT = local.Tmat)
str(local.Tmat)
Run the code above in your browser using DataLab