# Data simulation
set.seed(1)
simul <- SimulateRegression(n = 100, pk = 50, family = "gaussian") # simulated data
# Lambda grid for linear regression
Lambda <- LambdaGridRegression(
xdata = simul$xdata, ydata = simul$ydata,
family = "gaussian", Lambda_cardinal = 20
)
# Grid can be used in VariableSelection()
stab <- VariableSelection(
xdata = simul$xdata, ydata = simul$ydata,
family = "gaussian", Lambda = Lambda
)
print(SelectedVariables(stab))
Run the code above in your browser using DataLab