R/sspplot.R

In linkinjy/rmaeng2.doe:

ssp.plot <-function(block, pplot, splot, ssplot, Y){
  name.y <- paste(deparse(substitute(Y)))
  name.r <- paste(deparse(substitute(block)))
  name.p <- paste(deparse(substitute(pplot)))
  name.sp <- paste(deparse(substitute(splot)))
  name.ssp <- paste(deparse(substitute(ssplot)))
  block<-as.factor(block)
  pplot<-as.factor(pplot)
  splot<-as.factor(splot)
  ssplot<-as.factor(ssplot)
  cat("\nANALYSIS SPLIT-SPLIT PLOT: ", name.y, "\nClass level information\n\n")
  nrep <- length(unique(block))
  np  <- length(unique(pplot))
  nsp <- length(unique(splot))
  nssp<- length(unique(ssplot))
  cat(name.p,  "\t: ",unique(as.character(pplot)),"\n")
  cat(name.sp, "\t: ",unique(as.character(splot)),"\n")
  cat(name.ssp,"\t: ",unique(as.character(ssplot)),"\n")
  cat(name.r,  "\t: ",unique(as.character(block)),"\n")
  cat("\nNumber of observations: ", length(Y), "\n\n")

  model<- aov(Y ~ block*pplot*splot*ssplot)
  B<-suppressWarnings(anova(model))
  W<-NULL
  W<-B[c(1,2,16,3,7,16,4,9,10,14,16),]
  for (j in 1:2){
    W[3,j]<-B[5,j]
    W[6,j]<-B[6,j]+B[11,j]
    W[11,j]<-B[8,j]+B[12,j]+B[13,j]+B[15,j]
  }
  W[,3]<-W[,2]/W[,1]
  W[1:2,4]<-W[1:2,3]/W[3,3]
  W[4:5,4]<-W[4:5,3]/W[6,3]
  W[7:10,4]<-W[7:10,3]/W[11,3]
  # Pvalue
  W[1:2,5]<-1-pf(W[1:2,4],W[1:2,1],W[3,1])
  W[4:5,5]<-1-pf(W[4:5,4],W[4:5,1],W[6,1])
  W[7:10,5]<-1-pf(W[7:10,4],W[7:10,1],W[11,1])
  #W[,5]<-round(W[,5],4)
  N<-NULL
  N[1]<- name.r
  N[2]<- name.p
  N[3]<- "Ea"
  N[4]<- name.sp
  N[5]<- paste(name.p,":",name.sp,sep="")
  N[6]<- "Eb"
  N[7]<- name.ssp
  N[8]<- paste(name.ssp,":",name.p,sep="")
  N[9]<- paste(name.ssp,":",name.sp,sep="")
  N[10]<-paste(name.ssp,":",name.p,":",name.sp,sep="")
  N[11]<- "Ec"
  rownames(W)<-N
  attributes(W)$heading[2]<-paste("Response:",name.y)
  print(W)
}