# NOT RUN {
## Data can be simulated data or real data
## We use simulate data
## and then compute the cross validation.
Vec<-rgamma(100,1.5,2.6)
# }
# NOT RUN {
CV<-cvbw(Vec,ker="GA")
CV$hcv
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab