content.R script added