# NOT RUN {
# shear transformation
shear <- matrix(c(1,0,0.6,1),ncol=2)
X <- affine(owin(), shear)
# }
# NOT RUN {
plot(X)
# }
# NOT RUN {
data(letterR)
affine(letterR, shear, c(0, 0.5))
affine(as.mask(letterR), shear, c(0, 0.5))
# }
Run the code above in your browser using DataLab