# NOT RUN {
set.seed(0)
stage1 <- LETTERS[1:3]
stage2 <- LETTERS[1:2]
stage3 <- LETTERS[1:4]
y <- rnorm(3*2*4)
data <- expand.grid(stage1=stage1,
stage2=stage2,
stage3=stage3)
stages <- names(data)
data <- cbind(data, y)
UD_bal_model_range <- UD_bal_model(data, "y", stages, u_range, flist_range)
UD_bal_model_range
UD_bal_stage_range <- UD_model2stage(UD_bal_model_range)
UD_bal_stage_range
UD_table(UD_bal_model_range)
UD_table(UD_bal_stage_range)
# }
Run the code above in your browser using DataLab