diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 20:19:51 -0500 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 20:19:51 -0500 |
| commit | 6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089 (patch) | |
| tree | 0cf43714e1252ae833e473dc6beed6ddad953663 /R/run.sparsestep.R | |
| parent | added authors and dependencies (diff) | |
| download | sparsestep-6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089.tar.gz sparsestep-6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089.zip | |
bugfixes, documentation improvements, and generic function agreement
Diffstat (limited to 'R/run.sparsestep.R')
| -rw-r--r-- | R/run.sparsestep.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/run.sparsestep.R b/R/run.sparsestep.R index 43017c9..0b32fd4 100644 --- a/R/run.sparsestep.R +++ b/R/run.sparsestep.R @@ -1,8 +1,8 @@ # Core SparseStep routine. This could be implemented in a low-level language # in the future, if necessary. # -run.sparsestep <- function(XX, Xy, nvars, lambda, gamma0, gammastep, gammastop, - IMsteps, force.zero, threshold) { +run.sparsestep <- function(x, y, XX, Xy, nvars, lambda, gamma0, gammastep, + gammastop, IMsteps, force.zero, threshold) { # Start solving SparseStep gamma <- gamma0 beta <- matrix(0.0, nvars, 1) |