R script bug fix.

....