RSE_output <-
Factorial_Invariance(data = data_RSE_sex, group = 'gender',
LV_keys = c(1, 1, 2, 1, 2, 1, 1, 2, 2, 2),
LV_names = c('pos', 'neg'))
PLOT_Invariance(model_object = RSE_output,
invar_model = 'Configural',
plot_types = c('loadings', 'ints_slopes'),
loadings_std = TRUE, loadings_by_factor = TRUE)
# \donttest{
HS_1939_output <-
Factorial_Invariance(data = data_HS_1939, group = 'school',
LV_keys = c(1,1,1, 2,2,2, 3,3,3),
LV_names = c('visual', 'textual', 'speed'))
PLOT_Invariance(model_object = HS_1939_output,
invar_model = 'Scalar',
plot_types = c('LV_distribs'))
# }
Run the code above in your browser using DataLab