R code IQSS