R/global.R

In npde: Normalised prediction distribution errors for nonlinear mixed-effect models

####################################################################################
####				Generic functions				####
####################################################################################

# Generic functions for S3 methods
# Warning: the arguments in function must match exactly !
showall <- function(object) UseMethod("showall")
setGeneric(name="showall", def=function(object){standardGeneric("showall")})

gof.test <- function(object,which="npde",parametric=TRUE, ...) UseMethod("gof.test")
setGeneric(name="gof.test", def=function(object,which="npde",parametric=TRUE, ...){standardGeneric("gof.test")})

set.npde.plotoptions <- function(object, ...) UseMethod("set.npde.plotoptions")
setGeneric(name="set.npde.plotoptions", def=function(object,...){standardGeneric("set.npde.plotoptions")})

# Generic functions for S4 methods
#setGeneric(name="test",def=function(object,which="npde",parametric=TRUE, na.action="na.omit", ...){standardGeneric("test")})

# Functions specific to NpdeData objects
setGeneric(name="read.npdeData",def=function(object,header,sep,na.strings,detect,verbose) {standardGeneric("read.npdeData")}
)

setGeneric(name="read.npdeSimData",def=function(object,header,sep,na.strings, verbose){standardGeneric("read.npdeSimData")}
)

# Main algorithm functions
npde.main <- function(object) UseMethod("npde.main")
setGeneric(name="npde.main", def=function(object){standardGeneric("npde.main")})

setGeneric(name="npde.save",
  def=function(object, ...){standardGeneric("npde.save")}
)
setGeneric(name="npde.graphs",
  def=function(object,...){standardGeneric("npde.graphs")}
)

####################################################################################