R/dist_generic.R

In dfcorbin/MABsim: Run (contextual) Multi-Armed Bandit Simulations

# We provide access to the distributions from "arm" objects.
#' @include class_defn.R
setGeneric("dist", function(obj,index) standardGeneric("dist"))
setMethod("dist","arm", function(obj,index) obj@distributions[[index]] )

setGeneric("dist<-", function(obj,index,value) standardGeneric("dist<-"))
setMethod("dist<-","arm",
  function(obj,index,value){
    obj@distributions[[index]] <- value
    return(obj)
  }
)