I am trying to overview if prices return have a so-called "fat-tailed" property. Unfortunately, my superposition of my gaussian curve and my return curve doesnot match.
To do that, I have a return vector:
data.ret
I carried the density, the mean, and the standard deviation of my vector:
data.sd <- sd(data.ret)
data.mean <- mean(data.ret)
data.density <- density(data.ret)
thus, I am able to find the gaussian distribution within my data.ret properties:
data.gauss <- dnorm(data.ret, data.mean, data.sd)
Then I plot my results:
plot(data.density, xlab="Return", ylab="", yaxt="n", main="Density of returns")
lines(data.ret , data.gauss, type="l",col="red",lwd=1,lty=3)
However, my gaussian curve does not look good, I suppose that I wrongly plot my gaussian distribution to fit with my return density:
EDIT :
if I sort values of data.ret :