dim(surpSelect)
?write
?write.table
head(surpSelect)
head(surpSelect)
ls()
head(surpSelect)
head(distrndata)
head(distrndata)
head(distrndata)
head(distrndata)
head(distrndata)
m0
m0
q()
ls()
head(surpSelect)
head(surpSelect,n=9)
Q()
q()
q()
summary(data2)
dim(data2)
q()
q()
dim(data2)
length(unique(data2$id))
summary(data2)
head(data2)
lmer(logitpred~surprisalDep+(1|sn)+(1|wn),data2)
head(distrndata)
q()
