tests/testthat/test-accessor_functions.R

In smwindecker/mixchar: Mixture Model for the Deconvolution of Thermal Decay Curves

context("Test for accessor functions")

test_that("accessor functions return correct values", {

  data(juncus)
  tmp <- process(juncus, 18.96, 'temp_C', mass_loss = 'mass_loss')
  output <- deconvolve(tmp, lower_temp = 130, upper_temp = 660)

  expect_equal(temp_bounds(output), output$temp_bounds)
  expect_identical(rate_data(tmp), tmp$data)
  expect_identical(model_fit(tmp), tmp$minpack.lm)
  expect_identical(component_weights(output), output$weights)

  params <- as.data.frame(summary(output$model_fit)$coefficients[,1])
  colnames(params) <- 'parameter_value'
  params$parameter_name <- row.names(params)
  row.names(params) <- c()
  params <- params[,c(2,1)]

  expect_identical(model_parameters(output), params)

})