История изменений
Исправление steemandlinux, (текущая версия) :
Так я видел, оно без индексов не работает.
вот полный код:
length(VTIME)
[1] 73499
CURRENTHOUR <- round(as.numeric(((VTIME)+2001)/10000),0)
CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR==0, 24)
for (i in seq(1, 24, by = 1)){
CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR==i, hours[i])
}
as.date не использую, потому что мне нужен round и числовая обработка быстрее.
Исходная версия steemandlinux, :
Так я видел, оно без индексов не работает.
вот полный код:
length(VTIME)
[1] 73499
CURRENTHOUR <- round(as.numeric(((VTIME)+2001)/10000),0)
CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR==0, 24)
for (i in seq(1, 24, by = 1)){
CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR==i, hours[i])
}