Content - 75053af0a5b6d323ca59a00c19e6fb8290b7c69d

Permalink

"predict.sreg" <-
function(out, x, derivative = 0, model = 1)
{
	if(missing(x))
		x <- out$xraw
	c(splint(out$predicted$x, out$predicted$y[, model], x, derivative = 
		derivative))
}