Apply Affine Transformation To Line Segment Pattern
Applies any affine transformation of the plane (linear transformation plus vector shift) to a line segment pattern.
## S3 method for class 'psp' affine(X, mat=diag(c(1,1)), vec=c(0,0), ...)
X |
Line Segment pattern (object of class |
mat |
Matrix representing a linear transformation. |
vec |
Vector of length 2 representing a translation. |
... |
Arguments passed to |
The line segment pattern, and its window, are subjected first to the
linear transformation represented by
mat (multiplying on the left by mat),
and are then translated by the vector vec.
The argument mat must be a nonsingular 2 * 2
matrix.
This is a method for the generic function affine.
Another line segment pattern (of class "psp") representing the
result of applying the affine transformation.
Adrian Baddeley Adrian.Baddeley@curtin.edu.au
and Rolf Turner r.turner@auckland.ac.nz
oldpar <- par(mfrow=c(2,1)) X <- psp(runif(10), runif(10), runif(10), runif(10), window=owin()) plot(X, main="original") # shear transformation Y <- affine(X, matrix(c(1,0,0.6,1),ncol=2)) plot(Y, main="transformed") par(oldpar) # # rescale y coordinates by factor 0.2 affine(X, diag(c(1,0.2)))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.