#Example 1
#Fit a FGN model and determine the bootstrap sd of H
#Measure cpu time. With R=250, it takes about 23 sec
#on 3.6 GHz Pentium IV.
## Not run:
# data(NileMin)
# outNileMin<-FitFGN(NileMin)
# start<-proc.time()[1]
# R<-25
# Hs<-numeric(R)
# Z<-Boot(outNileMin, R=R)
# for (i in 1:R)
# Hs[i]<-GetFitFGN(Z[,i])$H
# BootSD<-sd(Hs) #this is the bootstrap sd
# end<-proc.time()[1]
# totTim<-end-start
# ## End(Not run)
Run the code above in your browser using DataLab