powered by
erode(input,k)
arr<-array(rnorm(30*30*30), dim=c(30,30,30)) e<-erode(arr, k=1)
Run the code above in your browser using DataLab