# NOT RUN {
ip <- itempool(a = c(1, 1.4), b = c(-2, 1))
testlet(ip, id = "T1")
testlet(ip, id = "T1", content = "Algebra")
# Add misc field to the testlet:
testlet(ip, id = "T1", misc = list(form = "A1", operational = TRUE,
admin_date = as.Date("2020-08-01")))
# Add misc field to the testlet items:
testlet(itempool(b = rnorm(2), id = paste0("t1-i", 1:2),
misc = list(list(sympson_hetter_k = .8, form = "B1"),
list(sympson_hetter_k = .9))),
id = "t1")
# }
Run the code above in your browser using DataLab