# NOT RUN {
N<-100
EE<-matrix(rep(0,N*100),ncol=100)
set.seed(1)
for (i in 1:N) {
temp<-rnorm(100,0,1)
EE[i,1]<-temp[1]
for (j in 2:100) {
EE[i,j]<-EE[i,j-1]+temp[j]
}
}
est_eigenvalue(este=EE,K=default_kernel,h_power=1/2,estev=10)
# }
Run the code above in your browser using DataLab