powered by
spmOrth(a)
a<-basisFunctions(1/16,orth=FALSE) ts.plot(a,ylim=c(-.007,.015)) ts.plot(spmOrth(a),ylim=c(-.007,.015))
Run the code above in your browser using DataLab