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
相关阅读
one question about AC adapter如何估计传递函数中参数的置信区间?问个oscillator仿真的问题MIT做成光合作用袅!怎么在图片中剪切一个圆形下来啊?大公司,小公司?打算出国读EE,该怎么定位?刚才溜到EE版看了一下vista x64下的texpoint怎么用?Qualcomm onsite挂了Training course for IC layout design如何从Outlook Express下载众多的邮件阿???请教:怎么测量一个光学器件的RF spectrum?今年信息相关的973:来认认国内权威Kalman 滤波的一个问题如何变换pulse fiber laser的输出 single变成multiple 脉冲?请问有没有什么好analog circuit design 的网站啊FPGA question这个学校咋样?请教VOIP 的 Product Quality面试会问些什么啊?