R script fix.