library(psych)
library(tidyverse)
# loading and formatting data
data(AIBS, package = "ShinyItemAnalysis")
AIBSwide <- AIBS %>%
pivot_wider(ID, values_from = Score, names_from = RevCode) %>%
select(-ID)
head(AIBSwide)
ICC(AIBSwide)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.