Tablas de contingencia en modelos de respuesta cualitativa (Logit, Probit)

[atorre]

Hola MMS,
¿se podría incorporar a los resultados de las estimaciones de modelos Logit y Probit las tablas de contingencia?

Sigue a continuación una función que devuelve distintas tablas de contingencia dada una estimación:

Set MMS_ContingencyTables(NameBlock est)
{

Set subModels = est::GetModel.Results(?)::GetSubmodels(?);
Matrix y = (subModels[1])::GetOutput.Original(?);
Matrix yEst = (subModels[1])::GetPrediction(?);
Real prob = MatSum(y)/Rows(y);
Real probMax = MatMax(yEst);
Set conTabValues = SetOfReal(0.01, 0.05, 0.10, 0.25, 0.50, 0.75, 0.9) <<

SetOfReal(prob, 2*prob, probMax);

Set EvalSet(conTabValues, Set(Real value)
{

Eval("Set CT_"+ FormatReal(value, "%.4lf") +

" = ContingencyTable(y, yEst, value);")

})

};

Notar que la función ContingencyTable está en StdLib.

Sería ideal poder acceder a estos resultados con una opción de botón derecho desde la estimación.