initial_weights <- c(0.5, 0.5, 0, 0)
transition_matrix <- matrix(c(0, 0.5, 0.5, 0,
0.5, 0, 0, 0.5,
0, 1, 0, 0,
1, 0, 0, 0),
nrow = 4, byrow = TRUE)
wgtmat <- fwgtmat(initial_weights, transition_matrix)
family <- matrix(c(1, 1, 0, 0,
0, 0, 1, 1),
nrow = 2, byrow = TRUE)
corr <- matrix(c(1, 0.5, NA, NA,
0.5, 1, NA, NA,
NA, NA, 1, 0.5,
NA, NA, 0.5, 1),
nrow = 4, byrow = TRUE)
fPCStagewise(stg2_p = c(0.00045, 0.0952, 0.0225, 0.1104),
wgtmat = wgtmat, family = family, corr = corr,
stg1_inthyp_nr = 1:15, stg2_elemhyp = 1:4,
stg2_wgtmat = wgtmat, test = "dunnett",
nthreads = 1)
Run the code above in your browser using DataLab