kx
2 楼
我能算第一作者么?
不过你们到底什么时候吃啊?
不过你们到底什么时候吃啊?
s*y
3 楼
以下程序在执行opt temporary file, 请问如何把temporary file的数据导出到一个TXT文件?
谢谢!
------------------------------------------------------------------
require(fCalendar)
require(fredImport)
## workaround for R 2.1.1:
Sys.timezone as.vector(Sys.getenv("TZ"))
yahoo.getOption tempfile01",method="internal",get.short.rate=TRUE) {
############################################################################
#####################
## get quotes for stock options from Yahoo ###
############################################################################
#####################
## ticker .. Ticker symbol for underlying stock
## maturity .. maturity date of option in format YYYY-MM
## file .. name of temporary file used to store data
## method .. used by 'download.file'
############################################################################
#####################
source http://finance.yahoo.com/q/op?"
url download.file(url = url, destfile = file, method = method)
raw ",quote="");
## throw away file
unlink(file)
start raw
table.starts table.ends
heads subtit expire
if(!all(length(heads) == 16,length(subtit) == 1,length(expire) == 2)
) stop("Unexpected data format")
info.range subtit]))
call.range heads[8]]))
put.range heads[16]]))
info.raw call.raw put.raw
b.pos sm.pos
stock.name Stock.price Quote.date Strike.date
strike.timeDate %Y"), zone="NewYork")
# Quote.date.timeDate FinCenter="NewYork")
Quote.date.timeDate %M:%S %Y"))
TTM timeDate,units="day")))
## remove HTML junk and commas
call.raw put.raw
## discard blank and empty elements
call.raw put.raw
## reshape to matrix
call.mat put.mat if(nrow(call.mat) == 0 || nrow(put.mat) == 0) {
warning(paste("No data available for ticker",ticker,", maturity"
, maturity))
return(NULL)
}
tc
## convert types, make data frames
call.df mat[-1,2]), Last = tc(call.mat[-1,3]), Chg = tc(call.mat[-1,4]),
Bid = tc(call.mat[-1,5]), Ask = tc(call.mat[
-1,6]), Vol = tc(call.mat[-1,7]), Open.Int = tc(call.mat[-1,8]))
put.df [-1,2]), Last = tc(put.mat[-1,3]), Chg = tc(put.mat[-1,4]),
Bid = tc(put.mat[-1,5]), Ask = tc(put.mat[-1
,6]), Vol = tc(put.mat[-1,7]), Open.Int = tc(put.mat[-1,8]))
if(get.short.rate) {
Short.rate } else {
Short.rate }
return(list(call=call.df,put=put.df,Stock.ticker=ticker,Quote.date=
Quote.date.timeDate,Strike.date=strike.timeDate,
Stock.name=stock.name,Stock.price=Stock.price,TTM=TTM,Short.rate=
Short.rate))
}
谢谢!
------------------------------------------------------------------
require(fCalendar)
require(fredImport)
## workaround for R 2.1.1:
Sys.timezone as.vector(Sys.getenv("TZ"))
yahoo.getOption tempfile01",method="internal",get.short.rate=TRUE) {
############################################################################
#####################
## get quotes for stock options from Yahoo ###
############################################################################
#####################
## ticker .. Ticker symbol for underlying stock
## maturity .. maturity date of option in format YYYY-MM
## file .. name of temporary file used to store data
## method .. used by 'download.file'
############################################################################
#####################
source http://finance.yahoo.com/q/op?"
url download.file(url = url, destfile = file, method = method)
raw ",quote="");
## throw away file
unlink(file)
start raw
table.starts table.ends
heads subtit expire
if(!all(length(heads) == 16,length(subtit) == 1,length(expire) == 2)
) stop("Unexpected data format")
info.range subtit]))
call.range heads[8]]))
put.range heads[16]]))
info.raw call.raw put.raw
b.pos sm.pos
stock.name Stock.price Quote.date Strike.date
strike.timeDate %Y"), zone="NewYork")
# Quote.date.timeDate FinCenter="NewYork")
Quote.date.timeDate %M:%S %Y"))
TTM timeDate,units="day")))
## remove HTML junk and commas
call.raw put.raw
## discard blank and empty elements
call.raw put.raw
## reshape to matrix
call.mat put.mat if(nrow(call.mat) == 0 || nrow(put.mat) == 0) {
warning(paste("No data available for ticker",ticker,", maturity"
, maturity))
return(NULL)
}
tc
## convert types, make data frames
call.df mat[-1,2]), Last = tc(call.mat[-1,3]), Chg = tc(call.mat[-1,4]),
Bid = tc(call.mat[-1,5]), Ask = tc(call.mat[
-1,6]), Vol = tc(call.mat[-1,7]), Open.Int = tc(call.mat[-1,8]))
put.df [-1,2]), Last = tc(put.mat[-1,3]), Chg = tc(put.mat[-1,4]),
Bid = tc(put.mat[-1,5]), Ask = tc(put.mat[-1
,6]), Vol = tc(put.mat[-1,7]), Open.Int = tc(put.mat[-1,8]))
if(get.short.rate) {
Short.rate } else {
Short.rate }
return(list(call=call.df,put=put.df,Stock.ticker=ticker,Quote.date=
Quote.date.timeDate,Strike.date=strike.timeDate,
Stock.name=stock.name,Stock.price=Stock.price,TTM=TTM,Short.rate=
Short.rate))
}
m*i
4 楼
1. Chase Freedom Card - $150 Bonus Cash Back + Cashback on Purchases
http://bankbonus.blog.163.com/
2. Chase 力作 continental onepass信用卡 首笔消费就送30000miles(无金额限制)
+$50免费bonus 最新优惠 信用卡首选
http://bankbonus.blog.163.com/
3.Discover More Card $100 bonus 最适合中美间使用的多彩卡片or no balance
transfer fee
http://bankbonus.blog.163.com/
4. 免费的Marriott Hotel 四晚酒店入住 只需消费一笔无金额限制
http://bankbonus.blog.163.com/
5.免费的250刀 Chase SapphireSM Preferred Card需要满足这个offer的条件 优先考
虑哈 里面有指导如何满足条件
http://bankbonus.blog.163.com/
6.免费的美国国内往返机票和美国往返中国机票建议
http://bankbonus.blog.163.com/
最近申请chase家的这个信用卡会弹出一个页面,写着Before you go…We hope you
will reconsider 难不成他们家最近被人拿太多这个免费机票了 不用对它客气,
赶紧点击Return&Apply, 拿到落袋为安。
http://bankbonus.blog.163.com/
。。。。都有详尽的每个步骤申请和使用兑换积分的细节和相应链接,请收藏转发
http://bankbonus.blog.163.com/
http://bankbonus.blog.163.com/
2. Chase 力作 continental onepass信用卡 首笔消费就送30000miles(无金额限制)
+$50免费bonus 最新优惠 信用卡首选
http://bankbonus.blog.163.com/
3.Discover More Card $100 bonus 最适合中美间使用的多彩卡片or no balance
transfer fee
http://bankbonus.blog.163.com/
4. 免费的Marriott Hotel 四晚酒店入住 只需消费一笔无金额限制
http://bankbonus.blog.163.com/
5.免费的250刀 Chase SapphireSM Preferred Card需要满足这个offer的条件 优先考
虑哈 里面有指导如何满足条件
http://bankbonus.blog.163.com/
6.免费的美国国内往返机票和美国往返中国机票建议
http://bankbonus.blog.163.com/
最近申请chase家的这个信用卡会弹出一个页面,写着Before you go…We hope you
will reconsider 难不成他们家最近被人拿太多这个免费机票了 不用对它客气,
赶紧点击Return&Apply, 拿到落袋为安。
http://bankbonus.blog.163.com/
。。。。都有详尽的每个步骤申请和使用兑换积分的细节和相应链接,请收藏转发
http://bankbonus.blog.163.com/
b*i
6 楼
temporary file 是什么?
【在 s********y 的大作中提到】
: 以下程序在执行opt : temporary file, 请问如何把temporary file的数据导出到一个TXT文件?
: 谢谢!
: ------------------------------------------------------------------
: require(fCalendar)
: require(fredImport)
: ## workaround for R 2.1.1:
: Sys.timezone : as.vector(Sys.getenv("TZ"))
: yahoo.getOption
【在 s********y 的大作中提到】
: 以下程序在执行opt : temporary file, 请问如何把temporary file的数据导出到一个TXT文件?
: 谢谢!
: ------------------------------------------------------------------
: require(fCalendar)
: require(fredImport)
: ## workaround for R 2.1.1:
: Sys.timezone : as.vector(Sys.getenv("TZ"))
: yahoo.getOption
j*e
7 楼
goooo1111呢? xiaoxiaoyu呢? kzeng呢?
c*y
8 楼
先去找找有没有更好的程序,这个程序还在用QQQQ,不是QQQ,太古老了。
【在 s********y 的大作中提到】
: 以下程序在执行opt : temporary file, 请问如何把temporary file的数据导出到一个TXT文件?
: 谢谢!
: ------------------------------------------------------------------
: require(fCalendar)
: require(fredImport)
: ## workaround for R 2.1.1:
: Sys.timezone : as.vector(Sys.getenv("TZ"))
: yahoo.getOption
【在 s********y 的大作中提到】
: 以下程序在执行opt : temporary file, 请问如何把temporary file的数据导出到一个TXT文件?
: 谢谢!
: ------------------------------------------------------------------
: require(fCalendar)
: require(fredImport)
: ## workaround for R 2.1.1:
: Sys.timezone : as.vector(Sys.getenv("TZ"))
: yahoo.getOption
c*z
10 楼
this helps?
t=data.frame(rep("a",5), rep("b",5))
write.table(t,"z:\\try.txt",row.names=F,col.names=F,sep="\t", quotes=FALSE)
link:
https://stat.ethz.ch/pipermail/r-help/2009-April/194326.html
t=data.frame(rep("a",5), rep("b",5))
write.table(t,"z:\\try.txt",row.names=F,col.names=F,sep="\t", quotes=FALSE)
link:
https://stat.ethz.ch/pipermail/r-help/2009-April/194326.html
相关阅读
Skyworks San Jose site 正在招RF Validation and Test EngineLooking for analog circuit designersIntern or full time Positions available(Speech area)请教: 阿里达摩院 的压缩,计算机视觉和 AI 融合Qorvo-Process Integration Engineer内推-TX无人驾驶汽车方面论文修改-有偿ICC会议关于水下modem的文章求审稿电子工程专业的留学生申请了WSE认证有什么作用喜大普奔:两通搞基被床铺强行拆开了《Advanced Materials》 , 2016 , 28 (38) :8463-8468 单层MoSOLED Engineer Hiring (转载)中国造出世界第一美,颜值颇高,为啥霍金生前却极力反对工作机会, 快速发展半导体公司EE审稿机会求建议娃哈哈,Intel要收购Broadcom?"整体功能大于部分之和"一说有数学公式吗?【内部推荐】Litepoint RF Systems Application Engineer (转审稿机会(视频监视,Person Re-Identification,深度学习)Epi / Process/Device/ FA Engineer Openings