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