## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----setup-------------------------------------------------------------------- library(clinfun) ## ----------------------------------------------------------------------------- # Specify the parameters and constraints trial = ph2simon(0.05, 0.2, 0.1, 0.1) # Print trial ## ----------------------------------------------------------------------------- # Plot plot(trial) ## ----------------------------------------------------------------------------- # Obtain admissible design twostage.admissible(trial) ## ----------------------------------------------------------------------------- # Specify the parameters and constraints trial = ph2simon(0.25, 0.45, 0.05, 0.1) # Obtain admissible design twostage.admissible(trial) ## ----------------------------------------------------------------------------- # Specify the parameters and constraints & print ph2single(0.4, 0.6, 0.1, 0.1) ## ----------------------------------------------------------------------------- fe.ssize(p1 = 0.2, p2 = 0.3, power = 0.8) ## ----------------------------------------------------------------------------- power.prop.test(p1 = 0.2, p2 = 0.3, power = 0.8)