alpha <- 0.025
alpha0 <- 0.0136
iuse0 <- 1
iuse1 <- 2
phi0 <- -4
phi1 <- 1
tc0 <- c(1,2)
tc1 <- c(1,2,3)
t0 <- c(0.6,1)
t1 <- c(0.5,0.9,1)
rho <- 0
effsz0 <- 0.33
effsz1 <- 0.30
groupsize=226
szratio=1
method="bonferroni"
method = "holm"
method="maurer-bretz"
psPwRbhmb(alpha=alpha, alpha0=alpha0,
t0=t0, t1=t1, tc0=tc0, tc1=tc1,
rho=rho, iuse0=1, iuse1=iuse1,
phi0=phi0, phi1=phi1,
usingRhoForBoundary=usingRhoForBoundary,
groupsize=groupsize, szratio=szratio,
effsz0=effsz0, effsz1=effsz1,
method=method)
Run the code above in your browser using DataLab