R Script of R