added another R file and .Rproj file