##
## The simplest b-spline basis: order 1, degree 0, zero interior knots:
## a single step function
##
bspl1.1 <- create.bspline.basis(norder=1, breaks=0:1)
fd.bspl1.1 <- fd(0, basisobj=bspl1.1)
dim.fd(fd.bspl1.1)
##
## handwrit
##
# This took 132 seconds on an IBM T60 with 1GB RAM:
HandWr <- smooth.basisPar(1:nrow(handwrit), handwrit)
dim.fd(HandWr$fd)
Run the code above in your browser using DataLab