## Load the sim0_design data
data(sim0_design)
## View the first five entries
head(sim0_design)
## Explore the variables in design_a
str(sim0_design)
## Check that the proportions sum to 1 (required for DI models)
## p1 to p3 are in the 3rd to 5th columns in sim0_design
sim0_design_sums <- rowSums(sim0_design[3:5])
summary(sim0_design)
Run the code above in your browser using DataLab