computSizesTrimowa: Computation of the trimowa elements for a given number of...

In Anthropometry: Statistical Methods for Anthropometric Data

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.

See Also

trimowa, bustSizesStandard

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 documentation built on March 7, 2023, 6:58 p.m.