## 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)
# scbplasma
# ## End(Not run)
Run the code above in your browser using DataLab