# NOT RUN {
data(masterchef)
a1 <- rep(1/13,12) # equal strengths
a2 <- indep(masterchef_maxp) # MLE
a3 <- indep(masterchef_constrained_maxp) # constrained MLE
like_series(a1, masterchef)
like_series(a2, masterchef)
like_series(a3, masterchef)
# }
Run the code above in your browser using DataLab