local.Tmat <- ref.srctodest.add ("ref1","ref2",
TM = matrix(c (0.5, -sin (pi / 3), 0, 0,
sin (pi / 3), 0.5, 0, 0,
0, 0, 1, 0, 0, 0, 0, 1),
ncol = 4))
str (local.Tmat)
Run the code above in your browser using DataLab