115
правок
Изменения
Выброс
,→Пример на языке R
data(economics, package="ggplot2") <span style="color:green"># загрузка данных</span>
economics$index <- 1:nrow(economics) <span style="color:green"># создание индексной переменной</span>
economics <- economics[1:80, ] <span style="color:green"># усечение до 80 строк для более наглядного демонстрирования</span>
loessMod10 <- loess(uempmed ~ index, data=economics, span=0.10) <span style="color:green"># 10% параметр сглаживания span</span>
loessMod25 <- loess(uempmed ~ index, data=economics, span=0.25) <span style="color:green"># 25% параметр сглаживания span</span>