# \donttest{
sim <- simulate_fmi_data(N_A = 20, N_B = 20, T_points = 30)
fmi_results <- run_fmi(
Y_mat = sim$Y_mat,
group_vec = sim$group_vec,
argvals = sim$argvals,
n_perms = 9,
progress = FALSE
)
# This will run only if scalar invariance passed
if (!is.null(fmi_results$scalar) && fmi_results$scalar$passed) {
mean_results <- compare_latent_means(fmi_results, sim$group_vec)
print(mean_results)
}
# }
Run the code above in your browser using DataLab