## Load the design_b data
data(design_b)
## View the first five entries
head(design_b)
## Explore the variables in design_b
str(design_b)
## Check that the proportions sum to 1 (required for DI models)
## p1 to p6 are in the 2nd to 7th columns in design_b
design_b_sums <- rowSums(design_b[2:7])
summary(design_b_sums)
Run the code above in your browser using DataLab