write description about test R code