Create cooccur.R