NAG CL Interface
g03acc (canon_​var)

1 Purpose

g03acc performs a canonical variate (canonical discrimination) analysis.

2 Specification

#include <nag.h>
void  g03acc (Nag_Weightstype weight, Integer n, Integer m, const double x[], Integer tdx, const Integer isx[], Integer nx, const Integer ing[], Integer ng, const double wt[], Integer nig[], double cvm[], Integer tdcvm, double e[], Integer tde, Integer *ncv, double cvx[], Integer tdcvx, double tol, Integer *irankx, NagError *fail)
The function may be called by the names: g03acc or nag_mv_canon_var.

3 Description

Let a sample of n observations on n x variables in a data matrix come from n g groups with n 1 , n 2 , , n n g observations in each group, n i = n . Canonical variate analysis finds the linear combination of the n x variables that maximizes the ratio of between-group to within-group variation. The variables formed, the canonical variates can then be used to discriminate between groups.
The canonical variates can be calculated from the eigenvectors of the within-group sums of squares and cross-products matrix. However, g03acc calculates the canonical variates by means of a singular value decomposition (SVD) of a matrix V . Let the data matrix with variable (column) means subtracted be X , and let its rank be k ; then the k by n g - 1 matrix V is given by:
V = QXT Q g , where Q g is an n by n g - 1 orthogonal matrix that defines the groups and Q X is the first k rows of the orthogonal matrix Q either from the QR decomposition of X :
X = QR  
if X is of full column rank, i.e., k = n x , else from the SVD of X :
X = QDPT .  
Let the SVD of V be:
V = U x Δ UgT  
then the nonzero elements of the diagonal matrix Δ , δ i , for i=1,2,,l, are the l canonical correlations associated with the l canonical variates, where l = mink, n g .
The eigenvalues, λ i 2 , of the within-group sums of squares matrix are given by:
λ i 2 = δ i 2 1 - δ i 2 .  
and the value of π i = λ i 2 / λ i 2 gives the proportion of variation explained by the i th canonical variate. The values of the π i 's give an indication as to how many canonical variates are needed to adequately describe the data, i.e., the dimensionality of the problem.
To test for a significant dimensionality greater than i the χ 2 statistic:
n - 1 - n g - 1 2 k-n g j = i + 1 l log 1 + λ j 2  
can be used. This is asymptotically distributed as a χ 2 distribution with k-i n g - 1 - i degrees of freedom. If the test for i=h is not significant, then the remaining tests for i>h should be ignored.
The loadings for the canonical variates are calculated from the matrix U x . This matrix is scaled so that the canonical variates have unit within group variance.
In addition to the canonical variates loadings the means for each canonical variate are calculated for each group.
Weights can be used with the analysis, in which case the weighted means are subtracted from each column and then each row is scaled by an amount w i , where w i is the weight for the i th observation (row).

4 References

Chatfield C and Collins A J (1980) Introduction to Multivariate Analysis Chapman and Hall
Gnanadesikan R (1977) Methods for Statistical Data Analysis of Multivariate Observations Wiley
Hammarling S (1985) The singular value decomposition in multivariate statistics SIGNUM Newsl. 20(3) 2–25
Kendall M G and Stuart A (1979) The Advanced Theory of Statistics (3 Volumes) (4th Edition) Griffin

5 Arguments

1: weight Nag_Weightstype Input
On entry: indicates the type of weights to be used in the analysis.
weight=Nag_NoWeights
No weights are used.
weight=Nag_Weightsfreq
The weights are treated as frequencies and the effective number of observations is the sum of the weights.
weight=Nag_Weightsvar
The weights are treated as being inversely proportional to the variance of the observations and the effective number of observations is the number of observations with nonzero weights.
Constraint: weight=Nag_NoWeights, Nag_Weightsfreq or Nag_Weightsvar.
2: n Integer Input
On entry: the number of observations, n .
Constraint: n nx + ng .
3: m Integer Input
On entry: the total number of variables, m .
Constraint: mnx .
4: x[n×tdx] const double Input
On entry: x[i-1×tdx+j-1] must contain the i th observation for the j th variable, for i=1,2,,n and j=1,2,,m.
5: tdx Integer Input
On entry: the stride separating matrix column elements in the array x.
Constraint: tdxm .
6: isx[m] const Integer Input
On entry: isx[j-1] indicates whether or not the j th variable is to be included in the analysis.
If isx[j-1] > 0 , then the variable contained in the j th column of x is included in the canonical variate analysis, for j=1,2,,m.
Constraint: isx[j-1] > 0 for nx values of j .
7: nx Integer Input
On entry: the number of variables in the analysis, n x .
Constraint: nx1 .
8: ing[n] const Integer Input
On entry: ing[i-1] indicates which group the i th observation is in, for i=1,2,,n. The effective number of groups is the number of groups with nonzero membership.
Constraint: 1 ing[i-1] ng , for i=1,2,,n.
9: ng Integer Input
On entry: the number of groups, n g .
Constraint: ng2 .
10: wt[n] const double Input
On entry: if weight=Nag_Weightsfreq or Nag_Weightsvar then the elements of wt must contain the weights to be used in the analysis.
If wt[i-1] = 0.0 then the i th observation is not included in the analysis.
Constraints:
  • wt[i-1] 0.0 , for i=1,2,,n;
  • i=1 n wt[i-1] nx + effective number of groups.
    Note: if weight=Nag_NoWeights then wt is not referenced and may be NULL.
11: nig[ng] Integer Output
On exit: nig[j-1] gives the number of observations in group j , for j=1,2,, n g .
12: cvm[ng×tdcvm] double Output
On exit: cvm[i-1×tdcvm+j-1] contains the mean of the j th canonical variate for the i th group, for i=1,2,, n g and j=1,2,,l; the remaining columns, if any, are used as workspace.
13: tdcvm Integer Input
On entry: the stride separating matrix column elements in the array cvm.
Constraint: tdcvmnx .
14: e[minnx,ng-1×tde] double Output
On exit: the statistics of the canonical variate analysis. e[i-1×tde] , the canonical correlations, δ i , for i=1,2,,l.
e[i-1×tde+1] , the eigenvalues of the within-group sum of squares matrix, λ i 2 , for i=1,2,,l.
e[i-1×tde+2] , the proportion of variation explained by the i th canonical variate, for i=1,2,,l.
e[i-1×tde+3] , the χ 2 statistic for the i th canonical variate, for i=1,2,,l.
e[i-1×tde+4] , the degrees of freedom for χ 2 statistic for the i th canonical variate, for i=1,2,,l.
e[i-1×tde+5] , the significance level for the χ 2 statistic for the i th canonical variate, for i=1,2,,l.
15: tde Integer Input
On entry: the stride separating matrix column elements in the array e.
Constraint: tde6 .
16: ncv Integer * Output
On exit: the number of canonical variates, l . This will be the minimum of n g - 1 and the rank of x.
17: cvx[nx×tdcvx] double Output
On exit: the canonical variate loadings. cvx[i-1×tdcvx+j-1] contains the loading coefficient for the i th variable on the j th canonical variate, for i=1,2,, n x and j=1,2,,l; the remaining columns, if any, are used as workspace.
18: tdcvx Integer Input
On entry: the stride separating matrix column elements in the array cvx.
Constraint: tdcvx ng - 1 .
19: tol double Input
On entry: the value of tol is used to decide if the variables are of full rank and, if not, what is the rank of the variables. The smaller the value of tol the stricter the criterion for selecting the singular value decomposition. If a non-negative value of tol less than machine precision is entered, then the square root of machine precision is used instead.
Constraint: tol0.0 .
20: irankx Integer * Output
On exit: the rank of the dependent variables.
If the variables are of full rank then irankx=nx .
If the variables are not of full rank then irankx is an estimate of the rank of the dependent variables. irankx is calculated as the number of singular values greater than tol × (largest singular value).
21: fail NagError * Input/Output
The NAG error argument (see Section 7 in the Introduction to the NAG Library CL Interface).

6 Error Indicators and Warnings

NE_2_INT_ARG_LT
On entry, m=value while nx=value . These arguments must satisfy mnx .
On entry, tdcvm=value while nx=value . These arguments must satisfy tdcvmnx .
On entry, tdcvx=value while ng=value . These arguments must satisfy tdcvx ng - 1 .
On entry, tdx=value while m=value . These arguments must satisfy tdxm .
NE_3_INT_ARG_CONS
On entry, n=value , nx=value and ng=value . These arguments must satisfy n nx + ng .
NE_ALLOC_FAIL
Dynamic memory allocation failed.
NE_BAD_PARAM
On entry, argument weight had an illegal value.
NE_CANON_CORR_1
A canonical correlation is equal to one. This will happen if the variables provide an exact indication as to which group every observation is allocated.
NE_GROUPS
Either the effective number of groups is less than two or the effective number of groups plus the number of variables, nx is greater than the effective number of observations.
NE_INT_ARG_LT
On entry, ng=value.
Constraint: ng2.
On entry, nx=value.
Constraint: nx1.
On entry, tde=value.
Constraint: tde6.
NE_INTARR_INT
On entry, ing[value] = value, ng=value . Constraint: 1 ing[i-1] ng , for i=1,2,,n.
NE_INTERNAL_ERROR
An internal error has occurred in this function. Check the function call and any array sizes. If the call is correct then please contact NAG for assistance.
NE_NEG_WEIGHT_ELEMENT
On entry, wt[value] = value.
Constraint: When referenced, all elements of wt must be non-negative.
NE_RANK_ZERO
The rank of the variables is zero. This will happen if all the variables are constants.
NE_REAL_ARG_LT
On entry, tol must not be less than 0.0 : tol=value .
NE_SVD_NOT_CONV
The singular value decomposition has failed to converge. This is an unlikely error exit.
NE_VAR_INCL_INDICATED
The number of variables, nx in the analysis =value , while number of variables included in the analysis via array isx=value .
Constraint: these two numbers must be the same.
NE_WT_ARGS
The wt array argument must not be NULL when the weight argument indicates weights.

7 Accuracy

As the computation involves the use of orthogonal matrices and a singular value decomposition rather than the traditional computing of a sum of squares matrix and the use of an eigenvalue decomposition, g03acc should be less affected by ill conditioned problems.

8 Parallelism and Performance

g03acc is threaded by NAG for parallel execution in multithreaded implementations of the NAG Library.
g03acc makes calls to BLAS and/or LAPACK routines, which may be threaded within the vendor library used by this implementation. Consult the documentation for the vendor library for further information.
Please consult the X06 Chapter Introduction for information on how to control and interrogate the OpenMP environment used within this function. Please also consult the Users' Note for your implementation for any additional implementation-specific information.

9 Further Comments

None.

10 Example

A sample of nine observations, each consisting of three variables plus group indicator, is read in. There are three groups. An unweighted canonical variate analysis is performed and the results printed.

10.1 Program Text

Program Text (g03acce.c)

10.2 Program Data

Program Data (g03acce.d)

10.3 Program Results

Program Results (g03acce.r)