プロジェクトの移動平均を計算したいと考えています。しかし、私はこれが吹いたコードを理解していません。移動平均コードに関する詳細情報を取得するにはどうすればよいですか?
cx <- c(0, cumsum(ifelse(is.na(x), 0, x)))
cn <- c(0, cumsum(ifelse(is.na(x), 0, 1)))0
rx <- cx[(n+1):length(cx)] - cx[1:(length(cx) - n)]
rn <- cn[(n+1):length(cx)] - cn[1:(length(cx) - n)]
rsum <- rx / rn