With my data I created with the following code:
library(rugarch)
library(fGarch)
fd <- as.data.frame(modelfit, which = 'density')
color <- rgb(85, 141, 85, maxColorValue=255)
x <- seq(-0.2, 0.2, length=100)
y <-c(1:2318)
f <- function(s, t) {
dged(s,mean=fd[t,'Mu'],sd=fd[t,'Sigma'],nu=fd[t,'Shape'])
}
z <- outer(x, y, f)
persp(x, y, z, theta=50, phi=25, expand=0.75, col=color,
ticktype="detailed", xlab="", ylab="time", zlab="density")
the following 3d plot:
As you can see the surface looks messy.
So my first question:
How can I get a better visible surface?
And my second question:
How can I get the real dates on my axis? Currently I use c(1:2318), but in my original data
I can see the dates in the rownames via command fd
. So how can I get those dates on my axis?
Edit: Also: How can I omitt the black lines on the grid in my plot? So that there is just a green surface? Wouldn't that already look better?