fabian-s / stabpath Goto Github PK

we need proper unit tests

• Fix CHECK note:

checking R code for possible problems ... NOTE
plot.stabpath: no visible global function definition for ‘par’
plot.stabpath: no visible binding for global variable ‘par’
plot.stabpath: no visible global function definition for ‘modifyList’
plot.stabpath: no visible global function definition for ‘hcl’
plot.stabpath: no visible binding for global variable ‘matplot’
plot.stabpath: no visible binding for global variable ‘mtext’
Undefined global functions or variables:
  hcl matplot modifyList mtext par
Consider adding
  importFrom("grDevices", "hcl")
  importFrom("graphics", "matplot", "mtext", "par")
  importFrom("utils", "modifyList")
to your NAMESPACE file.

• add examples

Hi,

Package "stabpath" does not provide any examples nor any data. Therefore it is very difficult to know how to call get_stability_paths() with the right model and data inputs.

However, in my distress I tried the example from lab_stabsel.pdf (out of stabilityselection.zip) from FoRt "25.10. - 01.11. Programmierstil & Programmentwurf".

lab_stabsel.pdf

However, this throws an error:
(strata <- rep(c("s1", "s2", "s3"), each=4))
tapply(X = 1:12, INDEX = strata, FUN = sample, replace = TRUE)

data(prostate)
data <- prostate
max_formula <- lpsa ~ (. - train)
model <- regsubsets(max_formula, data=data, nbest = 1, nvmax = 8,
really.big = TRUE)

set.seed(20141020)
stability_paths <- get_stability_paths(model, data, reps=10)

Error message

Error in leaps::regsubsets(max_formula, data = list(lcavol = c(2.830267834, :
could not find function "leaps::regsubsets"

see stubs in refit.R, get_selected.R
(you may need to modify the travis.yml file as well)

see stubs in refit.R, get_selected.R
(you may need to modify the travis.yml file as well)