torque.optimization.2: Torque optimization 2

Description Usage Format Source References See Also Examples

Description

An experiment to stabilize frame torque of a car seat track. (Chapter 7, Table 7.10)

Usage

1

Format

A data frame with 9 rows and 4 variables:

AB

treatment combinations - 9 levels

MEAN

mean torque at level AB

VAR

variance of torque at level AB

LNV

log of variance of torque at level AB

Source

http://www.wright.edu/~dan.voss/bookdata/data.html

References

Dean, A. and Voss, D. (1999). Design and Analysis of Experiments. New York, Springer.

See Also

torque.optimization.1

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
# deriving torque.optimization.2 from torque.optimization.1
mslns <- function(x){
c(round(mean(x),2),
  round(var(x),2),
  round(log(var(x)),3)
 )
}
g <- with(torque.optimization.1, split(Y, list(B,A)))
t2 <- as.data.frame(do.call(rbind, lapply(g, mslns)))
names(t2) <- c("MEAN","VAR","LNV")
t2$AB <- unique(with(torque.optimization.1,
                interaction(A,B,sep="",lex.order = TRUE)))
rownames(t2) <- NULL
t2 <- t2[,c(4,1:3)]
all.equal(t2, torque.optimization.2, tolerance = 1.5e-3)

clayford/dvdata documentation built on May 13, 2019, 7:38 p.m.