@konhis
Приветствую!
Можно задать вопрос по урокам data.table? А именно по уроку 1.

Там были задачи:
Задача1: создать колонку с текстом XX from YY, (пример рез-та: C-3P0 from Tattooine)

# как решил её я

library(data.table)

sw <- fread('http://bit.ly/39aOUne')

sw[, new_col := planet_name]
sw[, new_col := paste(name, new_col, sep = ' from ')]

sw[1:3]


Вопрос: Возможно тупое решение))) Возможно ли сделать в одно действие сразу, а не как у меня 2 действия в 2 строки?

и еще можно вопрос по data.table
В уроке 1 была Задача 2: Замените NA в mass на медиану по ряду

sw[gender == 'n/a'] # работает тип данных chr
sw[mass == 'n/a']   # не работает тип данных num
str(sw)


Вопрос: тут столкнулся с проблемой, что вот так sw[mass == 'n/a'] отфильтровать таблицу, где тип данных num невозможно, см. скриншот ниже. Как быть?

Добрый день! Подскажите, пожалуйста. Пытаюсь сделать прогноз на скользящем окне, на одну точку вперед. Как сделать циклом- придумал, но он работает очень медленно. Можно это как-то векторизовать?

 

slide.arima <- function(x, window=36) {

  result <- rep(-999, length(x))
 result[1:window] <- NA
 for (i in (window+1):length(x)){

    result[i] <- (x[(i-window):(i-1)] %>% ts(frequency = 12) %>% auto.arima() %>%  forecast(h=1))$mean[1]  
}

  return(result)

}

x <- sin(1:100)

system.time(slide.arima(x))

пользователь      система       прошло

      122.63         0.01       122.73

 

И второй вопрос: выражение ( %>% … %>%...)$mean[1] выглядит как-то неправильно. Можно ли вместо скобок и $mean[1] сделать что-то более читаемое или и так считается норм?

В них надо обернуть $ и [

вы путаете строковое значение 'n/a' и NA. второе - это спец.тип данных в R, обозначет пропуск. для того, чтобы проверить на пропуск, используют функцию is.na()

Добрый день! Подскажите, пожалуйста. Пытаюсь сделать прогноз на скользящем окне, на одну точку вперед. Как сделать циклом- придумал, но он работает очень медленно. Можно это как-то векторизовать?

 

slide.arima <- function(x, window=36) {

  result <- rep(-999, length(x))
 result[1:window] <- NA
 for (i in (window+1):length(x)){

    result[i] <- (x[(i-window):(i-1)] %>% ts(frequency = 12) %>% auto.arima() %>%  forecast(h=1))$mean[1]  
}

  return(result)

}

x <- sin(1:100)

system.time(slide.arima(x))

пользователь      система       прошло

      122.63         0.01       122.73

 

И второй вопрос: выражение ( %>% … %>%...)$mean[1] выглядит как-то неправильно. Можно ли вместо скобок и $mean[1] сделать что-то более читаемое или и так считается норм?

Здравствуйте! Скажите, пожалуйста, а linear probability model (LPM) используется для классификации в реальной жизни, а не только в учебных целях?

Банки любят логистическую регрессию, вроде как

А можно ещё вопрос по задачке 2:
с is.na я понял, спасибо!
а вот медиану проставить вместо NA не получается
проверил, вот по такой конструкции фильтрация таблицы происходит: sw[is.na(mass)]
по такой конструкции значение 555 вставляется в NA: sw[is.na(mass), mass := 555]
а вот медиана не вставляется: sw[is.na(mass), mass := median(mass, na.rm = TRUE)]
Как я понял по последней конструкции получается вектор с единичным значением, а вектор не может быть использован, чтобы его пометить в нужную ячейку?

Подскажите, пож)))
Скриншот с результатами ниже, где получается, а где нет 🙂

так вы в первом вырадении заменяете na, во втором их уже просто нет. вот и не работает