Update cooccur.R