Nothing
loglikltm <-
function (betas, constraint) {
betas <- betas.ltm(betas, constraint, p, q.)
pr <- probs(Z %*% t(betas))
p.xz <- exp(X %*% t(log(pr)) + mX %*% t(log(1-pr)))
p.x <- rep(c(p.xz %*% GHw), obs)
-sum(log(p.x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.