Running examples in ‘spatstat.data-Ex.R’ failed
The error most likely occurred in:

> ### Name: betacells
> ### Title: Beta Ganglion Cells in Cat Retina
> ### Aliases: betacells
> ### Keywords: datasets spatial
> 
> ### ** Examples
> 
>    plot(betacells)
>   if(require(spatstat.geom)) {
+    area <- marks(betacells)$area
+    plot(betacells %mark% sqrt(area/pi), markscale=1)
+    }
Loading required package: spatstat.geom
spatstat.geom 2.3-0

 *** caught segfault ***
address 0x62, cause 'memory not mapped'

Traceback:
 1: title(main = main, cex = cex.main.rela, col = gparam$col.main,     font = gparam$font.main)
 2: (function (x, main, add = FALSE, ..., box, edge = 0.04, type = c("w",     "n"), show.all = !add, hatch = FALSE, hatchargs = list(),     invert = FALSE, do.plot = TRUE, claim.title.space = FALSE,     use.polypath = TRUE) {    if (missing(main))         main <- short.deparse(substitute(x))    W <- x    verifyclass(W, "owin")    if (!do.plot)         return(invisible(as.rectangle(W)))    type <- match.arg(type)    if (missing(box) || is.null(box)) {        box <- is.mask(W) && show.all    }    else stopifnot(is.logical(box) && length(box) == 1)    pt <- prepareTitle(main)    main <- pt$main    nlines <- pt$nlines    xlim <- xr <- W$xrange    ylim <- yr <- W$yrange    gparam <- resolve.defaults(list(...), par())    cex.main.user <- resolve.1.default(list(cex.main = 1), list(...))    cex.main.rela <- cex.main.user * par("cex.main")    cex.main.absol <- cex.main.rela * par("cex")    if (!add) {        if (claim.title.space && nlines > 0) {            guesslinespace <- 0.07 * sqrt(diff(xr)^2 + diff(yr)^2) *                 cex.main.absol            added <- (nlines + 1) * guesslinespace            ylim[2] <- ylim[2] + added        }        do.call.plotfun(plot.default, resolve.defaults(list(x = numeric(0),             y = numeric(0), type = "n"), list(...), list(xlim = xlim,             ylim = ylim, ann = FALSE, axes = FALSE, asp = 1,             xaxs = "i", yaxs = "i", xlab = "", ylab = ""), .MatchNull = FALSE))    }    if (show.all && nlines > 0) {        if (claim.title.space) {            mainheight <- sum(strheight(main, units = "user",                 cex = cex.main.rela))            gapheight <- (strheight("b\nb", units = "user", cex = cex.main.rela) -                 2 * strheight("b", units = "user", cex = cex.main.rela))            if (nlines > 1 && !is.expression(main))                 main <- paste(main, collapse = "\n")            text(x = mean(xr), y = yr[2] + mainheight + 0.5 *                 gapheight, labels = main, cex = cex.main.rela,                 col = gparam$col.main, font = gparam$font.main)        }        else {            title(main = main, cex = cex.main.rela, col = gparam$col.main,                 font = gparam$font.main)        }    }    if (box)         do.call.plotfun(segments, resolve.defaults(list(x0 = xr[c(1,             2, 2, 1)], y0 = yr[c(1, 1, 2, 2)], x1 = xr[c(2, 2,             1, 1)], y1 = yr[c(1, 2, 2, 1)]), list(...)))    if (type == "n")         return(invisible(as.rectangle(W)))    switch(W$type, rectangle = {        Wpoly <- as.polygonal(W)        po <- Wpoly$bdry[[1]]        dont.complain.about(po)        do.call.plotfun(polygon, resolve.defaults(list(x = quote(po)),             list(...)), extrargs = "lwd")        if (hatch) do.call(add.texture, append(list(W = quote(W)),             hatchargs))    }, polygonal = {        p <- W$bdry        col.poly <- resolve.defaults(list(...), list(col = NA))$col        den.poly <- resolve.defaults(list(...), list(density = NULL))$density        no.fill <- is.null(den.poly) && (is.null(col.poly) ||             is.na(col.poly))        if (no.fill) triangulate <- FALSE else {            holes <- unlist(lapply(p, is.hole.xypolygon))            triangulate <- any(holes)        }        if (!triangulate) {            for (i in seq_along(p)) {                p.i <- p[[i]]                dont.complain.about(p.i)                do.call.plotfun(polygon, resolve.defaults(list(x = quote(p.i)),                   list(...)), extrargs = "lwd")            }        } else {            if (use.polypath && !(names(dev.cur()) %in% c("xfig",                 "pictex", "X11"))) {                ppa <- owin2polypath(W)                do.call.plotfun(polypath, resolve.defaults(ppa,                   list(border = col.poly), list(...)))            } else {                broken <- try(break.holes(W))                if (inherits(broken, "try-error")) {                  warning("Unable to plot filled polygons")                } else {                  pp <- broken$bdry                  for (i in seq_len(length(pp))) {                    ppi <- pp[[i]]                    dont.complain.about(ppi)                    do.call.plotfun(polygon, resolve.defaults(list(x = quote(ppi),                       border = col.poly), list(...)))                  }                }            }            for (i in seq_along(p)) {                p.i <- p[[i]]                dont.complain.about(p.i)                do.call.plotfun(polygon, resolve.defaults(list(x = quote(p.i)),                   list(density = 0, col = NA), list(...)), extrargs = "lwd")            }        }        if (hatch) do.call(add.texture, append(list(W = quote(W)),             hatchargs))    }, mask = {        coldefault <- c(par("bg"), par("fg"))        col <- resolve.defaults(list(...), spatstat.options("par.binary"),             list(col = coldefault))$col        if (length(col) == 1) {            col <- unique(c(par("bg"), col))            if (length(col) == 1) col <- c(par("fg"), col)        }        if (invert) col <- rev(col)        if (spatstat.options("monochrome")) col <- to.grey(col)        xcol <- W$xcol        yrow <- W$yrow        zmat <- t(W$m)        dont.complain.about(xcol, yrow, zmat)        do.call.matched(image.default, resolve.defaults(list(x = quote(xcol),             y = quote(yrow), z = quote(zmat), add = TRUE), list(col = col),             list(...), spatstat.options("par.binary"), list(zlim = c(FALSE,                 TRUE))))        if (hatch) do.call(add.texture, append(list(W = quote(W)),             hatchargs))    }, stop(paste("Don't know how to plot window of type", sQuote(W$type))))    return(invisible(as.rectangle(W)))})(x = xwindow, add = TRUE, main = "betacells %mark% sqrt(area/pi)",     type = "w", show.all = TRUE, invert = TRUE)
 3: do.call(plot.owin, resolve.defaults(list(x = quote(xwindow),     add = TRUE, main = main, type = if (show.window && !clipped) "w" else "n",     show.all = show.all), list(...), list(invert = TRUE)))
 4: plot.ppp(betacells %mark% sqrt(area/pi), markscale = 1)
 5: plot(betacells %mark% sqrt(area/pi), markscale = 1)
An irrecoverable exception occurred. R is aborting now ...