Изменения

Выброс

342 байта добавлено, 12:45, 25 января 2019

→‎Пример на языке R

smoothed25 <- predict(loessMod25)

smoothed50 <- predict(loessMod50)

# Нарисовать

plot(economics$uempmed, x=economics$date, type="l", main="Локально взвешенное сглаживание", xlab="Дата", ylab="Безработица")

lines(smoothed10, x=economics$date, col="red")

lines(smoothed25, x=economics$date, col="green")

lines(smoothed50, x=economics$date, col="blue")

{|align="center"

|-valign="top"

115

правок