## Not run:
# #############################################################################
# # EXAMPLE 1: Dichotomous data data.sim.rasch
# #############################################################################
#
# data(data.sim.rasch)
# mod <- tam.mml(data.sim.rasch)
# # expected response curves
# plot(mod, items=1:5, export=FALSE)
# # item response curves
# plot(mod, items=1:5, type="items" , export=FALSE)
# # plot with graphics package
# plot(mod, items=1:5, type="items" , export=FALSE , ask=TRUE , package="graphics")
#
# #############################################################################
# # EXAMPLE 2: Polytomous data
# #############################################################################
#
# data(data.Students, package="CDM")
# dat <- data.Students[ , c("sc3","sc4" , "mj1" , "mj2" )]
# dat <- na.omit(dat)
# dat[ dat[,1] == 3 , 1 ] <- 2 # modify data
# dat[ 1:20, 2 ] <- 4
#
# # estimate model
# mod1 <- tam.mml( dat )
# # plot item response curves and expected response curves
# plot(mod1, type="items", export=FALSE)
# plot(mod1, type="expected", export=FALSE )
# ## End(Not run)
Run the code above in your browser using DataLab