## 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.order
# mod.order=mht.order(x,y)
#
# # refit mht.order on a new vector of observation
# mod.refit=refit(mod.order,ynew)
# ## End(Not run)
Run the code above in your browser using DataLab