R/accessors.R

# Hinda Haned, December 2008
# [email protected]

# Accesor $

#simugeno
setMethod("$","simugeno",function(x,name) {
    return(slot(x,name))
})


#simumix
setMethod("$","simumix",function(x,name) {
    return(slot(x,name))
})



#tabfreq
setMethod("$","tabfreq",function(x,name) {
    return(slot(x,name))
})


setMethod("$<-","simugeno",function(x,name,value) {
   slot(x,name,check=TRUE) <- value
  return(x)
})
setMethod("$<-","simumix",function(x,name,value) {
  slot(x,name,check=TRUE) <- value
  return(x)
})
setMethod("$<-","tabfreq",function(x,name,value) {
  slot(x,name,check=TRUE) <- value
  return(x)
})

Try the forensim package in your browser

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

forensim documentation built on May 30, 2017, 2:34 a.m.