[英]Weighted lagged calculation in R
我有幾個數據集(以下簡短示例)
> print(partOne)
[1] 0.010966943 -0.006819522 -0.007189830 0.039736714 0.002013070
[6] -0.043946666 0.003808415 0.199010991 -0.094001478 -0.053006526
[11] -0.051489992 0.019122283 -0.011215761 0.057408738 -0.020809564
[16] -0.041295915 0.010134001 -0.011398076
> print(part2)
[1] 0.13070012 0.15793754 0.06980192 0.13270089 0.11384798 0.24417631
[7] 0.10363273 0.09182783 0.12217490 0.47649356 0.33660955 0.23079863
[13] 0.21581061 0.13967763 0.05988797 0.28255164 0.16277804 0.12716975
[19] 0.19299641 0.21452418
我需要用當前part2值除以N個先前part2值的總和來加權每個partOne值。
因此,對於上面的簡短示例(每個數組中有20個值),偽代碼為:
嘗試這個
x[11:20]*y[11:20]/sapply(1:10,function(t) sum(y[t:(t+9)]))
數據
x <- rnorm(20)
y <- rnorm(20)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.