R codefor RStudio