Regression - Diagnostic - StandardRPlot - Test Residual Heteroscedasticity

Conduct a heteroscedasticity test on the residuals

Code

var __webpack_modules__ = ({});
// The module cache
var __webpack_module_cache__ = {};

// The require function
function __webpack_require__(moduleId) {

// Check if module is in cache
var cachedModule = __webpack_module_cache__[moduleId];
if (cachedModule !== undefined) {
return cachedModule.exports;
}
// Create a new module (and put it into the cache)
var module = (__webpack_module_cache__[moduleId] = {
exports: {}
});
// Execute the module function
__webpack_modules__[moduleId](module, module.exports, __webpack_require__);

// Return the exports of the module
return module.exports;

}

// webpack/runtime/rspack_version
(() => {
__webpack_require__.rv = () => ("1.7.2")
})();
// webpack/runtime/rspack_unique_id
(() => {
__webpack_require__.ruid = "bundler=rspack@1.7.2";
})();
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"))
    StopForUserError("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)