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

> ### Name: BIB
> ### Title: Data from a balanced incomplete block design
> ### Aliases: BIB
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(BIB)
'data.frame':	24 obs. of  5 variables:
 $ Block    : Factor w/ 8 levels "1","2","3","4",..: 1 1 1 2 2 2 3 3 3 4 ...
 $ Treatment: Factor w/ 4 levels "1","2","3","4": 1 2 3 1 2 4 1 3 4 2 ...
 $ y        : num  31 29 31 29 34 33 31 28 34 39 ...
 $ x        : num  20 18 11 37 37 39 29 12 31 37 ...
 $ Grp      : Factor w/ 2 levels "13","24": 1 2 1 1 2 2 1 1 2 2 ...
 - attr(*, "ginfo")=List of 7
  ..$ formula     :Class 'formula'  language y ~ x | Block
  .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
  ..$ order.groups: logi TRUE
  ..$ FUN         :function (x)  
  ..$ outer       : NULL
  ..$ inner       : NULL
  ..$ labels      : list()
  ..$ units       : list()
> if (require("lattice", quietly = TRUE, character = TRUE)) {
+   xyplot(y ~ x | Block, BIB, groups = Treatment, type = c("g", "p"),
+          aspect = "xy", auto.key = list(points = TRUE, space = "right",
+          lines = FALSE))
+ }

 *** caught segfault ***
address 23, cause 'memory not mapped'


Traceback:
 1: diff.default(xscale)
 2: diff(xscale)
 3: valid.viewport(x, y, width, height, just, gp, clip, xscale, yscale,     angle, layout, layout.pos.row, layout.pos.col, name)
 4: viewport(y = (which.given - 0.5)/length(which.panel), height = 1/length(which.panel),     clip = trellis.par.get("clip")$strip, name = paste(lattice.getStatus("current.prefix"),         "strip.default", which.given, sep = "."))
 5: pushViewport(viewport(y = (which.given - 0.5)/length(which.panel),     height = 1/length(which.panel), clip = trellis.par.get("clip")$strip,     name = paste(lattice.getStatus("current.prefix"), "strip.default",         which.given, sep = ".")))
 6: strip(which.given = which.given, which.panel = which.panel, var.name = names(x$condlevels),     factor.levels = as.character(x$condlevels[[x$perm.cond[i]]]),     shingle.intervals = if (is.list(x$condlevels[[x$perm.cond[i]]])) do.call("rbind",         x$condlevels[[x$perm.cond[i]]]) else NULL, horizontal = TRUE,     bg = strip.col.default.bg[i], fg = strip.col.default.fg[i],     par.strip.text = par.strip.text)
 7: printFunction(x, ...)
 8: print.trellis(x)
 9: function (x, ...) UseMethod("print")(x)
An irrecoverable exception occurred. R is aborting now ...