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

Description

This is a helper function for computing the hipamAnthropom elements provided by the hipamAnthropom algorithm for a number of bust sizes defined by the European Normative (EN). Therefore, the hipamAnthropom is used inside this function.

Usage

computSizesHipamAnthropom(dataHip, bust, bustMeasur, nsizes, maxsplit, orness, 
                          type, ah, verbose = FALSE)

Arguments

Value

A list with the same elements as the hipamAnthropom function.

Author(s)

Guillermo Vinue

References

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

Vinue, G., Leon, T., Alemany, S., and Ayala, G., (2013). Looking for representative fit models for apparel sizing, Decision Support Systems 57, 22–33.

See Also

hipamAnthropom, bustSizesStandard

Examples

dataHipam <- sampleSpanishSurvey
bust <- dataHipam$bust
bustSizes <- bustSizesStandard(seq(74, 102, 4), seq(107, 131, 6))

type <- "IMO"
maxsplit <- 5 ; orness <- 0.7
ah <- c(23, 28, 20, 25, 25)

set.seed(2013)
numSizes <- 1
res_hipam <- computSizesHipamAnthropom(dataHipam, bust, bustSizes$bustCirc, numSizes,
                                       maxsplit, orness, type, ah, FALSE)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Anthropometry)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Anthropometry/computSizesHipamAnthropom.Rd_%03d_medium.png", width=480, height=480)
> ### Name: computSizesHipamAnthropom
> ### Title: Computation of the hipamAnthropom elements for a given number of
> ###   sizes defined by the EN
> ### Aliases: computSizesHipamAnthropom
> ### Keywords: math
> 
> ### ** Examples
> 
> dataHipam <- sampleSpanishSurvey
> bust <- dataHipam$bust
> bustSizes <- bustSizesStandard(seq(74, 102, 4), seq(107, 131, 6))
> 
> type <- "IMO"
> maxsplit <- 5 ; orness <- 0.7
> ah <- c(23, 28, 20, 25, 25)
> 
> set.seed(2013)
> numSizes <- 1
> res_hipam <- computSizesHipamAnthropom(dataHipam, bust, bustSizes$bustCirc, numSizes,
+                                        maxsplit, orness, type, ah, FALSE)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>