Anthropometry: computSizesTrimowa – R documentation

Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!

computSizesTrimowa

Computation of the trimowa elements for a given number of sizes defined by the EN

Description

This is a helper function for computing the trimowa elements provided by the trimowa algorithm for a number of bust sizes defined by the European Normative (EN). Therefore, the trimowa is used inside this function. The number of sizes must be bigger than one. For a single size use directly trimowa.

Usage

computSizesTrimowa(dataTrim, bust, bustMeasur, nsizes, w, numClust, alpha, 
                   niter, algSteps, ah, verbose = FALSE)

Arguments

`dataTrim`	Data frame.
`bust`	Bust column of the data frame.
`bustMeasur`	Sequence vector of bust measurements (bust sizes) provided by the `bustSizesStandard` function.
`nsizes`	Number of sizes defined by the European Normative to apply the `trimowa` function.
`w, numClust, alpha, niter, algSteps, ah, verbose`	Same arguments as those of the `trimowa` function.

Value

A list with the same elements as the trimowa function.

Author(s)

Guillermo Vinue

References

European Committee for Standardization. Size designation of clothes. Part 3: Measurements and intervals. (2005).

Ibanez, M. V., Vinue, G., Alemany, S., Simo, A., Epifanio, I., Domingo, J., and Ayala, G., (2012). Apparel sizing using trimmed PAM and OWA operators, Expert Systems with Applications 39, 10512–10520.

Examples

dataTrimowa <- sampleSpanishSurvey
numVar <- dim(dataTrimowa)[2]
bust <- dataTrimowa$bust
bustSizes <- bustSizesStandard(seq(74, 102, 4), seq(107, 131, 6))

orness <- 0.7
weightsTrimowa <- weightsMixtureUB(orness, numVar)

numClust <- 3 ; alpha <- 0.01 ; niter <- 10 ; algSteps <- 7
ah <- c(23, 28, 20, 25, 25)

#For reproducing results, seed for randomness:
#suppressWarnings(RNGversion("3.5.0"))
#set.seed(2014)
numSizes <- 2
res_trimowa <- computSizesTrimowa(dataTrimowa, bust, bustSizes$bustCirc, numSizes,
                                  weightsTrimowa, numClust, alpha, niter,
                                  algSteps, ah, verbose = FALSE)

Anthropometry

Statistical Methods for Anthropometric Data

v1.15

GPL (>= 2)

Authors

Guillermo Vinue, Irene Epifanio, Amelia Simo, M. Victoria Ibanez, Juan Domingo, Guillermo Ayala

Initial release

2021-04-18