upload DataIntro.R