## ------------------------------------------------
## Method `ScalingXY$new`
## ------------------------------------------------
ScalingXY$new(c(1,1), 4, 2)
## ------------------------------------------------
## Method `ScalingXY$getMatrix`
## ------------------------------------------------
S <- ScalingXY$new(c(1,1), 4, 2)
P <- c(1,5)
S$transform(P)
S$getMatrix() %*% c(P,1)
Run the code above in your browser using DataLab