Script of R language