Ring vectors в R

hours2 <- rep(hours,2)
sum(hours2[seq(5L,-5L,-1L) + length(hours)] * constants) / 42
alternative <- sum(hours[seq(2,1,-1,-2) %% length(hours)] * constants) / 42

в alternative нужно ноль «вырезать»

Идею я понял, а что под константами имелось в виду? Хотя я уже понял реализацию. rep(hours) :)

Спасибо.

что это за бред?

сгладить надо было элементы вектора, но анонимус уже подсказал как.

hours2 <- c(hours[19:24], hours, hours[1:6])
offset = length(hours[19:24])

Так что нет, не бред.

Опять какой то бредогенератор :(

твой offset это просто (24-19)+1 , нафига его считать через «вот так»?

первое это оригинальный вектор к которому какого то хуана приделано его же первые шесть элементов сзади и шесть последних элементов спереди...

какое «сглаживание» такая операция имеет в виду?

ЗЫ есть нормальная библиотека для статистики таких данных http://circstatinr.st-andrews.ac.uk/

Вот обзор в статье https://cran.r-project.org/web/packages/isocir/vignettes/isocir.pdf

мозг можно сломать над такими «вопросами»...

Ну и поскольку я понял что за сглаживание желается, просто читаем

?filter

и находим вожделенный circular в нем как параметр.

Все в R (как всегда) «украдено до нас» :)

поправлюcь, alternative нужно 1-based сделать:

hours[(seq(index,index-k,-1) %% length(hours))+1]

Идею я понял, а что под константами имелось в виду?

ну в коде вопроса «зашифровано» умножение векторов, второй вектор имелся ввиду

А вот такую вещь можно без цикла сделать?

for (i in seq(1, 24, by = 1)){
  CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR==i, hours[i])
}

ты опять херню написал, прочитай ?replace и что такое list в этой функции

Так я видел, оно без индексов не работает.

вот полный код:

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 и числовая обработка быстрее.

я просто оставлю это здесь

> replace
function (x, list, values) 
{
    x[list] <- values
    x
}

> CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR, hours)
Warning message:
In x[list] <- values :
  number of items to replace is not a multiple of replacement length

> CURRENTHOUR <- replace(CURRENTHOUR, CURRENTHOUR[hours], hours)
Warning message:
In x[list] <- values :
  number of items to replace is not a multiple of replacement length

У меня индекс вектора hours хранится в _значении_ CURRENTHOUR. А не индекс к индексу.

О я придумал, надо реверснуть CURRENTHOUR, к индексу часов привязать индексы CURRENTHOUR.

(утверждение) ты наркоман

CURRENTHOUR[seq(1, 24, by = 1) %in% CURRENTHOUR] <- hours[seq(1, 24, by = 1)]

Это цикл, а не вектор.

Это ровно то чего ты просил.

Кстати R оказался очень хорошим средством прототипирования для intrinsic функций.

тебя ждут еще более удивительные открытия :)