added messages at the top of the R file