Ejemplo n.º 1
0
double Discriminant_getConcentrationEllipseArea (Discriminant me, long group,
        double scale, bool confidence, int discriminantDirections, long d1, long d2)
{
    double area = NUMundefined;

    if (group < 1 || group > my numberOfGroups) {
        return area;
    }

    if (discriminantDirections) {
        autoSSCP thee = Eigen_and_SSCP_project (my eigen.get(), my groups->at [group]);
        area = SSCP_getConcentrationEllipseArea (thee.get(), scale, confidence, d1, d2);
    } else {
        area = SSCP_getConcentrationEllipseArea (my groups->at [group], scale, confidence, d1, d2);
    }
    return area;
}
Ejemplo n.º 2
0
double Discriminant_getConcentrationEllipseArea (Discriminant me, long group,
        double scale, int confidence, int discriminantDirections, long d1, long d2) {
	SSCPs groups = my groups;
	double area = NUMundefined;

	if (group < 1 || group > my numberOfGroups) {
		return area;
	}

	if (discriminantDirections) {
		autoSSCP thee = Eigen_and_SSCP_project (me, (SSCP) groups -> item[group]);
		area = SSCP_getConcentrationEllipseArea (thee.peek(), scale, confidence, d1, d2);
	} else {
		area = SSCP_getConcentrationEllipseArea ((SSCP) groups -> item[group], scale, confidence, d1, d2);
	}
	return area;
}