blob: 8a4be1a4ff2490e2e05528b55d641d785f43d0ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#' @title Make predictions from a SparseStep model
#'
#' @description Predicts the outcome variable for the SparseStep model for
#' each value of lambda supplied to the model.
#'
#' @param object Fitted "sparsestep" object
#' @param newx Matrix of new values for `x` at which predictions are to be made.
#'
#' @return a matrix of numerical predictions of size nobs x nlambda
#'
#' @export
#' @aliases predict
#'
#' @examples
#' x <- matrix(rnorm(100*20), 100, 20)
#' y <- rnorm(100)
#' fit <- sparsestep(x, y)
#' yhat <- predict(fit)
#'
predict.sparsestep <- function(obj, newx)
{
yhat <- newx %*% as.matrix(obj$beta)
if (obj$intercept) {
yhat <- yhat + rep(1, nrow(yhat)) %*% obj$a0
}
return(yhat)
}
|
