#
# Generate some doppler data: 500 observations.
#
tx <- runif(500)
ty<-make.signal2("doppler",x=tx)
#
# Compute the neighbours of point 173 (2 neighbours on each side)
#
out<-getnbrs(tx,173,order(tx),2,FALSE)
#
# Perform the adaptive lifting step
#
ap<-AdaptPred(order(tx),tx,ty,out$nbrs,173,FALSE,2)
#
ap[[10]]
#this corresponds to no intercept and highest order regression (Cubic)...
#
#and let's check it...
ap[[7]]
ap[[8]]
Run the code above in your browser using DataLab