# \donttest{
get_oc_Switch(alpha = 0.05, pro_ctr = c(0.58,0.05,0.17,0.03,0.04,0.13),
U = c(100,80,65,25,10,0), n_range = 10, fixed_es = c(1.5,1.5,1,1,1),
n_po = 475,n_npo = 75, ntrial = 5, method = "Frequentist")
or2 = matrix(rep(seq(1,1.3, by=0.1), times=1, each=3),ncol = 3,byrow = TRUE)
or1 = matrix(rep(1.5, dim(or2)[1]*2), ncol = 2, byrow = TRUE)
ors = cbind(or1, or2)
get_oc_Switch(alpha = 0.05, pro_ctr = c(0.58,0.05,0.17,0.03,0.04,0.13),
U = c(100,80,65,25,10,0), ors, n_po = 475, n_npo = 75,
ntrial = 5, method = "Frequentist")
# }
Run the code above in your browser using DataLab