library(prcr)
library(tidyLPA)
d <- pisaUSA15
m3_prcr <- create_profiles_cluster(d,
broad_interest, enjoyment, self_efficacy,
n_profiles = 3)
plot_profiles(m3_prcr, to_center = TRUE)
m3_lpa <- create_profiles_mclust(d,
broad_interest, enjoyment, self_efficacy,
n_profiles = 3)
plot_profiles_mclust(m3_lpa, to_center = TRUE)