added R file for computing some fancy graphics