first R file