Regression - Diagnostic - StandardRPlot - Prediction-Accuracy Table

Create a table showing the observed and predicted values, as a heatmap

Code

var heading_text = "Prediction-Accuracy Table";
if (!!form.setObjectInspectorTitle)
    form.setObjectInspectorTitle(heading_text);
else 
    form.setHeading(heading_text);

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

library(flipRegression)
prediction.accuracy <- ConfusionMatrix(QInputs(formInput), QFilter, QPopulationWeight)