Description Usage Format Source References See Also Examples
An experiment to stabilize frame torque of a car seat track. (Chapter 7, Table 7.10)
1 |
A data frame with 9 rows and 4 variables:
treatment combinations - 9 levels
mean torque at level AB
variance of torque at level AB
log of variance of torque at level AB
http://www.wright.edu/~dan.voss/bookdata/data.html
Dean, A. and Voss, D. (1999). Design and Analysis of Experiments. New York, Springer.
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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.