test R script