q()
crit
unique(gram,pos==6)
unique(gram,pos==6)$word
unique(subset(gram,pos==6))$word
unique(subset(gram,pos==6)$word)
head(gram)
head(gram,n=30)
22000*.30
q()
