# NOT RUN {
# Reading in a dataset
mri <- read.table("http://www.emersonstatistics.com/datasets/mri.txt", header=TRUE)
attach(mri)
# Create a spline based on absolute
lspline(ldl, c(70, 100, 130, 160))
# Create a spline based on change
lsplineD(ldl, c(70, 100, 130, 160))
# }
Run the code above in your browser using DataLab