vignettes/MFA/MFA_v2.R

In michaelkriegsman/DiDiSTATIS: Run DiDiSTATIS and related methods

#MFA vignette (& ToDo List)

rm(list=ls())
library(DiDiSTATIS)

## 1. Load:
source('C:/Users/Michael A. Kriegsman/Box Sync/Dissertation/RStudio2Git/DiDiSTATIS/vignettes/My Examples/Initialize_Balanced_Dowling_NaturalStimuli_Example.R')

## 2. Run MFA!
res_MFA <- MFA(DATA = Sort_balanced, data_are = 'sort',
               DESIGN_rows = DESIGN$rows$Comp,
               DESIGN_tables = DESIGN$tables$MusExp)


library(PlotDiDiSTATIS)

Plot_MFA_F(res_MFA, axes = c(1,2), Flip_axis1 = TRUE, Flip_axis2 = FALSE)
Plot_MFA_F.k(res_MFA, axes = c(1,2), k = 3, Flip_axis1 = TRUE, Flip_axis2 = FALSE)
Plot_MFA_FiK(res_MFA, axes = c(1,2), i = c(20, 33), Flip_axis1 = TRUE, Flip_axis2 = FALSE)

#### to print results to a new pptx ####
source('C:/Users/Michael A. Kriegsman/Box Sync/Dissertation/RStudio2Git/DiDiSTATIS/vignettes/MFA/Print_MFA_to_pptx.R')