# przyklad 1.2.

x<-seq(0,1, length=100)
y<-cos(8*x)+rnorm(100,mean=0,sd=0.25)

plot(x, y, main="Metoda rzutowania")
ss.ppr<-ppr(x,y,nterms=1)
lines(x,ss.ppr$fitted.values)