Displaying 1 result from an estimated 1 matches for "clovattr".
2003 May 21
1
Code Help
...~ C(clover$Line,Cline),data=clover,family=gaussian),
Beta <- summary(model.i)$coefficients
new.order <- order(Beta[-1,1]) + 1
Obeta <- Beta[c(1,new.order),]
detect.diff <- quantile(Obeta,probs=seq(0.2,0.8,0.2))
std.dev <- (min(Obeta[-1,2]) + max(Obeta[-1,2]))/2*sqrt(5)
sink("ClovAttr.txt")
print(paste("_____________",vnames[(i+2)],"_____________"))
cat("__________ mean table _______ \n")
print(mn.tab[om])
cat("__________ s.d. table _______ \n")
print(sd.tab[om])
print(model.i$family)
print(Obeta)
print(detect.diff)
cat("________...