# TODO: Add comment # # Author: Administrator ############################################################################### #install.packages("bitops") #install.packages("RCurl") #install.packages("XML") #install.packages("plyr") #import library needed for dowloading data library(bitops) library(RCurl) library(XML) library(plyr) #read data from excel #读取数据前将xls转换成csv文件 sa <- read.csv("AAA.csv", stringsAsFactors = FALSE); sb <- read.csv("BBB.csv", stringsAsFactors = FALSE); #dowload data days <- 6 endday <-Sys.Date() from <- endday - days to <- endday symbol <- '' url <- '' result <- data.frame(name = character(), code = character(), stringsAsFactors = FALSE) for(ii in 1:length(sa[,1])){ print(ii) symbol = paste('sh',sa[ii,1],sep='') url=paste('http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=',symbol,'&end_date=',to,'&begin_date=',from,sep='') raw <- getURL(url) tryCatch({ cutData= do.call(rbind, xmlToList(raw)) cutlength = length(cutData[,1]) #if(length(cutData[,1]) == days){ v3 = (as.numeric(cutData[cutlength-2,2]) + as.numeric(cutData[cutlength-2,4]))/2 ; v2 = (as.numeric(cutData[cutlength-1,2]) + as.numeric(cutData[cutlength-1,4]))/2; v1 = (as.numeric(cutData[cutlength,2]) + as.numeric(cutData[cutlength,4]))/2; if(as.numeric(cutData[cutlength-2,2]) > as.numeric(cutData[cutlength-2,4]) && as.numeric(cutData[cutlength-1,2]) > as.numeric(cutData[cutlength-1,4]) && as.numeric(cutData[cutlength,2]) <= as.numeric(cutData[cutlength,4])){ if(v3 > v2 && v2>v1){ newData = data.frame(name=sa[ii,2],code=sa[ii,1]) result = rbind(result,newData) } } #} },error = function(e){ "" }) } for(jj in 1:length(sb[,1])){ print(jj) symbol = paste('sz',sb[jj,1],sep='') url=paste('http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=',symbol,'&end_date=',to,'&begin_date=',from,sep='') raw <- getURL(url) tryCatch({ cutData= do.call(rbind, xmlToList(raw)) cutlength = length(cutData[,1]) #if(length(cutData[,1]) == days){ v3 = (as.numeric(cutData[cutlength-2,2]) + as.numeric(cutData[cutlength-2,4]))/2 ; v2 = (as.numeric(cutData[cutlength-1,2]) + as.numeric(cutData[cutlength-1,4]))/2; v1 = (as.numeric(cutData[cutlength,2]) + as.numeric(cutData[cutlength,4]))/2; if(as.numeric(cutData[cutlength-2,2]) > as.numeric(cutData[cutlength-2,4]) && as.numeric(cutData[cutlength-1,2]) > as.numeric(cutData[cutlength-1,4]) && as.numeric(cutData[cutlength,2]) <= as.numeric(cutData[cutlength,4])){ if(v3 > v2 && v2>v1){ newData = data.frame(name=sa[jj,2],code=sa[jj,1]) result = rbind(result,newData) } } #} },error = function(e){ "" }) } fileName <- paste('result',Sys.Date(),'.csv',sep='') write.csv(result, file = fileName)
相关推荐
au_temp.cfg是华为手机,荣耀手机的升级工具,适用于在三键强刷无用情况下使用,救砖用的! 使用方应运 1、下载华为对应机型的的卡刷包 2、解压后将dload目录复制到SD卡根目录下 3、复制本au_temp.cfg 到此目录下 4...
au_temp.cfg
oracle temp表空间不足解决方法
支持一键清理计算机TEMP缓存,支持一键清理计算机TEMP缓存,支持一键清理计算机TEMP缓存,支持一键清理计算机TEMP缓存
帮助清理电脑的垃圾文件,扫描所有temp类的文件清理
temp_data1234
temp-dir 获取系统临时目录的真实路径
TEMP-SAMPLE-20100201-参考资料
temp_1663671135489.apk
TIA博途中FB和FC块里的IN,Inout,Out的区别以及Static和Temp变量的用法
此文件为华为官网提供的自动刷机文件。使用时1、下载华为的刷机...3、复制au_temp.cfg 到此目录。4、重启手机,不用按任何按键,手机会自动开始刷机。 本人测试手机为华为4X全网通的。警告:在刷机前请备份自己的数据。
Window命令行 实例 清除temp文件 下载链接 实例 清除temp文件 下载链接
S7-200SMART PLC中使用临时变量TEMP无法实现自锁功能的解决办法
C# 清理 Temp 文件.txtC# 清理 Temp 文件.txt
Core Temp是一款小巧精致、实用可靠的处理器内核温度识别工具软件。软件以监控CPU核心温度为主要目的,能够实现对温度和CPU占用率的实时监控,运行后会会以用户设定的刷新时间逐条记录温度和CPU频率软件所记录的温度...
TIA博途中临时变量Temp的基本概念解析
test_socket_(temp).rar
如何释放TEMP表空间占用的大量硬盘空间。
temp_study.rartemp_study.rartemp_study.rartemp_study.rartemp_study.rar