Code for an SAS/R