Nothing
library(polmineR)
library(data.table)
use("polmineR")
testthat::context("aggregate")
test_that(
"aggregate partition and regions",
{
# the aggregate-method is defined for the slice virtual class which comprises
# the partition and the regions class. Just to be sure, a test is performed
# for both cases
# aggregate a partition
P <- new(
"partition",
cpos = matrix(data = c(1L:10L, 20L:29L), ncol = 2, byrow = TRUE),
stat = data.table()
)
P2 <- aggregate(P)
P2@cpos
expect_equal(nrow(P2@cpos), 2)
expect_equal(P2@cpos[,2] - P2@cpos[,1], c(9, 9))
# aggregate a regions object
P <- new(
Class = "regions",
cpos = matrix(data = c(1L:10L, 20L:29L), ncol = 2, byrow = TRUE)
)
P2 <- aggregate(P)
P2@cpos
expect_equal(nrow(P2@cpos), 2)
expect_equal(P2@cpos[,2] - P2@cpos[,1], c(9, 9))
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.