R/HMFA.R

Defines functions HMFA

Documented in HMFA

#The HMFA function within DiDiSTATIS
#
#'Conduct Hierarchical MFA
#'
#'@param DATA The data
#'@param data_are Flag to indicate data type #sort, d_array, d2_array, CP_array
#'@param DESIGN_rows List of DESIGN info for rows
#'@param DESIGN_tables List of DESIGN info for tables
#'@param n2k Number (of components) to keep
#'@return A list of computational results
#'@export

HMFA <- function(DATA, data_are, DESIGN_rows, DESIGN_tables, n2k=NULL){

  #Convert data to CP
  CP_array <- GetCP_array(DATA, data_are)

  ##Step 1: Identify table weights and compute Grand Compromise
  HMFA_collapsed <- GetGrandConsensus(CP_array, DESIGN_rows, DESIGN_tables)

  ##Step 2: Decompose the Grand Compromise
  res_HMFA <- EigenHMFA(HMFA_collapsed, DESIGN_rows, DESIGN_tables, n2k)

  input <- list(DATA = DATA,
                data_are = data_are,
                DESIGN_rows = DESIGN_rows,
                DESIGN_tables = DESIGN_tables)

  returnME <- list(input = input,
                   HMFA_collapsed = HMFA_collapsed,
                   res_HMFA = res_HMFA)

  return(returnME)

}
michaelkriegsman/DiDiSTATIS documentation built on May 16, 2020, 7:31 a.m.