R/densityFunction-accessors.R

In baySeq: Empirical Bayesian analysis of patterns of differential expression in count data

# modification on git from copied files
setMethod("initialize", "densityFunction", function(.Object, ...) {
  dotlist <- list(...)
  if("initiatingValues" %in% names(dotlist))
    if(is.numeric(dotlist$initiatingValues))
      dotlist$initiatingValues <- (eval(parse(text = paste("function(dat, observables)", "c(", paste(dotlist$initiatingValues, collapse = ", "), ")"))))
  if("equalOverReplicates" %in% names(dotlist))
    if(is.logical(dotlist$equalOverReplicates))
      dotlist$equalOverReplicates <- (eval(parse(text = paste("function(dat, observables)", "c(", paste(dotlist$equalOverReplicates, collapse = ", "), ")"))))
  if(!("modifyNullPriors" %in% names(dotlist)))
    dotlist$modifyNullPriors <- function(x, datdim) x
  
  .Object <- do.call("callNextMethod", c(list(.Object), dotlist))
  .Object
})