#Italienische Weine
IW <- read.table("...ItalWine.txt",header=T,sep="\t", quote="");attach(IW)
names(IW)

#lowess
plot(Flavanoids,Nonflavanoid)
lines(lowess(Flavanoids,Nonflavanoid,f=0.5,iter=3,delta=0))
lines(lowess(Flavanoids,Nonflavanoid,f=0.3,iter=3,delta=0),col=2)

#loess
plot(Flavanoids,Nonflavanoid)
aa1<-loess(Nonflavanoid~Flavanoids,span=0.5, family="symmetric",iter=4,degree=1)
o<-order(Flavanoids)
lines(aa1$x[o],aa1$fitted[o],col=3)
aa2<-loess(Nonflavanoid~Flavanoids,span=0.5,degree=1)


#scatter.smooth
JavaGD()
scatter.smooth(Flavanoids,Nonflavanoid)

#lowess Parameter?
plot(Flavanoids,Nonflavanoid)
lines(lowess(Flavanoids,Nonflavanoid,f=0.5,iter=3,delta=0))
lines(lowess(Flavanoids,Nonflavanoid,f=0.5,delta=0),col=2)
lines(lowess(Flavanoids,Nonflavanoid,f=0.5,iter=1,delta=0),col=4)
lines(lowess(Flavanoids,Nonflavanoid,f=0.5,iter=0,delta=0),col=5)