R/PlotImage_Fn.R

In James-Thorson/movement_tools: Tools for movement operators in GMRF models

PlotImage_Fn <-                 
function( Vec, breaks, Xset, Yset, loc_to_domain, ...){
  X = c(Xset[1]-mean(diff(Xset))/2,Xset+mean(diff(Xset))/2)
  Y = c(Yset[1]-mean(diff(Yset))/2,Yset+mean(diff(Yset))/2)
  Z = matrix(Breaks_Fn(Vec[loc_to_domain],breaks=breaks),ncol=length(Xset))
  image( z=Z, x=X, y=Y, breaks=1:length(breaks), col=Col(length(breaks)-1), ...)
}