Forlus에 추가하는 방법 R

Question

빠른 질문이 있습니다. 나는 각 시리즈의 12 개 원소의 평균을 취하고 싶다. 나는 folowing 코드가있다 :

PPrateav = NULL 
for (i in 80) { 
    PPrateav[i] = sum(PPrate[1+(i-1)*12:(i*12)])/12 
} 

나는 문제가 어디 있는지 볼 수 없다. 감사.

Answer 1

이

library(zoo) 
PPrateav <- rollapply(PPrate, width=12, mean, by=12) 

이 width 및 by 인수에 대한 자세한 내용은 ?rollapply를 참조 트릭을 할 것입니다.

당신이 정말로 for 루프를 사용하려는 경우,이 새로운 버전으로 원래 루프를 변경해보십시오 :

PPrateav <- NULL 
for (i in 1:floor(length(PPrate)/12)) { 
    PPrateav[i] = mean(PPrate[(1+(i-1)*12):(i*12)]) 
}