R/computSizesTrimowa.R

Defines functions computSizesTrimowa

Documented in computSizesTrimowa

computSizesTrimowa <- function(dataTrim, bust, bustMeasur, nsizes, w, numClust, alpha, niter, algSteps, ah, verbose = FALSE){
 res_trimowa <- list() ; class(res_trimowa) <- "trimowa"
 for (i in 1 : nsizes){
  data = dataTrim[(bust >= bustMeasur[i]) &
                  (bust < bustMeasur[i + 1]), ]
  res_trimowa[[i]] <- trimowa(data, w, numClust, alpha, 
                              niter, algSteps, ah, verbose = FALSE)
 }

  return(res_trimowa)
} 

Try the Anthropometry package in your browser

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

Anthropometry documentation built on Dec. 11, 2021, 9:08 a.m.