## Not run:
# x=matrix(rnorm(100*20),100,20)
# beta=c(rep(2,5),rep(0,15))
# y=x%*%beta+rnorm(100)
# ynew=x%*%beta+rnorm(100)
#
# # mht
# mod=mht(x,y,alpha=c(0.1,0.05),maxordre=15)
#
# # refit mht on a new vector of observation
# mod2=refit(mod,ynew,maxordre=15)
# ## End(Not run)
Run the code above in your browser using DataLab