# NOT RUN {
rotation_45 = double.rotation(data.1, data.2, land.a, land.b, land.c, land.d,
land.e, land.f, land.g, land.h, 45)
rotation_45_t <- join.arrays(rotation_45$rotated1,
translate(rotation_45$rotated2, land.e , skull_translate))
plot_rotation_3D(rotation_45_t, data.1, data.2, specimen.num = 1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab