# NOT RUN {
item <- new("Item", model = "3PL", id = 'item23', content = 'Geometry',
misc = list(enemies = c("item1", "item2")),
parameters = list(b = 2, c = .12, a = 1.2, D = 1))
item$a <- 2
item$D <- 1.7
item$id <- "Itm-111"
item$content <- 'Algebra'
item$misc <- list(enemies = c("item5"))
# }
Run the code above in your browser using DataLab