adding main R file