demo/composite.R

In diffeR: Metrics of Difference for Comparing Pairs of Maps or Pairs of Variables

fanfare <- function(stuff) {
   plot(c(0, 1), c(0, 1), type = "n", axes = FALSE, xlab = "", ylab = "")
   text(0.5,0.5, stuff, cex=2.5)
 }
fanfare("composite Demo")

old.par <- par(no.readonly = TRUE)

ref <- rast(system.file("external/reference.rst", package = "diffeR"))
comp <- rast(system.file("external/comparison.rst", package = "diffeR"))

composite(comp, ref, factor = 2)

# Crosstab matrix, total difference, quantity difference and allocation difference at the map level:
(ctmatCompRef <- crosstabm(comp, ref))
overallDiff(ctmatCompRef)
overallQtyD(ctmatCompRef)
overallExchangeD(ctmatCompRef)
overallShiftD(ctmatCompRef)

#
(ctmatCompRef <- crosstabm(comp, ref, percent = TRUE)) 
quantityDj(ctmatCompRef)
exchangeDj(ctmatCompRef)
shiftDj(ctmatCompRef)

diffTablej(ctmatCompRef)

differenceMR(comp, ref, eval = "original")
differenceMR(comp, ref, eval = "multiple", fact = 2)
differenceMR(comp, ref, eval = "multiple", fact = 3)

ref <- rast(system.file("external/W_RECLASS_99.rst", package = "diffeR"))
comp <- rast(system.file("external/W_RECLASS_71.rst", package = "diffeR"))

differenceMR(comp, ref, eval = "multiple", fact = 2)
differenceMR(comp, ref, eval = "multiple", fact = 3)