Marketing - MaxDiff - Compare Models

Compare the performance of multiple MaxDiff models by producing a table of metrics from each model.

Example

To run the Compare Models function in Displayr, select Anything > Advanced Analysis > MaxDiff > Compare Models.
To run in Q, select Create > Marketing > MaxDiff > Compare Models.

Options

MaxDiff models created in Displayr or Q are used as the inputs for the model comparison. The inputs are shown in the image below.

Input models At least 2 MaxDiff models.

Ensemble Whether to create an ensemble by taking the average of the respondent parameters across the models.

More information

See Comparing MaxDiff Models blog post for an example of comparing models.

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 controls = [];
var modelsInput = form.dropBox({ label: "Input models", types: ["RItem:FitMaxDiff"], name: "formModels",
    multi: true, required: true, min_inputs: 2,
    prompt: "Select at least 2 MaxDiff models." });
controls.push(modelsInput);

var ensemble = form.checkBox({ label: "Ensemble", name: "formEnsemble", default_value: false,
    prompt: "Whether to create an ensemble of the models." });
controls.push(ensemble);

if (ensemble.getValue()) {
    var output = form.comboBox({ label: "Output",
        alternatives: ["Comparison", "Ensemble"], name: "formOutput", default_value: "Comparison",
        prompt: "A table comparing the models, or histograms of ensemble respondent coefficients." });
    controls.push(output);
}
form.setInputControls(controls);


var heading_text = 'Compare MaxDiff Models';
var plural_text = 'Comparisons of MaxDiff Models';
if (ensemble.getValue()) {
    heading_text = 'Ensemble of MaxDiff Models';
    plural_text = 'Ensembles of MaxDiff Models';
}

if (!!form.setObjectInspectorTitle)
    form.setObjectInspectorTitle(heading_text, plural_text);
else
    form.setHeading(heading_text);

library(flipMaxDiff)
comparison <- MaxDiffEnsemble(formModels,
                              !formEnsemble,
                              get0("formOutput", ifnotfound = "Comparison"))

Further reading: MaxDiff software