if(spatstat.options("gpclib")) {
v <- closing(letterR, 0.25)
} else {
v <- opening(letterR, 0.25, dimyx=256, polygonal=FALSE)
}
plot(v, main="closing")
plot(letterR, add=TRUE)
Run the code above in your browser using DataCamp Workspace