Nothing
library(testthat)
library(penaltyLearning)
context('long')
data("neuroblastomaProcessed", package="penaltyLearning")
X.mat <- neuroblastomaProcessed$feature.mat
y.mat <- neuroblastomaProcessed$target.mat
test_that("error for un-logged outputs", {
expect_error({
IntervalRegressionCV(X.mat, exp(y.mat), verbose=1, LAPPLY=lapply)
}, "all targets are non-negative, and there is a big change between quantiles, so outputs are probably un-logged; this function expects real-valued (possibly negative) limits, so please try taking the log of your target matrix, or using check.unlogged=FALSE", fixed=TRUE)
})
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.