1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#' @rdname summarysparr
#' @method summary msden
#' @export
summary.msden <- function(object,...){
cat("Multi-scale Adaptive Kernel Density/Intensity Estimate\n\n")
h0r <- round(object$h0range,4)
h0v <- as.numeric(names(object$z))
h0l <- length(h0v)
cat("Available global bandwidth range\n (",h0r[1],", ",h0r[2],") ",unitname(object$z[[1]])[[2]],"\n",sep="")
cat(" Discretised sequence of length",h0l,"\b: ")
cat(round(h0v,4),"\n",sep=", ")
cat("\b\b\b.")
cat("\n\nNo. of observations\n ",npoints(object$pp),"\n")
cat("\nEvaluation per slice\n ",nrow(object$z[[1]])," x ",ncol(object$z[[1]])," rectangular grids\n ",sum(!is.na(as.vector(as.matrix(object$z[[1]]))))," grid cells out of ",prod(dim(object$z[[1]]))," fall inside study region\n",sep="")
}
|
