tests/testthat/test-multicores.R

test_that("multicores works", {
  data("ndvi")
  expect_equal(opgd(NDVIchange ~ ., data = ndvi,
                    discvar = c("Tempchange","Precipitation","GDP","Popdensity"),
                    discnum = 3:6, cores = 1),
               opgd(NDVIchange ~ ., data = ndvi,
                    discvar = c("Tempchange","Precipitation","GDP","Popdensity"),
                    discnum = 3:6, cores = 2))
})

Try the gdverse package in your browser

Any scripts or data that you put into this service are public.

gdverse documentation built on April 3, 2025, 8:40 p.m.