Running ‘run_testthat.R’ [3s/6s]
  Running ‘test_defineMUM.R’ [3s/4s]
  Running ‘test_genSample_jointSPDF.R’ [3s/4s]
  Running ‘test_genSample_marginalRaster.R’ [4s/6s]
  Running ‘test_genSample_marginalSPDF.R’ [3s/4s]
  Running ‘test_makeCRM.R’ [3s/4s]
  Running ‘test_propagate_raster.R’ [4s/7s]
  Running ‘test_render.R’ [3s/4s]
Running the tests in ‘tests/test_defineMUM.R’ failed.
Complete output:
  > # test -- defineMUM()
  > 
  > library(spup)
  > library(gstat)
  > library(sp)
  > 
  > # test with data from gstat
  > data(meuse)
  > # make spatial
  > coordinates(meuse) = ~x+y
  > # make separate spatial grid data frames for mean and sd
  > m1 <- meuse["zinc"]
  > m1.sd <- m1
  > m1.sd[[1]] <- m1.sd[[1]] * rnorm(n = 155, mean = 1, sd = 0.5)
  > m2 <- meuse["lead"]
  > m2.sd <- m2
  > m2.sd[[1]] <- m2.sd[[1]] * rnorm(n = 155, mean = 1, sd = 0.5)
  > # define srm and UM and sample
  > crm1 <- makeCRM(acf0 = 0.6, range = 100, model = "Sph")
  > crm2 <- makeCRM(acf0 = 0.7, range = 100, model = "Exp")
  > UM1 <- defineUM(uncertain = TRUE, distribution = "norm",
  +                 distr_param = c(m1, m1.sd), crm = crm1)
  > UM2 <- defineUM(uncertain = TRUE, distribution = "norm",
  +                 distr_param = c(m2, m2.sd), crm = crm2)
  > cormat <- matrix(c(1,0.7,0.7,1), nrow = 2, ncol = 2)
  > JointUM <- defineMUM(list(UM1,UM2), cormatrix = cormat)								
  Error in defineMUM(list(UM1, UM2), cormatrix = cormat) : 
    class(cormatrix) == "matrix" are not all TRUE
  Calls: defineMUM -> stopifnot
  Execution halted
Running the tests in ‘tests/test_genSample_jointSPDF.R’ failed.
Complete output:
  > # test -- defineMUM()
  > 
  > library(spup)
  > library(gstat)
  > library(sp)
  > 
  > # test with data from gstat
  > data(meuse)
  > # make spatial
  > coordinates(meuse) = ~x+y
  > # make separate spatial grid data frames for mean and sd
  > m1 <- meuse["zinc"]
  > m1.sd <- m1
  > m1.sd[[1]] <- m1.sd[[1]] * rnorm(n = 155, mean = 1, sd = 0.5)
  > m2 <- meuse["lead"]
  > m2.sd <- m2
  > m2.sd[[1]] <- m2.sd[[1]] * rnorm(n = 155, mean = 1, sd = 0.5)
  > # define srm and UM and sample
  > crm1 <- makeCRM(acf0 = 0.6, range = 200, model = "Exp")
  > crm2 <- makeCRM(acf0 = 0.7, range = 200, model = "Exp")
  > UM1 <- defineUM(uncertain = TRUE, distribution = "norm",
  +                 distr_param = c(m1, m1.sd), crm = crm1, id = "zinc")
  > UM2 <- defineUM(uncertain = TRUE, distribution = "norm",
  +                 distr_param = c(m2, m2.sd), crm = crm2, id = "lead")
  > cormat <- matrix(c(1,0.7,0.7,1), nrow = 2, ncol = 2)
  > JointUM <- defineMUM(list(UM1,UM2), cormatrix = cormat)	
  Error in defineMUM(list(UM1, UM2), cormatrix = cormat) : 
    class(cormatrix) == "matrix" are not all TRUE
  Calls: defineMUM -> stopifnot
  Execution halted