Создание формулы суммирования в R

Question

Я новичок в R, и мне задается следующая проблема:

Let

и

быть суммами, которые я пытаюсь воссоздать в R. Прямо сейчас это мой код для первого суммирования (фрагмент кода):

z <- 1:J
L<-1000
D<-0
for(k in z){
  for(j in D:D+L-1){
    X[k] = 1/L*sum(X[j])
  }
}

Я понятия не имел, как создавать латексные формулы в вопросах, поэтому, если вы запускаете фрагменты кода, вы видите формулы, которые я пытаюсь воссоздать в R. Мой вопрос: я на правильном пути?Я не уверен, как использовать цикл для создания суммирования.

Answer 1

J <- 5
L <- 100
D <- 1  # in R we start to count at 1 (one).  (thanks to Darren)

x <- matrix(1:(L*J), nrow = length(D:(D+L-1)), ncol = J)

funXj_ <- function(j, D, L) sum(x[D:(D+L-1), j], na.rm = T)

X_ <- sapply(1:J, funXj_, D = D, L = L)
#5050 15050 25050 35050 45050

Я полагаю, что ваш x_j^t - это своего рода двумерный массив.(поэтому я взял матрицу в качестве примера)

---

мы, конечно, можем изменять наши границы:

J as 4, D as 2, L as 80

sapply(1:4, funXj_, D = 2, L = 80)