Nothing
colzilogitnorm.est <- function(x) {
p <- dim(x)[2]
param <- matrix(nrow = p, ncol = 4)
colnames(param) <- c("prop1", "mean", "unbiased variance", "loglik")
for (i in 1:p) {
mod <- Compositional::zilogitnorm.est(x[, i])
par[i, ] <- c(mod$param, mod$loglik)
}
param
}
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.