Final R File