## S3 method for class 'psp':
affine(X, mat=diag(c(1,1)), vec=c(0,0), ...)
"psp"
)."psp"
) representing the
result of applying the affine transformation.mat
(multiplying on the left by mat
),
and are then translated by the vector vec
.
The argument mat
must be a nonsingular $2 \times 2$
matrix. This is a method for the generic function affine
.
affine
,
affine.owin
,
affine.ppp
,
rotate
,
shift
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, "transformed")
par(oldpar)
#
# rescale y coordinates by factor 0.2
affine(X, diag(c(1,0.2)))
Run the code above in your browser using DataLab