tests/testthat/examples_fcn_doc/examples_create_design.R

library(PopED)
source("create_design.R")

xt1 <- list(c(1,2,3),c(1,2,3,4))
xt4 <- list(c(1,2,3,4,5),c(1,2,3,4))
xt2 <- rbind(c(1,2,3,4),c(1,2,3,4))
xt3 <- c(1,2,3,4)

create_design(xt=xt1,groupsize=20)
create_design(xt=xt4,groupsize=20)
create_design(xt=xt2,groupsize=20)
create_design(xt=xt3,groupsize=20)

create_design(xt=xt3,groupsize=20,m=3)
create_design(xt=xt1,groupsize=20,m=3) # should give an error

create_design(xt=xt1,groupsize=20,model_switch=ones(2,4))

create_design(xt=xt1,groupsize=20,a=c(2,3,4))
create_design(xt=xt1,groupsize=20,a=rbind(c(2,3,4),c(4,5,6)))
create_design(xt=xt1,groupsize=20,a=list(c(2,3,4,6),c(4,5,6)))
create_design(xt=xt1,groupsize=20,a=list(c(2,3,4),c(4,5,6)))

create_design(xt=c(0,1,2,4,6,8,24),
              groupsize=50,
              a=c(WT=70,DOSE=1000))

create_design(xt=c(0,1,2,4,6,8,24),
              groupsize=50,
              a=c(WT=70,DOSE=1000),m=2)

create_design(xt=c(0,1,2,4,6,8,24),
              groupsize=50,
              a=list(c(WT=70,DOSE=1000),c(DOSE=90,WT=200,AGE=45)),m=2)

create_design(xt=c(0,1,2,4,6,8,24),
              groupsize=50,
              a=list(c(WT=70,DOSE=1000),c(DOSE=90,WT=200,AGE=45)),m=2)

create_design(xt=c(0,1,2,4,6,8,24),
              groupsize=50,
              a=list(list(WT=70,DOSE=1000),list(DOSE=90,WT=200,AGE=45)),m=2)
andrewhooker/MBAOD documentation built on June 3, 2017, 5:12 p.m.