setClass("InitialAssignment", representation(symbol = "character", math = "expression"), contains = "SBase")

setMethod("describe", "InitialAssignment",
          function(object) paste(symbol(object), "=", math(object)))

 setGeneric("symbol", function(object) standardGeneric("symbol"))
setMethod("symbol", "InitialAssignment", function(object) object@symbol)

setMethod("math", "InitialAssignment", function(object) object@math)

 setGeneric("symbol<-", function(object, value) standardGeneric("symbol<-"))
setReplaceMethod("symbol", "InitialAssignment", function(object, value) {
  object@symbol <- value

setReplaceMethod("math", "InitialAssignment", function(object, value) {
  object@math <- value

Try the rsbml package in your browser

Any scripts or data that you put into this service are public.

rsbml documentation built on Nov. 8, 2020, 8:09 p.m.