data(GaussianExample)
fit_xrnet <- xrnet(
x = x_linear,
y = y_linear,
external = ext_linear,
family = "gaussian"
)
lambda1 <- fit_xrnet$penalty[10]
lambda2 <- fit_xrnet$penalty_ext[10]
coef_xrnet <- predict(
fit_xrnet,
p = lambda1,
pext = lambda2,
type = "coefficients"
)
pred_xrnet <- predict(
fit_xrnet,
p = lambda1,
pext = lambda2,
newdata = x_linear,
type = "response"
)
Run the code above in your browser using DataLab