## Not run:
# ## SIMULATION OF A RESPONSE PATTERN WITH 60 ITEMS
# nItems <- 60
# a <- rep(1.702,nItems); b <- seq(-4,4,length=nItems)
# c <- rep(0,nItems); d <- rep(1,nItems)
# nSubjects <- 1
# theta <- -1
# S <- 0.0
# C <- 0.5
# D <- 0.0
#
# set.seed(seed = 100)
# x <- ggrm4pl(n=nItems, rep=1,
# theta=theta, S=S, C=C, D=D,
# s=1/a, b=b,c=c,d=d)
#
# ## Likelihood curves, person parameters estimates
# # and log likelihood of models graphed
# test <- likelihoodCurve(x=x, s=1/a, b=b, c=c, d=d, color=TRUE,
# main="Likelihood Curve",
# xlab=expression(theta), ylab=NULL, zlab="P(X)",
# type="wireframe" , grain=50, limitD=c(0,1),
# logLikelihood=FALSE, annotate=TRUE )
#
# # Contentd of the object test
# test$plotT
# test$plotC
# test$plotS
# test$plotD
# test$par
# round(test$logLikelihood,2)
#
# ## Graph of all the likelihood function curves
# groupLikelihoodCurves(test$plotT, test$plotS, test$plotC, test$plotD,
# main=NULL, cex=0.7)
# ## End(Not run)
Run the code above in your browser using DataLab