library("testthat")
library("spectrolab")
context("Spectra conversion")
test_that("matrix is converted to spectra", {
expect_s3_class( as_spectra(spec_matrix_example, name_idx = 1), "spectra" )
})
test_that("data frame is converted to spectra", {
expect_s3_class( as_spectra( as.data.frame(spec_matrix_example), name_idx = 1), "spectra" )
})
test_that("spectra is converted to matrix", {
expect_true( is.matrix(as.matrix( as_spectra(spec_matrix_example, name_idx = 1) )))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.