Nothing
beta.calc <-
function(x, y, n, j, k, e1, e2)
{
aa <- wmat(x, y, n, j, k, e1, e2)
W <- aa$w
bb <- rvec(x, y, n, j, k, e1, e2)
R <- bb$r
beta <- solve(W, R)
list(B = beta)
}
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.