# NOT RUN {
a1 <- indep(equalp(masterchef[[1]])) # equal strengths
a2 <- indep(masterchef_maxp) # MLE
a3 <- indep(masterchef_constrained_maxp) # constrained MLE
# }
# NOT RUN {
# takes too long
like_series(a1, masterchef)
like_series(a2, masterchef)
like_series(a3, masterchef)
# }
Run the code above in your browser using DataLab