Nothing
summary.superthin <- function(object, ...)
{
x <- object
k <- x$k
n <- nrow(x$residuals)
vol <- diff(x[[1]]$xcoord) * diff(x[[1]]$ycoord) * diff(x[[1]]$tcoord)
n.exp <- k * vol
if(n < n.exp)
p.val <- ppois(n, n.exp)
if(n > n.exp)
p.val <- ppois(n, n.exp, lower.tail = FALSE)
if(n == n.exp)
p.val <- 1
Y <- list(k = k, n = n, n.exp = n.exp, p.val = p.val)
class(Y) <- "summary.superthin"
return(Y)
}
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.