R/LvrRatio.R

setClass(
  Class="LvrRatio",
  representation=representation(
    Simu="matrix",
    Test="matrix"
    )
)
setGeneric("getSimu",
           function(object)
           {
             standardGeneric("getSimu")
           }
)

setMethod("getSimu","LvrRatio",
          function(object)
          {
            return(object@Simu)
          }
)

setGeneric("getTest",
           function(object)
           {
             standardGeneric("getTest")
           }
)

setMethod("getTest","LvrRatio",
          function(object)
          {
            return(object@Test)
          }
)

Try the CompR package in your browser

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

CompR documentation built on May 1, 2019, 10:56 p.m.