# Simulate response data for 5 items
set.seed(42)
resp_data <- data.frame(
item1 = rnorm(100, mean = 3, sd = 1),
item2 = rnorm(100, mean = 2, sd = 0.8),
item3 = rnorm(100, mean = 4, sd = 1.2),
item4 = rnorm(100, mean = 3.5, sd = 0.9),
item5 = rnorm(100, mean = 2.5, sd = 1.1)
)
library(LCPA)
# Generate and display plot
p <- plotResponse(resp_data)
print(p)
# For data with many items (18 items example)
many_items <- as.data.frame(replicate(18, rnorm(50, mean = runif(1, 1, 5), sd = 1)))
names(many_items) <- paste0("Q", 1:18)
p_large <- plotResponse(many_items)
print(p_large)
Run the code above in your browser using DataLab