corpus.tiny.cooccurrences <- factor(c("S", "S", "F", "G", "S", "F", "F", "G", "S", "S", "F", "G", "F", "S", "S", "S", "F", "S", "G", "F", "S", "S"));