# NOT RUN {
# See Practical Introduction to ExpertChoice Vignette. Step 2.
#Step 1
attrshort = list(condition = c("0", "1", "2"),
technical =c("0", "1", "2"),
provenance = c("0", "1"))
#Step 2! - the augment_levels function
#' # ff stands for "full fatorial"
ff <- full_factorial(attrshort)
af <- augment_levels(ff)
# af stands for "augmented factorial"
af
# Compare ff and af. - do not confuse them. They serve different purposes.
# }
Run the code above in your browser using DataLab