
Computes the Zeta squared index of "effect magnitude". The maximization of this criterion is equivalent to the maximization of the traditional test statistic, the Lawley-Hotelling trace.
zeta2.coef(mat, H, r, indices,
tolval=10*.Machine$double.eps, tolsym=1000*.Machine$double.eps)
The value of the
the Variance or Total sums of squares and products matrix for the full data set.
the Effect description sums of squares and products matrix (defined in the same way as the mat
matrix).
the Expected rank of the H matrix. See the Details
below.
a numerical vector, matrix or 3-d array of integers giving the indices of the variables in the subset. If a matrix is specified, each row is taken to represent a different k-variable subset. If a 3-d array is given, it is assumed that the third dimension corresponds to different cardinalities.
the tolerance level to be used in checks for
ill-conditioning and positive-definiteness of the 'total' and
'effects' (H) matrices. Values smaller than tolval
are
considered equivalent to zero.
the tolerance level for symmetry of the
covariance/correlation/total matrix and for the effects (H
)
matrix. If corresponding matrix entries differ by more than this
value, the input matrices will be considered asymmetric and execution
will be aborted. If corresponding entries are different, but by less
than this value, the input matrix will be replaced by its symmetric
part, i.e., input matrix A becomes (A+t(A))/2.
Different kinds of statistical methodologies are considered within the
framework, of a multivariate linear model:
The fact that indices
can be a matrix or 3-d array allows for
the computation of the anneal
, genetic
,
improve
and
eleaps
(whose output option $subsets
are
matrices or 3-d arrays), using a different criterion (see the example
below).
## ---------------------------------------------------------------
## 1) A Linear Discriminant Analysis example with a very small data set.
## We considered the Iris data and three groups,
## defined by species (setosa, versicolor and virginica).
data(iris)
irisHmat <- ldaHmat(iris[1:4],iris$Species)
zeta2.coef(irisHmat$mat,H=irisHmat$H,r=2,c(1,3))
## [1] 0.9211501
## ---------------------------------------------------------------
## 2) An example computing the value of the zeta_2 criterion for two
## subsets produced when the anneal function attempted to optimize
## the ccr1_2 criterion (using an absurdly small number of iterations).
ccr1results<-anneal(irisHmat$mat,2,nsol=2,niter=2,criterion="ccr12",
H=irisHmat$H,r=2)
zeta2.coef(irisHmat$mat,H=irisHmat$H,r=2,ccr1results$subsets)
## Card.2
##Solution 1 0.9105021
##Solution 2 0.9161813
## ---------------------------------------------------------------
Run the code above in your browser using DataLab