现在好了 谢谢!另外,下面的出错报告是怎么回事呢?
> p=read.table("price.txt")
> p1<-t(p)
> time=read.table("time.txt")
> library(locfit)
> x=t(time)
> y=p1
> result=locfit(y~x,alpha=c(0,1.5),deg=1);
错误于numeric(d * nvc[1]) : 矢量size不能是NA
> e=residuals(result)
> plot(result);
> help.search("错误于numeric(d * nvc[1]) : 矢量size不能是NA")
本文来自: 人大经济论坛 S-Plus&R专版 版,详细出处参考: 
https://bbs.pinggu.org/forum.php? ... amp;from^^uid=3188851