Create Diagnostics.R

Simple diagnostics on the three methods.