adding second R file