R/class-trModel.R

In ColeWunderlich/trSim:

#' Class for modeling a transmitter receiver experiment
#'
#'All matricies are on a reciever X transmitter basis
#' import mvtnorm
#' @import ggplot2
#' @exportClass trModel

##Notes:
# currently diffusionFn is expected to work on a per-element basis, reqire it to work on a per-matrix basis instead??

setClass(Class = "trModel",slots = c(nreceiver="numeric",ntransmitter="numeric", space = "matrix", spaceRes = 'numeric',
                                                           points="matrix",count="matrix",distance="matrix",weight="matrix",diffusionFn="function"))
#' @export
trModel = function(nreceiver,ntransmitter,spaceRes,diffusionFn=function(x){})
{
  trm=new("trModel",nreceiver=nreceiver,ntransmitter=ntransmitter,spaceRes=spaceRes,diffusionFn=diffusionFn)

  #initialize matricies
  matx = matrix(0,nreceiver,ntransmitter)
  trm@count = matx
  trm@distance = matx
  trm@weight = matx

  invisible(trm)
}