GROUP.PROFILES(data = data_DFA$Ho_2014,
groups = 'group_1_fac',
variables = c("fast_ris", "disresp", "sen_seek", "danger"),
rescale= 'data',
plot_type ='bar',
bar_type = 'separate')
# \donttest{
#first run DFA
DFA_output <- DFA(data = data_DFA$Field_2012,
groups = 'Group',
variables = c('Actions','Thoughts'),
predictive = TRUE,
priorprob = 'EQUAL',
covmat_type='separate',
verbose = TRUE)
# then produce a profile plot of the group centroids on the discriminant functions
GROUP.PROFILES(data = DFA_output$dfa_scores,
groups = 'group',
variables = c('Function.1','Function.2'),
rescale= 'no',
plot_type ='profile',
bar_type = 'separate')
# }
Run the code above in your browser using DataLab