Discriminant Correspondence Analysis (DICA) Inference Battery via TInPosition
tepDICA.inference.battery(DATA, make_data_nominal = FALSE, DESIGN = NULL,
make_design_nominal = TRUE,
group.masses = NULL, weights = NULL,
symmetric = TRUE, graphs = TRUE, k = 0,
test.iters = 100, critical.value = 2)
original data to perform a DICA on. Data can be contingency (like CA) or categorical (like MCA).
a boolean. If TRUE (default), DATA is recoded as a dummy-coded matrix. If FALSE, DATA is a dummy-coded matrix.
a design matrix to indicate if rows belong to groups. Required for DICA.
a boolean. If TRUE (default), DESIGN is a vector that indicates groups (and will be dummy-coded). If FALSE, DESIGN is a dummy-coded matrix.
a diagonal matrix or column-vector of masses for the groups.
a diagonal matrix or column-vector of weights for the column it
a boolean. If TRUE (default) symmetric factor scores for rows.
a boolean. If TRUE (default), graphs and plots are provided (via epGraphs
)
number of components to return.
number of iterations
numeric. A value, analogous to a z- or t-score to be used to determine significance (via bootstrap ratio).
Returns two lists ($Fixed.Data and $Inference.Data). For $Fixed.Data, see tepDICA
and coreCA
for details on the descriptive (fixed-effects) results.
$Inference.Data returns:
Permutation tests of components. p-values ($p.val) and distributions of total inertia ($inertia.perm)
Permutation tests of R-squared value. p-values ($p.val) and distributions of R2s ($r2.perm)
Permutation tests of components. p-values ($p.vals) and distributions of eigenvalues ($eigs.perm) for each component
Bootstrap tests for $fi and $fj. Contains distributions. See also boot.ratio.test
output details.
Leave one out cross-validation tests. Includes assignments ($loo.assign), factor scores ($loo.fii), LOO and fixed confusion matrices ($loo.confuse, $fixed.confuse), and accuracy ($loo.acc, $fixed.acc)
tepDICA.inference.battery
performs discriminant correspondence analysis and inference tests on based on data and (row) design matrices.
If the expected time to compute the results (based on test.iters
) exceeds 1 minute, you will be asked (via command line) if you want to continue.
# NOT RUN {
data(dica.wine)
data<-dica.wine$data
design<-dica.wine$design
dica.res <-
tepDICA.inference.battery(data,DESIGN=design,
make_design_nominal=FALSE,test.iters=50)
# }
Run the code above in your browser using DataLab