classPartitionFather.R

In kmob/s4_intro: worked examples from Genolini's "A (Not So) Short Introduction to S4" for R (2008)

setClass(
  Class="PartitionFather",
  representation=representation(nbGroups="numeric","VIRTUAL") 
)

### multiplier method for values in the class
setGeneric("nbMultTwo",function(object){standardGeneric("nbMultTwo")})
setMethod(f = "nbMultTwo",
          signature = "PartitionFather",
          definition = function(object){
            object@nbGroups <- object@nbGroups*2
            return (object) 
          }
)