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