| 365 |
rgentlem |
1 |
stackloss <- data.frame(
|
|
|
2 |
"Air Flow" = c(80,80,75,62,62,62,62,62,58,58,58,58,58,58,50,50,50,50,50,56,70),
|
|
|
3 |
"Water Temp"= c(27,27,25,24,22,23,24,24,23,18,18,17,18,19,18,18,19,19,20,20,20),
|
|
|
4 |
"Acid Conc."= c(89,88,90,87,87,87,93,93,87,80,89,88,82,93,89,86,72,79,80,82,91),
|
| 1383 |
maechler |
5 |
stack.loss = c(42,37,37,28,18,18,19,20,15,14,14,13,11,12, 8, 7, 8, 8, 9,15,15)
|
| 365 |
rgentlem |
6 |
)
|
|
|
7 |
##- These are for S compatibility:
|
|
|
8 |
stack.loss <- stackloss[["stack.loss"]]
|
| 40307 |
ripley |
9 |
stack.x <- as.matrix(stackloss[-4])
|