context("Test for lets.field")
data(PAM)
range <- lets.rangesize(x = PAM, units = "cell")
test_that("lets.field works fine", {
field <- lets.field(PAM, range, PAM$S)
expect_equal(class(field), "data.frame")
expect_true(ncol(field) == 2)
expect_true(nrow(field) == length(PAM$S))
})
test_that("lets.field works fine, weigth = FALSE", {
field <- lets.field(PAM, range, PAM$S, weight = FALSE)
expect_equal(class(field), "data.frame")
expect_true(ncol(field) == 2)
expect_true(nrow(field) == length(PAM$S))
})
test_that("lets.field works fine, count = TRUE", {
field <- lets.field(PAM, range, PAM$S, count = TRUE)
expect_equal(class(field), "data.frame")
expect_true(ncol(field) == 2)
expect_true(nrow(field) == length(PAM$S))
})
test_that("lets.field works fine, matrix and xy = TRUE", {
field <- lets.field(PAM[[1]], range, PAM$S, xy = TRUE)
expect_equal(class(field), "data.frame")
expect_true(ncol(field) == 2)
expect_true(nrow(field) == length(PAM$S))
})
test_that("lets.field works fine, matrix and xy = FALSE", {
field <- lets.field(PAM[[1]][, -(1:2)], range, PAM$S, xy = FALSE)
expect_equal(class(field), "data.frame")
expect_true(ncol(field) == 2)
expect_true(nrow(field) == length(PAM$S))
})
test_that("lets.field error expected, matrix without xy", {
expect_error(lets.field(PAM[[1]], range, PAM$S))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.