Displaying 1 result from an estimated 1 matches for "list_param".
Did you mean:
first_param
2007 Aug 09
1
Help on R performance using aov function
...(under Unix) takes about 2or 3
times more than SAS software. So it?s 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,...