This function computes the class centroids and covariance matrix for a training set for determining Mahalanobis distances of samples to each class centroid.
classDist(x, ...) # S3 method for default classDist(x, y, groups = 5, pca = FALSE, keep = NULL, ...) # S3 method for classDist predict(object, newdata, trans = log, ...)
x | a matrix or data frame of predictor variables |
---|---|
... | optional arguments to pass (not currently used) |
y | a numeric or factor vector of class labels |
groups | an integer for the number of bins for splitting a numeric outcome |
pca | a logical: should principal components analysis be applied to the dataset prior to splitting the data by class? |
keep | an integer for the number of PCA components that should by used to predict new samples ( |
object | an object of class |
newdata | a matrix or data frame. If |
trans | an optional function that can be applied to each class distance. |
for classDist
, an object of class classDist
with
elements:
a list with elements for each class. Each element contains a mean vector for the class centroid and the inverse of the class covariance matrix
a character vector of class labels
the results of prcomp
when
pca = TRUE
the function call
the number of variables
a vector of samples sizes per class
For factor outcomes, the data are split into groups for each class
and the mean and covariance matrix are calculated. These are then
used to compute Mahalanobis distances to the class centers (using
predict.classDist
The function will check for non-singular matrices.
For numeric outcomes, the data are split into roughly equal sized
bins based on groups
. Percentiles are used to split the data.
Forina et al. CAIMAN brothers: A family of powerful classification and class modeling techniques. Chemometrics and Intelligent Laboratory Systems (2009) vol. 96 (2) pp. 239-245
trainSet <- sample(1:150, 100) distData <- classDist(iris[trainSet, 1:4], iris$Species[trainSet]) newDist <- predict(distData, iris[-trainSet, 1:4]) splom(newDist, groups = iris$Species[-trainSet])#> Error in NextMethod("["): object 'trainSet' not found