plot_rotation_3D: plot_rotation_3D

In ShapeRotator: Standardised Rigid Rotations of Articulated Three-Dimensional Structures

Description

Plots the two rotated datasets in 3D

Usage

plot_rotation_3D(joined.data, data.1, data.2, specimen.num)

Arguments

joined.data	an object of the class "array" that contains the joined rotated arrays (data.1three-dimensional landmarks for structure #1 (e.g. skull). It can either be the original dataset, the translated array, or the rotated array
data.1	an object of the class "array" that contains three-dimensional landmarks for structure #1 (e.g. skull). It can either be the original dataset, the translated array, or the rotated array
data.2	an object of the class "array" that contains three-dimensional landmarks for structure #2 (e.g. mandible). It can either be the original dataset, the translated array, or the rotated array
specimen.num	an integer object that indicates which specimen will be plotted. The number of the specimen to be plotted corresponds to the position in the "joined.data" array

Details

Plots the two rotated datasets in 3D for a specimen (specimen.num), and each structure is plotted with a different colour. Default is black and red. This uses the function scatter3D from the R package plot3D (https://cran.r-project.org/web/packages/plot3D/) internally.

Value

This function returns a 3D plot of the rotated structures (e.g. mandible and skull).

Author(s)

Marta Vidal-Garcia

References

M. Vidal-García, L. Bandara and J.S. Keogh. 2018. ShapeRotator: An R tool for standardized rigid rotations of articulated three-dimensional structures with application for geometric morphometrics. Ecology and Evolution. DOI: 10.1002/ece3.4018

Examples

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)

ShapeRotator documentation built on July 1, 2020, 5:41 p.m.