spareg (version 1.1.1)

get_model: Extractor of Specific Model from 'spar' and 'spar.cv' Object

Description

Extractor of Specific Model from 'spar' and 'spar.cv' Object

Usage

get_model(object, opt_par = c("best", "1se"))

Value

A 'spar' or 'spar.cv' object where the beta and intercept elements are the ones which correspond to the best or the 1se model.

Arguments

object

A fitted 'spar' or 'spar.cv' model

opt_par

One of "best", "1se"

Examples

example_data <- simulate_spareg_data(n = 100, p = 400, ntest = 100)
spar_res <- spar(example_data$x, example_data$y, xval = example_data$xtest,
  yval = example_data$ytest, screencoef = screen_cor(),
  rp = rp_gaussian(), nummods=c(5, 10))
best_model <- get_model(spar_res, opt_par = "best")
# \donttest{
spar_cv <- spar.cv(example_data$x, example_data$y,
  screencoef = screen_cor(),
  rp = rp_gaussian(), nummods = c(5, 10), nfolds = 4L)
best_model_cv <- get_model(spar_cv, opt_par = "best")
onese_model_cv <- get_model(spar_cv, opt_par = "1se")
# }