helicopter data frame has 9 rows and 6 columns.
Experimental design for studying the influences of the factors wing length and wing width on a paper helicopter's flight time. The goal is to find the factor setting that maximizes flight time when the paper helicopter is dropped from a fixed height of 15.5 feet
A data frame with 9 observations on the following 6 variables:
wing length in inches;
wing width in inches;
base length (always set to 3in);
base height (always set to 2in);
flight time in seconds.
The data were obtained from
Annis, D. H. (2006) Rethinking the paper helicopter: Combining statistical and engineering knowledge. The American Statistician, 59, 320–326.
Box, G. E. P. (1992) Teaching engineers experimental design with a paper helicopter. Quality Engineering, 4, 453–459.
1 2 3 4 5 6 7 8 9 10 11 12 13
data(helicopter) ## ## fit model (5) of Annis (2005) ## ----------------------------- heli <- helicopter ## heli$LW <- heli$L * heli$W heli$S <- heli$B * heli$H + ( 2 * heli$L + 1 ) * heli$W heli$logTime <- log( heli$Time ) heli$Y <- heli$logTime + log( heli$S ) / 2 # heli.nlreg <- nlreg( Y ~ b0 + b1 * log( b2^2 / LW + LW ), data = heli, start = c( b0 = 6, b1 = -1, b2 = 20 ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.