# przyklad 1.1.

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

plot(x, y, main="S=0,2")
lines(ksmooth(x, y, "normal", bandwidth=0.2))

plot(x, y, main="S=0.8")
lines(ksmooth(x, y, "normal", bandwidth=0.8))