ordinal_levels_inpaper <- list(
Q1 = c(0, 1),
Q2 = c(0, 0.5, 1),
Q3 = c(0, 0.1, 0.3, 0.6, 1),
Q4 = c(0, 0.25, 0.5, 0.75, 1),
Q5 = c(0, 0.2, 0.3, 0.5, 0.7, 1),
Q6 = c(0, 0.2, 0.4, 0.6, 0.8, 1),
Q7 = c(0, 0.1, 0.3, 0.5, 0.7, 0.9, 1),
Q8 = c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1)
)
discrete_dims <- c(2,4)
ordinal_levels <- list(
v1 = ordinal_levels_inpaper$Q6,
v2 = ordinal_levels_inpaper$Q7
)
res <- InterleavedMaximinDMixVars(p=4,n=50,discrete_dims,ordinal_levels,weight=(3/4)^(0:3));
res$Design
discrete_dims <- c()
ordinal_levels <- c()
res <- InterleavedMaximinDMixVars(p=3,n=50,discrete_dims,ordinal_levels,weight=rep(1,3));
res$Design
discrete_dims <- c(1,2,3)
ordinal_levels <- list(
v1 = ordinal_levels_inpaper$Q8,
v2 = ordinal_levels_inpaper$Q3,
v3 = ordinal_levels_inpaper$Q8
)
res <- ILMmDMixVarsAlg6(p=3,n=30,discrete_dims,ordinal_levels);
res$Design
discrete_dims <- c(3,4,5)
ordinal_levels <- list(
v1 = ordinal_levels_inpaper$Q1,
v2 = ordinal_levels_inpaper$Q5,
v3 = ordinal_levels_inpaper$Q8
)
res <- ILMmDMixVarsAlg8(p=5,n=40,discrete_dims,ordinal_levels);
res$Design
discrete_dims <- c(4:10)
ordinal_levels <- list(
v1 = ordinal_levels_inpaper$Q1,
v2 = ordinal_levels_inpaper$Q1,
v3 = ordinal_levels_inpaper$Q1,
v4 = ordinal_levels_inpaper$Q2,
v5 = ordinal_levels_inpaper$Q3,
v6 = ordinal_levels_inpaper$Q4,
v7 = ordinal_levels_inpaper$Q5
)
res <- ILMmDMixVarsAlg9(p=10,n=60,discrete_dims,ordinal_levels,pfrom=5);
res$Design
Run the code above in your browser using DataLab