R/print.sp2.R

In baddstats/spherstat: Spatial Point Pattern Analysis, Geometry and Trigonometry for the Sphere

Defines functions print.sp2

Documented in print.sp2

print.sp2 <- function(x, ...) {
	stopifnot(inherits(x, "sp2"))
	nrX <- nrow(x$X)
	cat("Spherical point pattern: ", nrX, " points.", fill=TRUE)
	cat("\n", print.sphwin(x$win))
}