Changed the r code to match the README.md and added boxplots