R/predict.scalreg.R

In scalreg: Scaled Sparse Linear Regression

Defines functions predict.scalreg

Documented in predict.scalreg

predict.scalreg <-
function(object, newX=NULL,...) {
	if(is.null(newX))
		y = fitted(object)
	else{
		y=as.vector(newX%*%object$coefficients)
	}
	y
}

Try the scalreg package in your browser