# NOT RUN {
data(transreas2)
# Create Table 4.2 from Sijtsma & Van der Ark (2020)
data.frame (Item = 1: 16,
taskContent = attr(transreas2, which = "taskContent"),
presentationForm = attr(transreas2, which = "presentationForm"),
taskFormat = attr(transreas2, which = "taskFormat"),
pValues = round(apply(transreas2, 2, mean), 2))
# }
Run the code above in your browser using DataLab