R/print.summary.superthin.R

In stppResid: Perform residual analysis on space-time point process models.

print.summary.superthin <- function(x, ...)
{
	cat("Superthin rate: ", x$k, "\n")
	cat("Number of residuals: ", x$n, "\n")
	cat("Expected number of residuals: ", x$n.exp, "\n")
	cat("One-tailed p-value: ", x$p.val)
}