New R scripts for Intro class