Update Diagnostics.R

Added sink() calls, formatting.