Regression - Diagnostic - StandardRPlot - Cook's Distance vs Leverage

Create a scatterplot showing Cook's distance vs leverage for each observation

Code

var heading_text = "Cook's Distance vs Leverage";
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"});

cooks.distance.vs.leverage <- plot(formInput, which = 6)
ret <- ""
class(ret) <- "visualization-selector"
ret