
A3.5 An example 95
{{ "BFGS method", 0, FALSE, 0}
};
}
BprobitEx::SendMenu(const sMenu)
{
if (sMenu == "ModelClass")
{
return
{{ "&1: Binary Discrete Choice", "modelclass0",
m_iModelClass == MC_BINARY},
{ "&2: Count Data", "modelclass1",
m_iModelClass == MC_COUNT}
};
}
else if (sMenu == "Test")
{ return
{{ "&Graphic Analysis...", m_iModelClass == MC_COUNT
? "" : "OP_TEST_GRAPHICS"},
{ "&Predictions...", m_iModelClass == MC_COUNT
? "" : "OP_TEST_FORECAST"},
0,
{ "&Further Output...", "Further Output"},
{ "&Outliers...", "Outliers"},
0,
{ "&Exclusion Restrictions...", "OP_TEST_SUBSET"},
{ "&Linear Restrictions...", "OP_TEST_LINRES"},
0,
{ "Store in D&atabase...", "OP_TEST_STORE"}
};
}
}
BprobitEx::ReceiveModel()
{
Select(SEL_VAR, "OxPackGetData"("SelGroup", SEL_VAR));
// m_iMethod determined in ReceiveDialog, prevent
// Modelbase::ReceiveModel() from changing it.
decl imethod = m_iMethod;
Modelbase::ReceiveModel();
m_iMethod = imethod;
}
BprobitEx::SendDialog(const sDialog)
{
if (sDialog == "modelclass0")
{
// set model class, and activate model formulation dialog
m_iModelClass = MC_BINARY;
"OxPackDialog"("OP_FORMULATE", 0, 0, 0);
return 0;
}
else if (sDialog == "modelclass1")
Komentarze do niniejszej Instrukcji