R/pimg.R

In mdsumner/tripEstimation: Metropolis Sampler and Supporting Functions for Estimating Animal Movement from Archival Tags and Satellite Fixes

`pimg` <-
function(xmin,xmax,xn,
                 ymin,ymax,yn) {
  res <- list(xbound=c(xmin,xmax,xn),
       ybound=c(ymin,ymax,yn),
       offset=c(1,1),
       image=NULL)
       
       class(res) <- c("pimg", "list")
  res
}