# \donttest{
# Data generation and model fitting
data <- DataGeneration(N=1000,
nitem_D = 15,
latent_dist = "2NM",
d = 1.664,
sd_ratio = 2,
prob = 0.3)$data_D
M1 <- IRTest_Dich(data = data, latent_dist = "KDE")
# Plotting the latent distribution
plot(x = M1, linewidth = 1, color = 'red') +
ggplot2::lims(x = c(-6, 6), y = c(0, .5))
# }
Run the code above in your browser using DataLab