# NOT RUN {
M <- as.mask.psp(as.psp(simplenet))
Z <- as.im(function(x,y) {x-y}, W=M)
X <- linim(simplenet, Z)
X
shift(X, c(1,1))
scalardilate(X, 2)
head(as.data.frame(X))
# }
Run the code above in your browser using DataCamp Workspace