# two inputs
s.d <- createSafiDesign(d.f = 2)
s.d
s.d2 <- splitSafiDesign(s.d = s.d, new.split.points = list(c(0.5), c(0.25, 0.75)))
s.d2
# including mirrored runs
s.d <- createSafiDesign(d.f = 2, mirrored.runs.included = TRUE)
s.d
s.d2 <- splitSafiDesign(s.d, list(c(0.5), c(0.25, 0.75)))
s.d2
Run the code above in your browser using DataLab