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