Nothing
test_that("Input entry", {
expect_error(multiple.guidance(input.data = eva[,2:9],
predictand = "evapo_obs",
predictors = "OUT_EVAP"))
expect_error(mg.evaluation(input.data = eva[,2:9],
predictand = "evapo_obs",
predictors = "OUT_EVAP",
var.model = "OUT_EVAP",
lmodel = lm))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.