data(cells)
# shear transformation
X <- affine(cells, matrix(c(1,0,0.6,1),ncol=2))
## Not run:
# plot(X)
# # rescale y coordinates by factor 1.3
# plot(affine(cells, diag(c(1,1.3))))
# ## End(Not run)
Run the code above in your browser using DataLab