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 <- coef(
fit_xrnet,
p = lambda1,
pext = lambda2,
)
Run the code above in your browser using DataLab