DiDiSTATIS: Conduct Discriminant DiSTATIS
In michaelkriegsman/DiDiSTATIS: Run DiDiSTATIS and related methods

Conduct Discriminant DiSTATIS

DiDiSTATIS(DATA, data_are = "sort", n2k = NULL, DESIGN_rows = NULL,
  DESIGN_tables = NULL, MFA1_Flag = TRUE, RV1_Flag = TRUE,
  MFA2_Flag = TRUE, RV2_Flag = TRUE, Perm_omni_sort = F,
  Perm_omni_sort_niter = 1000, Boot_tables = F, Boot_tables_niter = 1000,
  LOO_rows = F, LOO_rows_multiplier = 10, SH_rows = F,
  SH_rows_niter = 100)

`DATA`	The data
`data_are`	Flag to indicate data type #sort, sort_dist, d_array, d2_array, CP_array
`n2k`	Number (of components) to keep
`DESIGN_rows`	DESIGN matrix for the rows
`DESIGN_tables`	DESIGN matrix for the tables
`MFA1_Flag`	#TRUE gives MFA-norm; FALSE gives no norm
`RV1_Flag`	# TRUE gives RV; FALSE gives C; "skip" sets alpha-weights to 1/CD (1/N)
`MFA2_Flag`	#TRUE gives MFA-norm; FALSE gives no norm
`RV2_Flag`	# TRUE gives RV; FALSE gives C; "skip" sets alpha-weights to 1/D
`Perm_omni_sort`	Boolean to conduct permutation test on omnibus (for sorting data)
`Perm_omni_sort_niter`	Number of permutation iterations
`Boot_tables`	Boolean to conduct bootstrap resampling on tables
`Boot_tables_niter`	Number of bootstrap iterations
`LOO_rows`	Boolean to conduct Leave One Out (LOO) cross-validation on tables
`LOO_rows_multiplier`	Increase the number of LOO iterations
`SH_rows`	Boolean to conduct Split Half (SH) cross-validation on tables
`SH_rows_niter`	Number of SH iterations