powered by
"print"(x, print.moves = 20, ...)
data(sp500) attach(sp500) x <- sp500.percent[,3: (dim(sp500.percent)[2])] y <- sp500.percent[,1] object <- plus(x,y,method="mc+") print(object, print.moves=30) detach(sp500)
Run the code above in your browser using DataLab