# NOT RUN {
data(chess)
loglik(c(1/3,1/3),chess)
data(masterchef)
a1 <- rep(1/13,12) # equal strengths
a2 <- indep(masterchef_maxp) # MLE
like_series(a1,masterchef)
like_series(a2,masterchef)
W <- hyper2(pnames=letters[1:6])
W1 <- ggrl(W, 'a', letters[2:5],'f') # 24-element list
W2 <- ggrl(W, c('a','b'), c('c','d'),c('e','f')) # 2^3=8 element list
like_single_list(rep(1/6,5),W1) # information from first observation
like_series(rep(1/6,5),list(W1,W2)) # information from both observations
# }
Run the code above in your browser using DataLab