context("Multivariate Regression with Decision Tree Model")
test_that("MVR DT functions", {
set.seed(1)
tr <- bearing[1:(nrow(bearing)/2), -1]
ob <- bearing[, -1]
model <- el.mvrDt(tr, alpha = 0.05)
score <- el.mvrDtScore(ob, model$fit)
expect_equal(round(sum(score), 5), 2.06486)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.