0
Q
计数观测
A
回答
2
请参阅 “校正” 的功能:
set.seed(2017)
mag <- sample(x = 1000, size = 20)
## Your function, see what is printed
# my_fun <- function(i) {
# print(i)
# print(mag)
# sum(mag > i)
# }
## Corrected one
my_fun <- function(i) {
print(i)
print(tail(i, 1))
sum(i > tail(i, 1))
}
# debug(my_fun) # Play a little with debug(), it is worth it!
mag_out <- zoo::rollapplyr(
# zoo::zoo(mag),
mag,
5,
my_fun,
partial = TRUE,
by.column = FALSE,
fill = NA
)
rbind(
mag,
mag_out
)
输出:
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20]
mag 244 329 987 833 524 112 869 327 488 691 89 224 206 73 803 868 288 365 666 145
mag_out 0 0 0 1 2 4 1 3 2 1 4 3 3 4 0 0 2 2 2 4
+1
非常感谢m-dz! 我没有太多的R经验 - 我会尝试学习如何根据您的建议进行调试。 –
相关问题
- 1. 淘汰赛观测数组计算
- 2. 计算累计观测值的总和
- 3. 计数外观数
- 4. 用于计算可观测Knockout.js
- 5. 在NSMutableArray中观察计数
- 6. R:一类计数观察
- 7. 计数观测变化的条件下在Stata
- 8. 在大熊猫中按日期分组后计数观测值
- 9. 敲除观测数据的计算会导致计算时间变长
- 10. RXJS - 在观测
- 11. SAS_Missing观测
- 12. 观测编号
- 13. 观测量
- 14. 绑定观测
- 15. SAS计数观测数以内的按组,删除一些数据
- 16. Knockout如何计算可观察寄存器与相关的可观测值?
- 17. 收集高阶rxjs可观测数据中的当前不完整观测值
- 18. 使用与观测
- 19. 获取的观测
- 20. RxJs堆栈观测
- 21. Mobx可观测阵
- 22. 观测器模式
- 23. Laravel:观测误差
- 24. CombineLatest和冷观测
- 25. knockoutjs - 可观察数组内部的可观测值
- 26. 使可观测阵可观察
- 27. Knockout.js计算可观察不绑定到可观察数组
- 28. 观测数据的定制PropertyVersions
- 29. 组合布尔观测数据
- 30. 观测数据(图像/阵列/等)
第一个问题是'i'在你的函数是 “窗口” 数据和'mag',如你说,在整个专栏。所以代码绝对不是你上面说的。此外,没有样本数据和预期的输出,如果可以的话,请添加它。 –