楼主: 017911
1227 0

[问答] R语言选股器制作问题 [推广有奖]

  • 0关注
  • 0粉丝

小学生

28%

还不是VIP/贵宾

-

威望
0
论坛币
10 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
49 点
帖子
5
精华
0
在线时间
3 小时
注册时间
2011-9-25
最后登录
2017-9-26

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币

以下有一个筛选器,但问题是:
1.股票清单再长会有问题。请问这个如何解决?
2.股票资料若有缺失会中止运行。请问这个如何解决?
3.获取的股票资料太多,运算太花时间,能否只获取最近一个月的资料?

  1. library(quantmod)
  2. stocks <- c("CC", "CCE", "CCJ", "CCK", "CCMP", "CCO", "CCOI", "CDE", "CDEV", "CDK", "CDW", "CE", "CENT", "CENTA", "CENX", "CEQP", "CFFN", "CFR","CFX", "CG", "CGBD", "CGNX", "CHCO", "CHDN", "CHE", "CHFC", "CHGG", "CHH", "CHKP", "CHS", "CHSP", "CHUBA", "CIEN", "CIGI", "CIM", "CISN", "CIT", "CIU", "CJ", "CLB", "CLDR", "CLF", "CLGX", "CLH", "CLI", "CLNS", "CLR", "CLS", "CLVS", "CM", "CMC", "CMCT", "CMD", "CMP", "CMPR", "CNA", "CNDT", "CNHI", "CNI", "CNK", "CNMD", "CNO", "CNQ", "CNS", "CNSL", "CNX", "CODI", "COHR", "COKE", "COLB", "COLM", "COMM", "CONE", "COR", "CORE", "CORT", "COT", "COTV", "COUP", "CP", "CPA", "CPE", "CPG", "CPK", "CPN", "CPRT", "CPS", "CPT", "CQH", "CQP", "CR", "CREE", "CRI", "CRL", "CRS", "CRUS", "CRZO", "CSFL", "CSGP", "CSGS", "CSJ", "CSL", "CSOD", "CSTM", "CTB", "CTLT", "CTRE", "CUB", "CUBE", "CUDA", "CUZ", "CVA", "CVBF", "CVCO", "CVE", "CVG", "CVGW", "CVI", "CVLT", "CVNA", "CVRR", "CW", "CWH", "CWT", "CXP", "CXW", "CY", "CYBR", "CYS", "CZR", "CZZ", "DAN", "DAR", "DATA")
  3. stockEnv <- new.env()
  4. symbols <- getSymbols(stocks, src='yahoo', env=stockEnv)
  5. for (stock in ls(stockEnv)){
  6.         getSymbols(stock)
  7.         WT1 <- EMA(((stockEnv[[stock]][,2]+stockEnv[[stock]][,3]+stockEnv[[stock]][,4])/3 - EMA((stockEnv[[stock]][,2]+stockEnv[[stock]][,3]+stockEnv[[stock]][,4])/3,N=10)) / (0.015 * EMA(abs((stockEnv[[stock]][,2]+stockEnv[[stock]][,3]+stockEnv[[stock]][,4])/3 - EMA((stockEnv[[stock]][,2]+stockEnv[[stock]][,3]+stockEnv[[stock]][,4])/3,N=10)), N=10)), N=21)
  8.         WT2 <- SMA(WT1,n=4)
  9.         if(tail(WT1,1)>=tail(WT2,1) & tail(WT1,1)<=-63){
  10.                 cat(stock,"is true")}
  11. }
复制代码


二维码

扫码加我 拉你入群

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

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

关键词:R语言 quantmod Library Stocks BRARY

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-6-25 05:35