R/ltsbaseDefault.R

Defines functions ltsbaseDefault

Documented in ltsbaseDefault

ltsbaseDefault <-
function(xdata,y,alpha=alpha, by=by){

	
	est=ltsbase(xdata,y,alpha=alpha, by=by)
        est$fitted.values <- as.matrix(xdata)%*%as.matrix(est$list.coef.all)

	est$residuals <- y - est$fitted.values
        est$call=match.call()

class(est)= "ltsbase"

results=list(fitted.val=est$fitted.values,res=est$residuals)
results
}

Try the ltsbase package in your browser

Any scripts or data that you put into this service are public.

ltsbase documentation built on May 2, 2019, 8:31 a.m.