R/accessor-methods.r

In RecordLinkage: Record Linkage Functions for Linking and Deduplicating Data Sets

# accessor functions (get / set) for objects

setGeneric(
  name = "getFrequencies",
  def = function(x) standardGeneric("getFrequencies")
)

setMethod(
  f = "getFrequencies",
  signature = "RLBigData",
  definition = function(x) 
    if (length(x@excludeFld)!=0)
      x@frequencies[-x@excludeFld]
    else x@frequencies
)