R  script