diags.R examples