library("photobiology")
context("generic_spct")
test_that("constructor", {
my.spct <- data.frame(w.length = 400:409, x = 1)
setGenericSpct(my.spct)
expect_equal(class(my.spct)[1], c("generic_spct") )
expect_equal(attr(my.spct, "spct.version", exact = TRUE), 2)
expect_true(is.any_spct(my.spct))
expect_true(is.generic_spct(my.spct))
expect_equal(names(my.spct), c("w.length", "x"))
expect_is(my.spct, "generic_spct")
expect_is(my.spct, "data.frame")
expect_equal(min(my.spct), 400)
expect_equal(max(my.spct), 409)
expect_equal(range(my.spct), c(400, 409))
expect_equal(expanse(my.spct), 9)
expect_equal(midpoint(my.spct), (400 + 409) / 2)
my.b.spct <- data.frame(w.length = 0:101, x = 1)
expect_error(setGenericSpct(my.b.spct))
old.options <- options(photobiology.verbose = TRUE)
my.b.spct <- data.frame(w.length = 9999:10001, x = 1)
expect_warning(setGenericSpct(my.b.spct))
options(old.options)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.