Ich habe diesen Code im Internet gefunden, der eine Normalverteilung mit verschiedenen Studentenverteilungen vergleicht:

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])
}

Ich möchte dies an meine Situation anpassen, in der ich meine Daten mit einer Normalverteilung vergleichen möchte. Das sind meine Daten:

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)

Das Ziel ist zu sehen, ob meine Daten normal sind oder nicht ... Kann mir jemand dabei helfen? Vielen Dank, ich weiß das sehr zu schätzen!