R/print.sp3.R

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

Defines functions print.sp3

Documented in print.sp3

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