adding the first plotting R file