Nothing
stderr.saery.AR1 <-
function(fit) {
Finv <- solve(fit[[2]])
sigma1.std.err <- sqrt(Finv[1,1])
sigma2.std.err <- sqrt(Finv[2,2])
rho.std.err <- sqrt(Finv[3,3])
beta.std.err <- sqrt(as.vector(diag(fit[[5]])))
return( list(beta.std.err, c(sigma1.std.err, sigma2.std.err, rho.std.err)) )
}
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.