R file 1

comments here