Nothing
`summary.haplo.glm` <-
function(object, ...)
{
o <- object
coe <- o$coe
se <- sqrt(diag(o$var.mat)[1:length(coe)])
z <- coe/se
p <- 2-2*pnorm(abs(z))
list( coeficients = cbind(coe,se,z,p) )
}
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.