Described R script