# NOT RUN {
data(DeutscheBank)
form<-'%d.%m.%y'
time.DeutscheBank <- strptime(DeutscheBank[,1],form)
#looking for all dates in 2006
data.DeutscheBank <- DeutscheBank[which(time.DeutscheBank$year==106),2]
#building differences of first order
d.DeutscheBank <- diff(data.DeutscheBank)
#estimating the density
density.DeutscheBank <- pendensity(d.DeutscheBank~1)
plot(density.DeutscheBank)
# }
Run the code above in your browser using DataLab