The R Project SVN R

Rev

Rev 365 | Rev 30412 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 365 Rev 1383
Line 1... Line 1...
1 
stackloss <- data.frame(
 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),
 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),
 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),
 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),
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),
 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)
6 
 as.is=TRUE
 - 
 
7 
)
 6 
)
8 
##- These are for S compatibility:
 7 
##- These are for S compatibility:
9 
stack.loss <- stackloss[["stack.loss"]]
 8 
stack.loss <- stackloss[["stack.loss"]]
10 
stack.x    <- as.matrix(stackloss[,-4])
 9 
stack.x    <- as.matrix(stackloss[,-4])