## Not run:
# ## Plasma citrate data
# data(plasma)
# time <- 8:21
# h <- cv.select(time, plasma, 1)
# scbplasma <- scb.mean(time, plasma, bandwidth = h, scbtype = "both", gridsize = 100)
# summary(scbplasma)
# ## End(Not run)
Run the code above in your browser using DataLab