# NOT RUN {
# Unstratified trials with power constraints.
pt_from_ss(ss=seq(100, 1000, by=100), pref_effect=1,
selection_effect=1, treatment_effect=1, sigma2=1, pref_prop=0.6)
# Stratified trials with power constraints. Note that the proportion
# of patients in the choice arm (choice prop) is fixed for all strata.
pt_from_ss(ss=seq(100, 1000, by=100), pref_effect=1,
selection_effect=1, treatment_effect=1,
sigma2=list(c(1, 0.8)), pref_prop=list(c(0.6, 0.3)),
choice_prop=0.5, stratum_prop=list(c(0.3, 0.7)))
# or...
pt_from_ss(ss=seq(100, 1000, by=100), pref_effect=1,
selection_effect=1, treatment_effect=1,
sigma2=c(1, 0.8), pref_prop=c(0.6, 0.3),
choice_prop=0.5, stratum_prop=c(0.3, 0.7))
# }
Run the code above in your browser using DataLab