autoTableOfReal CCA_and_TableOfReal_scores (CCA me, TableOfReal thee, long numberOfFactors) {
try {
long n = thy numberOfRows;
long nx = my x -> dimension, ny = my y -> dimension;
if (ny + nx != thy numberOfColumns) {
Melder_throw (U"The number of columns in the table (", thy numberOfColumns, U") does not agree with the dimensions of the CCA object (ny + nx = ", ny, U" + ", nx, U").");
}
if (numberOfFactors == 0) {
numberOfFactors = my numberOfCoefficients;
}
if (numberOfFactors < 1 || numberOfFactors > my numberOfCoefficients) {
Melder_throw (U"The number of factors must be in interval [1, ", my numberOfCoefficients, U"].");
}
autoTableOfReal him = TableOfReal_create (n, 2 * numberOfFactors);
NUMstrings_copyElements (thy rowLabels, his rowLabels, 1, thy numberOfRows);
Eigen_and_TableOfReal_into_TableOfReal_projectRows (my y.get(), thee, 1, him.get(), 1, numberOfFactors);
Eigen_and_TableOfReal_into_TableOfReal_projectRows (my x.get(), thee, ny + 1, him.get(), numberOfFactors + 1, numberOfFactors);
TableOfReal_setSequentialColumnLabels (him.get(), 1, numberOfFactors, U"y_", 1, 1);
TableOfReal_setSequentialColumnLabels (him.get(), numberOfFactors + 1, his numberOfColumns, U"x_", 1, 1);
return him;
} catch (MelderError) {
Melder_throw (me, U": no TableOfReal with scores created.");
}
}
autoConfiguration Discriminant_and_TableOfReal_to_Configuration (Discriminant me, TableOfReal thee, long numberOfDimensions) {
try {
if (numberOfDimensions == 0) {
numberOfDimensions = Discriminant_getNumberOfFunctions (me);
}
autoConfiguration him = Configuration_create (thy numberOfRows, numberOfDimensions);
Eigen_and_TableOfReal_into_TableOfReal_projectRows (my eigen.get(), thee, 1, him.get(), 1, numberOfDimensions);
TableOfReal_copyLabels (thee, him.get(), 1, 0);
TableOfReal_setSequentialColumnLabels (him.get(), 0, 0, U"Eigenvector ", 1, 1);
return him;
} catch (MelderError) {
Melder_throw (U"Configuration not created.");
}
}
autoConfiguration PCA_and_TableOfReal_to_Configuration (PCA me, TableOfReal thee, long numberOfDimensionsToKeep) {
try {
if (numberOfDimensionsToKeep == 0 || numberOfDimensionsToKeep > my numberOfEigenvalues) {
numberOfDimensionsToKeep = my numberOfEigenvalues;
}
autoConfiguration him = Configuration_create (thy numberOfRows, numberOfDimensionsToKeep);
Eigen_and_TableOfReal_into_TableOfReal_projectRows (me, thee, 1, him.get(), 1, numberOfDimensionsToKeep);
NUMstrings_copyElements (thy rowLabels, his rowLabels, 1, thy numberOfRows);
TableOfReal_setSequentialColumnLabels (him.get(), 0, 0, U"pc", 1, 1);
return him;
} catch (MelderError) {
Melder_throw (U"Configuration not created from PCA & TableOfReal.");
}
}
