added a new .R file with renamed filename as instructed