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