Running ‘anisotropyChoice.R’ [5s/7s]
  Running ‘biasCorr.R’ [6s/9s]
Running the tests in ‘tests/biasCorr.R’ failed.
Complete output:
  > library(intamapInteractive)
  Loading required package: intamap
  Loading required package: sp
  > set.seed(1)
  > data(meuse)
  > data(meuse.grid)
  > observations = data.frame(x = meuse$x,y = meuse$y,value = log(meuse$zinc))
  > coordinates(observations) = ~x+y
  > gridded(meuse.grid) = ~x+y
  > pBoundaries = spsample(observations, 10, "regular",bb = bbox(observations) +
  +               matrix(c(-400,-400,400,400),ncol=2),offset=c(0,0))
  > gridded(pBoundaries) = TRUE
  > cs = pBoundaries@grid@cellsize[1]/2
  > 
  > Srl = list()
  > nb = dim(coordinates(pBoundaries))[1]
  > for (i in 1:nb) {
  +   pt1 = coordinates(pBoundaries)[i,]
  +   x1 = pt1[1]-cs
  +   x2 = pt1[1]+cs
  +   y1 = pt1[2]-cs
  +   y2 = pt1[2]+cs
  + 
  +   boun = data.frame(x=c(x1,x2,x2,x1,x1),y=c(y1,y1,y2,y2,y1))
  +   coordinates(boun) = ~x+y
  +   boun = Polygon(boun)
  +   Srl[[i]] = Polygons(list(boun),ID = as.character(i))
  + }
  > pBoundaries = SpatialPolygonsDataFrame(SpatialPolygons(Srl),
  +                                       data = data.frame(ID=c(1:nb)))
  > 
  > observations$ID = over(observations, geometry(pBoundaries))
  > blines = findBoundaryLines(pBoundaries,regCode = "ID")
  > 
  > 
  > object = createIntamapObject(observations,meuse.grid,boundaryLines = blines,
  +   params = list(removeBias = "regionalBias"))
  [1] "createIntamapObject: formulaString is missing, using:  value~1"
  Warning messages:
  1: In is.na(obsChar) :
    is.na() applied to non-(list or vector) of type 'S4'
  2: In createIntamapObject(observations, meuse.grid, boundaryLines = blines,  :
    createIntamapObject: No prediction locations submitted - sampling from bbox of observations
  > object = biasCorr(object,regCode= "ID")
  interpolating border between  12 9 
  [using ordinary kriging]
  [using ordinary kriging]
  interpolating border between  9 8 
  [using ordinary kriging]
  [using ordinary kriging]
  interpolating border between  5 2 
  [using ordinary kriging]
  [using ordinary kriging]
  Error in data.frame(regCode = uRegCode, cBias) : 
    arguments imply differing number of rows: 8, 6
  Calls: biasCorr -> findRegionalBias -> data.frame
  In addition: Warning messages:
  1: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  2: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  3: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  4: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  5: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  6: In validityMethod(object) :
    duplicate rownames are interpreted by rgeos as MultiPoints; use SpatialMultiPoints to define these; in future sp versions this warning will become an error
  Execution halted