作者poker0531 (破壳)
看板R_Language
标题[问题] 连续正值或负值的次数
时间Fri May 3 13:01:58 2019
文章分类提示:
- 问题: 当你想要问问题时，请使用这个类别。
建议先到 http://tinyurl.com/mnerchs 搜寻本板旧文。
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
范例如下, 想做出 PnL 栏连续正值或负值出现的次数,
查了一下找不到, 不知道是不是关键字问题, 恳请各路大神教我, 谢谢!
GrzTimes = 连续正值的次数
LeZTimes = 连续负值的次数
[程式范例]:
test
Date PnL GrZTimes LeZTimes
1 2012-11-28 -1521.0 0 0
2 2012-12-05 -453.1 0 1
3 2012-12-12 96.9 0 0
4 2012-12-19 72.9 1 0
5 2012-12-26 522.2 2 0
6 2013-01-02 12.8 3 0
7 2013-01-09 389.8 4 0
8 2013-01-16 -69.4 0 0
9 2013-01-23 492.4 1 0
10 2013-01-30 -0.8 0 0
[环境叙述]:
[关键字]:
连续次数,MDD,DD
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.137.162.62
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1556859722.A.095.html
※ 编辑: poker0531 (223.137.162.62), 05/03/2019 13:07:05
※ 编辑: poker0531 (223.137.162.62), 05/03/2019 13:07:49
1F：推 celestialgod: cumsum(PnL > 0)-1类似这样就可以了 05/03 15:32
2F：推 celestialgod: 啊啊啊啊 我忘记要重设了 05/03 15:33
我试着写了个function用lapply去套也不行@@
myFun<-function(x){
if(x>0){
cumsum(x>0)-1
}else{0}
}
请问哪里出问题...
※ 编辑: poker0531 (223.137.162.62), 05/03/2019 16:18:58
4F：→ bboybighead2: 这样应该行得通 05/03 16:53
感谢大神, 成功了!
※ 编辑: poker0531 (223.137.162.62), 05/03/2019 17:11:26