Update diagnose.R