# Data simulation
set.seed(1)
simul <- SimulateRegression(pk = 50)
# Running the LASSO
mylasso <- PenalisedRegression(
xdata = simul$xdata, ydata = simul$ydata,
Lambda = c(0.1, 0.2), family = "gaussian"
)
# Using glmnet arguments
mylasso <- PenalisedRegression(
xdata = simul$xdata, ydata = simul$ydata,
Lambda = c(0.1), family = "gaussian",
penalty.factor = c(rep(0, 10), rep(1, 40))
)
mylasso$beta_full
Run the code above in your browser using DataLab