Displaying 2 results from an estimated 2 matches for "anova_".
Did you mean:
anova
2007 Aug 09
1
Help on R performance using aov function
...a great problem of performance for me.
Here is an extract of the calculation:
stoutput<-file("res_oneWayAnova.dat","w");
cat("Param|F|Prob",file=stoutput,"\n");
for (i in 1:n) {
p<-list_param[[i]]
aov_<-aov(A[,p]~ A[,"wafer"],data=A);
anova_<-summary(aov_);
if (!is.na(anova_[[1]][1,5]) & anova_[[1]][1,5]<=0.0001)
res_aov<-cbind(p,anova_[[1]][1,4],"<0.0001") else
res_aov<-cbind(p,anova_[[1]][1,4],anova_[[1]][1,5]);
cat(res_aov, file=stoutput, append = TRUE,sep = "|","\n");
};
close(st...
2011 Sep 12
1
nested anova<-R chrashing
...ize", "position" (of clutch on twig) and "clone"
(/plant genotype) on the survival of eggs (due to predation). Each plant
was provided with three different sizes of clutches (45,15,5) and had
pseudo-replications of size 15 and 5 on it.
_Question 1: right code for nested Anova_
Here part of the code I used:
clone1<-as.factor(ifelse(clone=="Gudrun",1,ifelse(clone=="Loden",2,ifelse(clone=="021",3,4))))
plant1<-as.factor(ifelse(plant==1,1,ifelse(plant==2,2,ifelse(plant==3,3,ifelse(plant==4,4,ifelse(plant==5,5,ifelse(plant==6,6,
ifelse(...