Displaying 1 result from an estimated 1 matches for "dieffe2".
Did you mean:
dieffe
2004 Oct 26
1
indexing within the function "aggregate"
...gone even further with
library(lattice);library(grid)
bwplot(VIAL~
PPM|SEQUENCE*STD,
data=My.df,
panel= function(x,y){
panel.bwplot(x,y)
dieffe <- anova(lm(x~y))$Df[1]
enne <- dieffe+1
esse <- sqrt(anova(lm(x~y))$Mean[1])
dieffe2 <- anova(lm(x~y))$Df[2]
enne2 <- dieffe2+1
esse2 <- sqrt(anova(lm(x~y))$Mean[2])
tistud <- qt(.975,df=dieffe)*esse/sqrt(enne)
tistud2 <- qt(.975,df=dieffe2)*esse2/sqrt(enne2)
esse.quad.inj <- anova(lm(x~y))$Mean[2]
esse.quad.vi...