Updates

R script, presentation and final document