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.

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.

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

Run this code

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)

set.seed(2014)
numSizes <- 1
res_trimowa <- computSizesTrimowa(dataTrimowa, bust, bustSizes$bustCirc, numSizes,
                                  weightsTrimowa, numClust, alpha, niter,
                                  algSteps, ah, verbose = FALSE)