# shapes3dShapes: 3D shapes plot In Anthropometry: Statistical Methods for Anthropometric Data

## Description

This function is a slight modification of the original `shapes3d` function of the shapes R package so that the resulting plot has customized title and axes. Specifically, the changing lines regarding the original function are those related to its argument axes3 when it is fixed to TRUE.

## Usage

 ```1 2``` ```shapes3dShapes(x,loop=0,type="p",color=2,joinline=c(1:1), axes3=FALSE,rglopen=TRUE,main=main) ```

## Arguments

 `x` See `shapes3d`. `loop` See `shapes3d`. `type` See `shapes3d`. `color` See `shapes3d`. `joinline` See `shapes3d`. `axes3` See `shapes3d`. `rglopen` See `shapes3d`. `main` Allows us to give the plot a title if axes3=TRUE.

## Value

A device with the desired plot.

## References

Dryden, I. L., (2012). shapes package. R Foundation for Statistical Computing, Vienna, Austria. Contributed package.

Dryden, I. L., and Mardia, K. V., (1998). Statistical Shape Analysis, Wiley, Chichester.

`shapes3d`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21``` ```landmarksNoNa <- na.exclude(landmarksSampleSpaSurv) dim(landmarksNoNa) #[1] 574 198 numLandmarks <- (dim(landmarksNoNa)[2]) / 3 #[1] 66 #As a toy example, only the first 10 individuals are used. landmarksNoNa_First10 <- landmarksNoNa[1:10, ] (numIndiv <- dim(landmarksNoNa_First10)[1]) #[1] 10 array3D <- array3Dlandm(numLandmarks, numIndiv, landmarksNoNa_First10) #shapes::plotshapes(array3D[,,1]) #calibrate::textxy(array3D[,1,1], array3D[,2,1], labs = 1:numLandmarks, cex = 0.7) numClust <- 2 ; algSteps <- 1 ; niter <- 1 ; stopCr <- 0.0001 resLL <- LloydShapes(array3D, numClust, algSteps, niter, stopCr, FALSE, FALSE) prototypes <- anthrCases(resLL) shapes3dShapes(prototypes[,,1], loop = 0, type = "p", color = 2, joinline = c(1:1), axes3 = TRUE, rglopen = TRUE, main = "Mean shape cluster 1") ```