tests/testthat/test_distforest.R

In disttree: Trees and Forests for Distributional Regression

# -------------------------------------------------------------------
# - NAME:   test_distforest.R
# - AUTHOR: Moritz N. Lang, Lisa Schlosser
# - DATE:   2019-08-12
# -------------------------------------------------------------------
# - PURPOSE: Tests for plausibility of forest
# -------------------------------------------------------------------

context("test of plausibility of distforest()'")

## Check classes
tr <- distforest(dist ~ speed, data = cars)
expect_true(all(class(tr) %in% c("distforest", "constparties", "parties")))

##TODO: (ML) Implement further tests for varimp() etc.