# Example: 5 persons × 3 items, responses 1–4
df <- data.frame(
Pid = paste0("P", 1:5),
Item1 = c(1, 2, 3, 2, 1),
Item2 = c(2, 3, 4, 2, 1),
Item3 = c(3, 4, 1, 2, 2)
)
raw <- load_epmfd(df, id_col = "Pid", likert_levels = 4)
str(raw)
Run the code above in your browser using DataLab