knitr::opts_chunk$set(echo = TRUE, message=F, warning = F)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.