data(ACM)
# Plot 2-D pseudo-empirical sections of
# a multidimensional transiogram
imgMultiTransiogram(ACM$MAT3, ACM[, 1:3], 10,
max.dist=c(20, 10, 5), which.dire=c(1, 3),
col = rev(heat.colors(500)), breaks = 0:500 / 500,
mar = .7, mle = TRUE)Run the code above in your browser using DataLab