Update final project.R