powered by
mdr
"print"(x,...)
# res <- mdr(X=temp,status=status,fold=3,top=20) # res
Run the code above in your browser using DataLab