Пользовательская функция R дисперсии дает мне NA - PullRequest
Новая
       15

Пользовательская функция R дисперсии дает мне NA

0 голосов
/ 23 марта 2020

Я новичок в R и не могу понять, почему я получаю NA: 

get_vr <- function(vector){
  vr = 0
  for(i in 1:8435){
    vr <- vr + (vector[i]-vector[i+1])^2
  }
  return(vr)
}
x <- get_vr(vol)
x

(длина (об.) Дает 8436)

об. Выглядит так: 

> vol
   [1] 35222060874 29893183716 30934096509 30835736946 25922656496 29432489719 32378792851 30682598115 34398744403
  [10] 28647338393 22177678796 19647331549 24397913026 25770680779 22600204051 24097418512 26422375678 34217320471

это вывод: 


> get_var <- function(vector){
+   var = 0
+   for(i in 1:8435){
+     var <- var + (vector[i]-vector[i+1])^2
+   }
+   return(var)
+ }
> x <- get_var(vol)
> x
[1] NA
...