msg <- paste("Objective functions like mxFIMLObjective()",
"have been deprecated in favor of expectation and fit functions.\n",
"Please use mxExpectationNormal(covariance= , means = , ...) instead,",
"and add a call to mxFitFunctionML().",
"See examples at help(mxExpectationNormal)")
foo <- omxCheckWarning(mxFIMLObjective('cov', 'mean'), msg)
Run the code above in your browser using DataLab