小编jer*_*aub的帖子

我正在转发我的论文tomorow,我收到了一个非常古怪的错误消息,使用quantmod,这是我在使用这个包的过去几周里从未有过的.我无法专门导入道琼斯指数(^ DJI)的数据.我收到以下错误消息:

getSymbols("^DJI",src="yahoo", from='2005-6-01', to='2012-6-21')

Error in download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m,  : 
impossible to open the URL 'http://chart.yahoo.com/table.csv?s=^DJI&a=5&b=01&c=2005&d=5&e=21&f=2012&g=d&q=q&y=0&z=^DJI&x=.csv'
Also : Message d'avis :
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m,  :
impossible to open : the status HTTP was '404 Not Found'

我几乎觉得不好问这么简单的问题.我真的不明白问题在哪里..例如这些工作就好了

getSymbols("AAPL",src="yahoo", from='2005-6-01', to='2012-6-21')
getSymbols("^NDX",src="yahoo", from='2005-6-01', to='2012-6-21')

那问题出在哪里？非常感谢你的帮助,我真的很感激!

我需要计算(在R中)向量中的正向和负向运行的数量.例如,假设我有一个向量x:

x = c(-23 , -2 , 5 , 8, 9, 12, -2, -1, 3, 5, 7)

因为我有:{ - 23,-2},{5,8,9,12},{ - 2,-1}和{3,5,7}.因此,基本上每次系列更改符号时,它在运行计数中计为+1.

我在互联网上找到了这个代码,它将正态分布与不同的学生分布进行比较:

x <- seq(-4, 4, length=100)
hx <- dnorm(x)

degf <- c(1, 3, 8, 30)
colors <- c("red", "blue", "darkgreen", "gold", "black")
labels <- c("df=1", "df=3", "df=8", "df=30", "normal")

plot(x, hx, type="l", lty=2, xlab="x value",
  ylab="Density", main="Comparison of t Distributions")

for (i in 1:4){
  lines(x, dt(x,degf[i]), lwd=2, col=colors[i])
}

我想适应我的情况,我希望将我的数据与正态分布进行比较.这是我的数据:

library(quantmod)
getSymbols("^NDX",src="yahoo", from='1997-6-01', to='2012-6-01')
daily<- allReturns(NDX) [,c('daily')]
dailySerieTemporel<-ts(data=daily)
ss<-na.omit(dailySerieTemporel)

目标是看我的数据是否正常......有人可以帮我解决这个问题吗？非常感谢,我真的很感激!

我正在尝试做"市值"栏目的总和,但我无法,因为它是一个数据帧,并且数字最后有一个B.

如果我的数据框被称为Y,那么计算533.5 + 15.449之和所需的代码是什么等等？