6.1 Nichtlineare Glätter für äquidistante (Zeit-)Punkte

		# Tukey smoothing source( " kuh.txt " ) kuh <- kuh/25+36 pdf("smooth1.pdf",width=6,height=5) par(mar=c(4,4,1,1)) plot(kuh,xlab="Tag",ylab="Temperatur [°C]",cex.lab=1.2) dev.off()
		# Tukey smoothing source( " kuh.txt " ) kuh <- kuh/25+36 # 3 (medians of 3) pdf("smooth2.pdf",width=6,height=5) par(mar=c(4,4,1,1)) plot(kuh,xlab="Tag",ylab="Temperatur [°C]",cex.lab=1.2) lines(smooth(kuh,kind="3"),lty=2) lines(smooth(kuh,kind="3R"),lty=1) legend("topright",legend=c("3","3R"),lty=c(2,1)) dev.off()