R code to manipulate CROOS data