Berikut ini beberapa kode / contoh yang memungkinkan Anda membandingkan kecocokan untuk kecocokan loess dan kecocokan spline:
library(TeachingDemos)
library(splines)
tmpfun <- function(x,y,span=.75,df=3) {
plot(x,y)
fit1 <- lm(y ~ ns(x,df))
xx <- seq( min(x), max(x), length.out=250 )
yy <- predict(fit1, data.frame(x=xx))
lines(xx,yy, col='blue')
fit2 <- loess(y~x, span=span)
yy <- predict(fit2, data.frame(x=xx))
lines(xx,yy, col='green')
invisible(NULL)
}
tmplst <- list(
span=list('slider', from=0.1, to=1.5, resolution=0.05, init=0.75),
df=list('slider', from=3, to=25, resolution=1, init=3))
tkexamp( tmpfun(ethanol$E, ethanol$NOx), tmplst )
Anda dapat mencobanya dengan data Anda dan mengubah kode untuk mencoba jenis atau opsi lain. Anda mungkin juga ingin melihat loess.demo
fungsi dalam paket TeachingDemos untuk pemahaman yang lebih baik tentang apa yang dilakukan oleh algorythm loess. Perhatikan bahwa apa yang Anda lihat dari loess seringkali merupakan kombinasi dari loess dengan perataan interpolasi kedua (kadang-kadang itu sendiri spline), loess.demo
fungsi ini sebenarnya menunjukkan fit loess yang dihaluskan dan mentah.
Secara teoritis Anda selalu dapat menemukan spline yang mendekati fungsi kontinu lain sedekat yang Anda inginkan, tetapi tidak mungkin bahwa akan ada pilihan sederhana simpul yang andal akan memberikan perkiraan dekat ke kecocokan loess untuk setiap set data.