library(raster)
## Create example data
mtlFile <- system.file("external/landsat/LT52240631988227CUB02_MTL.txt", package="RStoolbox")
lsat <- stackMeta(mtlFile)
img_a <- lsat[[3:4]]
mult <- raster(lsat)
mult[]<-rnorm(ncell(mult))
img_b <- img_a * mult + 10
## Do change vector analysis
cva <- rasterCVA(img_a, img_b)
cva
plot(cva)
Run the code above in your browser using DataLab