ChangeAssessment = list(
# thetaPre: matrix where column one is the ability and column 2 the se
wald = function(thetaPre, thetaPost) {
cbind(wald = (thetaPost[, 1] - thetaPre[, 1]) / sqrt((thetaPre[, 2] ^ 2) + (thetaPost[, 2] ^ 2)), p = NA)
}
# likelihood ratio test
# score test
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.