R code for Cuzick's Test