File: plot.mppm.R

package info (click to toggle)
r-cran-spatstat.core 2.4-4-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 6,440 kB
  • sloc: ansic: 4,402; sh: 13; makefile: 5
file content (25 lines) | stat: -rw-r--r-- 715 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#
# plot.mppm.R
#
#   $Revision: 1.6 $  $Date: 2020/12/19 05:25:06 $
#
#

plot.mppm <- function(x, ..., trend=TRUE, cif=FALSE, se=FALSE,
                      how=c("image", "contour", "persp")) {
  xname <- deparse(substitute(x))
  how <- match.arg(how)
  subs <- subfits(x)
  dont.complain.about(subs)
  arglist <- resolve.defaults(list(x=quote(subs), how=how),
                              list(...),
                              list(main=xname))
  if(trend) 
    do.call(plot, c(arglist, list(trend=TRUE, cif=FALSE, se=FALSE)))
  if(cif) 
    do.call(plot, c(arglist, list(trend=FALSE, cif=TRUE, se=FALSE)))
  if(se) 
    do.call(plot, c(arglist, list(trend=FALSE, cif=FALSE, se=TRUE)))
  invisible(NULL)
}