R语言选股器制作问题

017911

1938

收藏 2017-09-20

请问这样的R选股代码应如何写？因为TA不是只用股价的资料，而是重覆调用

N1:=10;

N2:=21;

AP:=(HIGH+CLOSE+LOW)/3;

ESA:=EMA(AP,N1); //取AP值的N1天的EMA数据，以下如此类推

D := EMA(ABS(AP - ESA), N1);

CI := (AP - ESA) / (0.015 * D);

TCI := EMA(CI, N2);

WT1:TCI; //TCI作為WT1的值

WT2:MA(WT1,4);

选股条件为WT1>WT2（出现金叉）AND WT1<-53。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

skyfx

2017-9-20 22:15:42

就一列一列地算呗，没有难度。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

017911

2017-9-21 12:02:39

skyfx 发表于 2017-9-20 22:15
就一列一列地算呗，没有难度。

针对一个股票才懂，在整个市场都运算一遍便不懂写。最后我想是输出一个清单／列表

library(quantmod)
getSymbols("GOOG")
chartSeries(GOOG['2007-03-30/2016-12-31'],theme="white")
WT1 = EMA(((GOOG[,2]+GOOG[,3]+GOOG[,4])/3 - EMA((GOOG[,2]+GOOG[,3]+GOOG[,4])/3,N=10)) / (0.015 * EMA(abs((GOOG[,2]+GOOG[,3]+GOOG[,4])/3 - EMA((GOOG[,2]+GOOG[,3]+GOOG[,4])/3,N=10)), N=10)), N=21)
WT2=SMA(WT1,n=4)
addTA(WT1,col="blue")
addTA(WT2,col="red")

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

017911

2017-9-21 15:11:58

有没有方法LIST中不是指定某几只股票，而是交易所中的所有股票？求指教～～～

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

017911

2017-9-21 22:28:37

skyfx 发表于 2017-9-20 22:15
就一列一列地算呗，没有难度。

很有难度吧？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

skyfx

2017-9-24 12:24:29

随便想想就至少有2种方法，看你熟悉哪种，都一样
第一种，by，按股票切块，然后写个函数算你那些指标，用transform加新列，返回就是一个list
第二种，用dplyr包，group_by，自动按股票切块，然后直接mutate加列，算出来是一个data.frame
都是最基本的操作

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群