# Create a polynomial basis over the years in the 20th century
# and center the basis functions on 1950.
basisobj <- create.polynomial.basis(c(1900, 2000), nbasis=3, ctr=1950)
# plot the basis
plot(basisobj)
Run the code above in your browser using DataLab