Displaying 1 result from an estimated 1 matches for "dieff".
Did you mean:
diff
2004 Oct 26
1
indexing within the function "aggregate"
...UENCE, STD=My.df$STD),
function(x){mean(x, na.rm=T)})
Up to now, nothing new to me, I can manage it, I've 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)
ti...