R/latin.R

latin<-function(a,b,c,d,i,j){
  mydata <- data.frame(a,b,c,d)
  print(matrix(mydata$c, i,j))
  print(matrix(mydata$d, i,j))
  anova(lm(d~ a+b+c, mydata))
}
linkinjy/rmaeng2.doe documentation built on May 23, 2019, 4:02 a.m.