# Data simulation (univariate outcome)
set.seed(1)
simul <- SimulateRegression(pk = 50)
# Running the LASSO
mylasso <- SelectionAlgo(
xdata = simul$xdata, ydata = simul$ydata,
Lambda = c(0.1, 0.2), family = "gaussian",
)
# Data simulation (multivariate outcome)
set.seed(1)
simul <- SimulateRegression(pk = 50, q = 3)
# Running multivariate Gaussian LASSO
mylasso <- SelectionAlgo(
xdata = simul$xdata, ydata = simul$ydata,
Lambda = c(0.1, 0.2), family = "mgaussian"
)
str(mylasso)
Run the code above in your browser using DataLab