# NOT RUN {
X <- rpoislpp(2, simplenet)
U <- rotate(X, pi)
stretch <- diag(c(2,3))
Y <- affine(X, mat=stretch)
shear <- matrix(c(1,0,0.6,1),ncol=2, nrow=2)
Z <- affine(X, mat=shear, vec=c(0, 1))
# }
Run the code above in your browser using DataLab