Barycentric Discriminant Analysis (BADA) Inference Battery via TInPosition.
tepBADA.inference.battery(DATA, scale = TRUE, center = TRUE, DESIGN = NULL,
make_design_nominal = TRUE,
group.masses = NULL, weights = NULL,
graphs = TRUE, k = 0,
test.iters = 100, critical.value = 2)
original data to perform a BADA on.
a boolean, vector, or string. See expo.scale
for details.
a boolean, vector, or string. See expo.scale
for details.
a design matrix to indicate if rows belong to groups. Required for BADA.
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 items.
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 tepBADA
and corePCA
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)
tepBADA.inference.battery
performs barycentric discriminant 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(bada.wine)
data<-bada.wine$data
design <- bada.wine$design
bada.res <-
tepBADA.inference.battery(data,scale=FALSE,DESIGN=design,
make_design_nominal=FALSE,test.iters=50)
# }
Run the code above in your browser using DataLab