revdep/checks.noindex/gbts/old/gbts.Rcheck/tests/testthat/test-utility-mse.R

In gbm-developers/gbm: Generalized Boosted Regression Models

context('utility-mse')

test_that("utility-mse: y = yhat", {
  mtdt <- list(y = 1:10,
               yhat = 1:10,
               w = rep(1, 10),
               rss = 0,
               sow = 10)
  expect_equal(mse(mtdt), 0)
})

test_that("utility-mse: y != yhat", {
  mtdt <- list(y = 1:10,
               yhat = c(1:5 - 0.1, 6:10 + 0.1),
               w = rep(1, 10),
               rss = 0.1,
               sow = 10)
  expect_equal(round(mse(mtdt), 3), 0.01)
})