if (FALSE) {
# If you run the example be aware that this may take some time
print("example may take some time to run")
x <- testData(model = "blocks", seed = 1234)$x
persp3D.multiscaleMosum(x, mosum.args = list(boundary.extension = FALSE))
}
Run the code above in your browser using DataLab