Regression - Diagnostic - StandardRPlot - Test Residual Normality (Shapiro-Wilk)

Conduct a Shapiro-Wilk test of normality on the (deviance) residuals

Code

var heading_text = "Test Residual Normality";
if (!!form.setObjectInspectorTitle)
    form.setObjectInspectorTitle(heading_text);
else 
    form.setHeading(heading_text);

form.dropBox({name: "formInput", label: "Regression:", types: ["RItem:Regression"],
              prompt: "Select a Regression output to show diagnostics for"});

test.normality <- flipFormat::SignificanceTest(
    shapiro.test(resid(formInput)),
    'Test of Residual Normality (Shapiro-Wilk)',
    vars = NULL,
    reg.name = NULL, 
    reg.sample.description = formInput$sample.description)