Nothing
find_trunc <-
function (mu, y) {
n <- dim(mu)[1]
nsp <- dim(mu)[2]
eps <- 10 ^ -7
trunc <- array(-Inf, dim = c(n, nsp, 2))
trunc[, , 2] <- -mu - eps
ind <- which(t(y) == 1)
trunc[, , 1][ind] <- (eps - mu)[ind]
trunc[, , 2][ind] <- Inf
trunc
}
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.