R/projShapes.R

Defines functions projShapes

Documented in projShapes

projShapes <- function(clust, array3D, asig, prototypes){
  out_proc <- c()
  x <- array3D[, , asig == clust]
  
  if (length(dim(x)) != 3) {
    return(cat("Please ensure that array3D has 3 dimensions."))
  }else{
    out_proc <- shapes::procGPA(x, distances = TRUE, pcaoutput = TRUE)
    shapes::plotshapes(out_proc$rotated)
    points(prototypes[, , clust], col = 2) 
  }
}

Try the Anthropometry package in your browser

Any scripts or data that you put into this service are public.

Anthropometry documentation built on Jan. 14, 2023, 1:16 a.m.