У меня есть два вектора. Один из них с SD=0
df[df$reg_d_msv=="South Asia",]$v1
[1] 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33
[10] 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33
[19] 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33
[28] 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33 14566.33
df[df$reg_d_msv=="South Asia",]$v2
[1] 93892008 61354653 56241340 65564319 80104514 62496272 67807067
[8] 75113966 69887703 211011382 147463256 92625401 77542841 74809658
[15] 111813366 81746146 109734003 187239567 175398275 246171797 403854689
[22] 370957478 337306350 417576685 1076913468 1118794398 1075333807 1648913829
[29] 1054600599 1413105344 1224588226 1189857039 1678745102 1277631398
Как runCor
(из пакета TTR) вычисляет корреляцию движущегося окна для переменных со стандартным deviation = 0
??
runCor(df[df$reg_d_msv=="South Asia",]$v1, df[df$reg_d_msv=="South Asia",]$v2)
[1] NA NA NA NA NA NA
[7] NA NA NA 0.000000e+00 1.257269e-16 -9.622613e-17
[13] 1.318642e-16 0.000000e+00 1.337180e-16 -6.874287e-17 0.000000e+00 -1.265919e-16
[19] 0.000000e+00 0.000000e+00 1.208610e-16 5.194281e-17 0.000000e+00 0.000000e+00
[25] 0.000000e+00 6.988483e-17 0.000000e+00 -5.031278e-17 -5.276821e-17 0.000000e+00
[31] 0.000000e+00 1.250396e-16 0.000000e+00 -2.167966e-16