search for: block4

...ment8 0.80747 0.85639 0.943 0.346863 treatment9 0.10081 0.54320 0.186 0.852954 treatment10 0.43933 0.53421 0.822 0.411823 block2 -1.87242 0.66448 -2.818 0.005312 ** block3 0.10927 0.22670 0.482 0.630328 block4 -1.45648 3.71684 -0.392 0.695574 block5 0.25447 0.22033 1.155 0.249475 block6 -0.32177 0.22269 -1.445 0.150021 treatment1:block2 -0.38808 0.26398 -1.470 0.143073 treatment2:block2 -16.54735 6.85505 -2.414 0.016671 * t...

...--------------------------------- #changed the V1 column ?set.seed(24) lst4<- lapply(lst3,function(x) {x$V1<- sample(c(0,3,6),nrow(x),replace=TRUE);x}) #I am skipping the first 2, ie. 'id' and 'iat.date' as the filenames were not provided. res<-t(sapply(lst4,function(x) {block4<-x[with(x,V1==3 & V6>300 & V6<3000),"V6"];block7<- x[with(x,V1==6 & V6>300 & V6<3000),"V6"];block4.m<- mean(block4);block7.m<- mean(block7);block4.sd<-sd(block4);block7.sd<- sd(block7);full<- x[with(x,(V1==3|V1==6) & (V6 &...

...ify - block0 block1 or server sdb1 sdb2 xen0 brick0 mirror3 xen1 brick1 mirror0 xen2 brick2 mirror1 xen3 brick3 mirror2 replicate block0 - brick0 mirror0 replicate block1 - brick1 mirror1 replicate block2 - brick2 mirror2 replicate block3 - brick3 mirror3 distribute unify - block 1 block2 block3 block4 ><> Nathan Stratton CTO, BlinkMind, Inc. nathan at robotics.net nathan at blinkmind.com http://www.robotics.net http://www.blinkmind.com

...0.168648 P:K 1 0.48 0.48 0.0312 0.862752 Residuals 12 185.29 15.44 --- Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 > coefficients(npk.aov) (Intercept) block2 block3 block4 block5 block6 51.8250000 3.4250000 6.7500000 -3.9000000 -3.5000000 2.3250000 N1 P1 K1 N1:P1 N1:K1 P1:K1 9.8500000 0.4166667 -1.9166667 -3.7666667 -4.7000000 0.5666667 The output for the ANOVA table is exactly the same as in...

Dear Madame, Dear Sir, I am able to obtain the coefficients from a 'summary' of 'lm', but NOT from a 'summary' of 'aov'. The following example shows my steps. ## Initialize rm(list = ls()) # remove (almost) everything in the working environment utils::data(npk, package="MASS") # get data model <- yield ~ block + N*P*K ## Using lm npk.lm <-