Example_26_April.R

In nhavt/Block3AugDesigns:

# Examples
rm(list = ls())
setwd(
  "D:/user/vthanh/Google Drive/Project Stuttgart/R_programing/UpdateFormular/Block3AugDesigns/"
)
#Sys.setenv(JAVA_HOME='C:\\Program Files\\Java\\jre1.8.0_121')
library(devtools)
library(roxygen2)
library(MASS)
library(Matrix)
devtools::load_all()

data    <- split(read.table("Designs/Example_with_2_blocks.txt"), gl(1, 10))
nTreatments <- 93
nRows   <- 10
nCols   <- 11
repli   <- -1
nChecks <- 5
pDesign <- data$`1`
aSIIopt <- aRCDesign(pDesign, nTreatments, nRows, nCols, repli,nChecks,0)
cat("\f")
print(aSIIopt)