## Not run:
# ## Plasma citrate data
# time <- 8:21
# data(plasma)
# h <- cv.select(time, plasma, degree = 1, interval = c(.5, 1))
# scbplasma <- scb.mean(time, plasma, bandwidth = h, scbtype = "both",
# gridsize = 100)
# plot(scbplasma, cex = .2, legend.cex = .85, xlab = "Time of day",
# ylab = "Concentration", main = "Plasma citrate data")
# ## End(Not run)
Run the code above in your browser using DataLab