MxOptions_part.R

	if (identical(options[["Standard Errors"]], "Yes") &&
		identical(options[["Calculate Hessian"]], "No")) {
		msg <- paste('The "Standard Errors" option is enabled and',
			'the "Calculate Hessian" option is disabled. Generating',
			'standard errors requires the Hessian calculation. Please',
			'disable standard errors or enable the Hessian calculation.\n',
			'You can do this with\n', 
			'model <- mxOption(model, "Standard Errors", "No")\n',
			'or\n', 
			'model <- mxOption(model, "Calculate Hessian", "Yes")'
			)
		stop(msg, call. = FALSE)
	}