115
правок
Изменения
→Пример
====Пример====
В этом примере мы попытаемся локально регрессировать и сгладить медианную продолжительность безработицы на основе набора экономических данных из пакета ggplot2 языка R. Мы рассматриваем только первые 80 строк для этого анализа, поэтому легче наблюдать степень сглаживания на приведенных ниже графиках.<br>
# data(economics, package="ggplot2") # загрузка данных
economics$index <- 1:nrow(economics) # создание индексной переменной
economics <- economics[1:80, ] # усечение до 80 строк для более наглядного демонстрирования
loessMod10 <- loess(uempmed ~ index, data=economics, span=0.10) # 10% параметр сглаживания span
loessMod25 <- loess(uempmed ~ index, data=economics, span=0.25) # 25% параметр сглаживания span
loessMod50 <- loess(uempmed ~ index, data=economics, span=0.50) # 50% параметр сглаживания span
# получить сглаженный результат
smoothed10 <- predict(loessMod10)
smoothed25 <- predict(loessMod25)
smoothed50 <- predict(loessMod50)
===Другие алгоритмы борьбы с выбросами===
