# \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
ggplot2::ggplot()+
ggplot2::stat_function(fun=latent_distribution, args=list(M1))+
ggplot2::lims(x=c(-6,6), y=c(0,0.5))
# }
Run the code above in your browser using DataLab