Nothing
con.vals <-
function(x, y, n, j, k)
{
a <- con.parms(x, y, n, j, k, 1, 1)
nr <- nrow(a$theta)
est <- a$theta[nr, ]
b <- con.est(x[j], x[k], est)
eta <- c(b$eta1, b$eta2)
beta <- c(b$a0, b$a1, b$b0, b$b1, b$c0, b$c1)
tau <- c(x[j], x[k])
list(eta = eta, beta = beta, tau = tau)
}
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.