data(ExampleData.CW_OSL_Curve, envir = environment())
curve <-
set_RLum(
class = "RLum.Data.Curve",
recordType = "OSL",
data = as.matrix(ExampleData.CW_OSL_Curve)
)
test_that("check class and length of output", {
testthat::skip_on_cran()
expect_s4_class(bin_RLum.Data(curve), class = "RLum.Data.Curve")
expect_length(bin_RLum.Data(curve)[,1], 500)
})
test_that("check values from output example", {
testthat::skip_on_cran()
expect_equal(sum(bin_RLum.Data(curve)[,2]), 119200)
expect_equal(sum(bin_RLum.Data(curve, bin = 5)[1,2]), 41146)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.