R/centroid_location.R

In kmiddleton/MuscleTernary: Plot Muscle Resultants in Ternary Space

#' Calculate centroid location
#'
#' @param fname String: Path to stl file
#'
#' @return Numeric vector of centroid location
#' @export
#'
centroid_location <- function(fname) {
  st <- read_stl(fname)
  centroid <- colMeans(st)
  return(centroid)
}