## Load all functions and libraries from file "CodeSimulationsBmc.r"




###############################################
# Table 2 - Example: Comparison of sample size formulas


approx = c("nv_uni", "nv_slope", "nv_ewb", "nv_max")
cvec = c(23, 46, 92)
bvec = c(6, 8, 16)

## Tabelle sample size
parms = expand.grid(approx=approx, c=cvec, b=bvec)
parms$id = 1:length(parms$b)

sigma = 4
sigma.c = sigma
mu = 1
alpha = 0.05
beta = 0.2
balloc = 1

for (i in 1:length(parms$b)){
  parms$n[i] = samsi(approx=parms$approx[i], alpha=alpha, beta=beta, mu=mu, sigma=sigma, 
                     sigma.c=sigma.c, c=parms$c[i], b=parms$b[i], df_b=, balloc=balloc)
}


write.csv(parms, file="Table2.csv")