First attempt R code and PNG files by Alex Sickert