# NOT RUN {
data(mydata)
# Please note that parameter B is recommended to be greater than 400.
hf1<-hf(data = mydata, w.order = 1, B = 100)
hf2<-hf(data = mydata, w.order = 2, B = 50)
w.diagnosis(mydata, w.order = 1, n.rep = 100, hf1 = hf1, main=NULL, xlab=NULL, ylab=NULL)
w.diagnosis(mydata, w.order = 2, n.rep = 100, hf2 = hf2, main=NULL, xlab=NULL, ylab=NULL)
# }
Run the code above in your browser using DataLab