## Not run:
# x=matrix(rnorm(100*20),100,20)
# beta=c(rep(2,5),rep(0,15))
# y=x%*%beta+rnorm(100)
#
# # mht
# mod=mht(x,y,alpha=c(0.1,0.05),maxordre=15)
#
# # predict without new data: gives the fitted values
# pred=predict(mod)
#
# # predict with new data
# pred=predict(mod,newx=matrix(rnorm(40*20),40,20))
# pred
# ## End(Not run)
Run the code above in your browser using DataLab