Nothing
fmodelseq <-
function(zeta, y, bpar, prior = dnorm, ...) {
if (is.vector(y)) y <- matrix(y, 1, length(y))
m <- ncol(y)
r <- ncol(bpar) + 1
prob <- matrix(0, m, r)
storage.mode(y) <- "integer"
storage.mode(bpar) <- "double"
storage.mode(prob) <- "double"
tmp <- .Fortran("fmodelseq", zeta = as.double(zeta), y = y,
m = as.integer(m), r = as.integer(r), s = as.integer(nrow(y)),
bpar = bpar, loglik = as.double(0), prob = prob)
return(list(post = tmp$loglik + log(prior(zeta, ...)), prob = tmp$prob))
}
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.