Scripts for interesting R plots