[R] Forcing the extrapolation of loess through the origin

[jimm-panse at gmx.de]

Hi all,

I'm fitting a line to my dataset. Later I want to predict missing values that exceed the [min,max] interval of my empirical data, therefore I choose surface="direct" for extrapolation.

l1<-loess(y1~x1,span=0.1,data.frame(x=x1,y=y1),control=loess.control(surface="direct"))

In my application it is highly important that the fitted line intercepts at the point of origin. Is it possible to do this in R?

Thanks in advance.

Cheers,
Torsten
--