# 1 functional input
s.d <- createSafiDesign(d.f = 1)
s.d2 <- splitSafiDesign(s.d = s.d, new.split.points = list(c(0.25, 0.75)))
accessSafiDesign(s.d2, n.timepoints = 20)
# 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)))
accessSafiDesign(s.d = s.d2, n.timepoints = c(2, 4, 10))
Run the code above in your browser using DataLab