Running ‘add.R’ [23s/23s]
  Running ‘ade4-functions.R’ [31s/31s]
  Running ‘adegraphics.R’
  Running ‘nbgraph.R’
  Running ‘panelSpatial.R’
  Running ‘parameter.R’
  Running ‘s.arrow.R’
  Running ‘s.class.R’
  Running ‘s.corcircle.R’
  Running ‘s.density.R’
  Running ‘s.distri.R’
  Running ‘s.image.R’
  Running ‘s.label.R’
  Running ‘s.logo.R’
  Running ‘s.match.R’
  Running ‘s.traject.R’
  Running ‘s.value.R’
  Running ‘s1d.barchart.R’
  Running ‘s1d.boxplot.R’
  Running ‘s1d.class.R’
  Running ‘s1d.density.R’
  Running ‘s1d.distri.R’
  Running ‘s1d.gauss.R’
  Running ‘s1d.hist.R’ [14s/14s]
  Running ‘s1d.label.R’
  Running ‘s1d.match.R’
  Running ‘table.image.R’
  Running ‘table.value.R’
  Running ‘triangle.R’
Running the tests in ‘tests/panelSpatial.R’ failed.
Complete output:
  > library(ade4)
  > library(adegraphics)
  Registered S3 methods overwritten by 'adegraphics':
    method         from
    biplot.dudi    ade4
    kplot.foucart  ade4
    kplot.mcoa     ade4
    kplot.mfa      ade4
    kplot.pta      ade4
    kplot.sepan    ade4
    kplot.statis   ade4
    scatter.coa    ade4
    scatter.dudi   ade4
    scatter.nipals ade4
    scatter.pco    ade4
    score.acm      ade4
    score.mix      ade4
    score.pca      ade4
    screeplot.dudi ade4
  
  Attaching package: 'adegraphics'
  
  The following objects are masked from 'package:ade4':
  
      kplotsepan.coa, s.arrow, s.class, s.corcircle, s.distri, s.image,
      s.label, s.logo, s.match, s.traject, s.value, table.value,
      triangle.class
  
  > library(sp)
  > pdf("panelSpatial.pdf")
  > 
  > ## ex1
  > data(mafragh, package = "ade4")
  > dfxy1 <- coordinates(mafragh$Spatial)
  > g1 <- s.label(dfxy1, Sp = mafragh$Spatial, pSp.col = colorRampPalette(c("yellow", "blue"))(97), pgrid.draw = FALSE, plabels.cex = 0)
  > 
  > 
  > ## ex2
  > data(meuse, package = "sp")
  > coordinates(meuse) <- ~ x + y
  > data(meuse.grid, package = "sp")
  > m <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")], data = meuse.grid)
  > data(meuse.riv)
  > meuse.sr <- SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)), "meuse.riv")))
  > 
  > scale1 <- list("SpatialPolygonsRescale", offset = c(179900, 329600), scale = 500, fill = c("transparent", "black"), layout.scale.bar())
  > text11 <- list("sp.text", c(179900, 329700), "0")
  > text21 <- list("sp.text", c(180400, 329700), "500 m")
  > arrow1 <- list("SpatialPolygonsRescale", offset = c(178750, 332500), scale = 400, layout.north.arrow())
  > river <- list("sp.polygons", meuse.sr, fill = "lightblue")
  > dfxy2 <- as.data.frame(coordinates(meuse))
  > g2 <- s.value(dfxy2, z = meuse[, 1]$cadmium, sp.layout = list(scale1, text11, text21, arrow1, river), Sp = m)
  > 
  > fac <- meuse@data$ffreq
  > levels(fac)[1] <- "1 in 2 years"
  > levels(fac)[2] <- "1 in 10 years"
  > levels(fac)[3] <- "1 in 50 years"
  > arrow2 <- list("SpatialPolygonsRescale", layout.north.arrow(), offset = c(181750, 330000), scale = 400)
  > scale2 <- list("SpatialPolygonsRescale", layout.scale.bar(), offset =  c(178050, 333600), scale = 500, fill = c("transparent", "black"))
  > text12 <- list("sp.text", c(178050, 333700), "0")
  > text22 <- list("sp.text", c(178550, 333700), "500 m")
  > g3 <- s.class(dfxy2, fac = fac, sp.layout = list(scale2, text12, text22, arrow2, river), starSize = 1, col = c(1, 2, 4), pellipses.col = c(1, 2, 4), 
  +   pellipses.alpha = 0.7, plines.lty = 3, psub.text = "Flooding frequency \n near the Meuse river", psub.pos = c(0.2, 0.88), pgrid.text.cex = 0,
  +   porigin.include = FALSE, Sp = meuse.sr)
  > 
  > ## ex3
  > library(Guerry)
  Error in library(Guerry) : there is no package called 'Guerry'
  Execution halted