Look for these commands in the code (below). They are the comparisons
with empirical predictability.


(m0 <- lmer(logitpred~log_freq+length+log_bigram+(1|sn),distrndata))
(m1 <- lmer(logitpred~log_freq+length+log_bigram+s_dg+(1|sn),distrndata))
(m2 <- lmer(logitpred~log_freq+length+log_bigram+s_cfg+(1|sn),distrndata))
