## load example data
data(GaussianExample)
## 5-fold cross validation
cv_xrnet <- tune_xrnet(
x = x_linear,
y = y_linear,
external = ext_linear,
family = "gaussian",
control = xrnet_control(tolerance = 1e-6)
)
## contour plot of cross-validated error
plot(cv_xrnet)
## error curve of external penalties at optimal penalty value
plot(cv_xrnet, p = "opt")
Run the code above in your browser using DataLab