reordercategories {cabootcrs} | R Documentation |
Reorder categories for chosen variable in MCA case only
Description
reordercategories
reorders the principal and standard coordinates, CTR, REP,
variances and covariances of the categories for a single MCA variable
Usage
reordercategories(x, varno, newcats)
Arguments
x |
An object of class |
varno |
The number of the variable to be reordered |
newcats |
A vector of length equal to the number of categories for this variable, giving the new order for the categories (e.g. c(4,1,2,3) means that the original 4th category is moved to first) |
Details
This may be useful when comparing results between different data sets or from different packages
Note: does not reorder anything in the cabasicresults
part of the cabootcrsresults
object
Value
An object of class cabootcrsresults
See Also
cabootcrs-package
, cabootcrs
, reflectaxes
, cabootcrsresults
Examples
bd3 <- cabootcrs(DreamData223by3, catype="mca", nboots=0, showresults=FALSE)
bd3reorderedvar2 <- reordercategories(bd3, 2, c(3,2,4,1))
summaryca(bd3)
summaryca(bd3reorderedvar2)
## Not run:
# Can be used when comparing results in different packages,
# or when adding ellipses from this package to output from others
library(FactoMineR)
library(ca)
data(tea)
# remove duplicated age variable
teamod <- tea[,c(1:18,20:36)]
# ca package uses standardised coordinates and inertias by default
catea <- mjca(teamod)
btea <- cabootcrs(teamod, catype="mca", showresults=FALSE, nboots=0, varandcat=FALSE)
# FactoMineR package uses unstandardised coordinates and inertias by default
fmtea <- MCA(teamod, method="Burt", graph=FALSE)
bteaunstd <- cabootcrs(teamod, catype="mca", showresults=FALSE, nboots=0,
mcaadjustinertias = FALSE, mcaadjustcoords = FALSE, varandcat=FALSE)
summary(fmtea)
summaryca(bteaunstd)
summary(catea)
summaryca(btea)
# slight difference due to different orderings of categories for these two
fmtea$var$coord / bteaunstd@Colprinccoord[,1:5]
catea$colpcoord[,1:5] / btea@Colprinccoord[,1:5]
fmtea$var$coord / catea$colpcoord[,1:5]
# Variables 22 and 23, in columns 57-65, are the problem
# The coordinates agree (apart from reflection) but the categories are in a different order
fmtea$var$coord[57:65,1:3]
bteaunstd@Colprinccoord[57:65,1:3]
catea$colpcoord[57:65,1:3]
btea@Colprinccoord[57:65,1:3]
# Coordinates agree when categories reordered and axes reflected
bteaunstdreord <- reordercategories(bteaunstd,22,c(2:5,1))
bteaunstdreord <- reordercategories(bteaunstdreord,23,c(3,2,1,4))
bteaunstdreordreflect <- reflectaxes(bteaunstdreord,c(1,4))
fmtea$var$coord / bteaunstdreordreflect@Colprinccoord[,1:5]
bteareord <- reordercategories(btea,22,c(2:5,1))
bteareord <- reordercategories(bteareord,23,c(3,2,1,4))
bteareordreflect <- reflectaxes(bteareord,c(2,5))
catea$colpcoord[,1:5] / bteareordreflect@Colprinccoord[,1:5]
## End(Not run)
[Package cabootcrs version 2.1.0 Index]