Created R presentation
Added trimData back for the presentation code.