edited RIntro script