R code for Cray