Described R script
Updated script