Nothing
#' calculate Centroid Size for a landmark configuration
#'
#' calculate Centroid Size for a landmark configuration
#'
#'
#' @param x k x 3 matrix containing landmark coordinates or mesh of class "mesh3d"
#' @return returns Centroid size
#'
#' @examples
#'
#' data(boneData)
#' cSize(boneLM[,,1])
#'
#' @export
cSize <- function(x){
if(inherits(x,"mesh3d"))
x <- vert2points(x)
X <- scale(x, scale = FALSE)
y <- sqrt(sum(as.vector(X)^2))
return(y)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.