# 1 functional input
s.d <- createSafiDesign(d.f = 1)
plot(s.d)
# 3 functional inputs
s.d <- createSafiDesign(d.f = 3)
s.d2 <- splitSafiDesign(s.d = s.d, new.split.points = list(c(0.5), c(0.25, 0.75),
c(0.25, 0.5, 0.75)))
plot(s.d2)
plot(s.d2, runs = 1:2) # only first two runs
Run the code above in your browser using DataLab