Regression - Diagnostic - StandardRPlot - Test Residual Heteroscedasticity

Conduct a heteroscedasticity test on the residuals

Code

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

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

if (!identical(class(formInput$original), "lm"))
    stop("Sorry, you must select an output from 'Regression - Linear Regression' to use this diagnostic.")
heteroscedasticity <- flipFormat::SignificanceTest(
    car::ncvTest(formInput),
    'Test of Residual Heteroscedasticity (Breusch-Pagan)',
    vars = NULL,
    reg.name = NULL, 
    reg.sample.description = formInput$sample.description)