Fixed a bug in R script