##' Show methods
##'
##' Display the object, according to its class.
##'
##' @name show
##' @rdname show
##' @docType methods
##' @keywords internal
##'
##' @aliases show,unshowable-method show,listie-method show,pomp_fun-method
##' show,pomp-method show,abcd_pomp-method
##' show,bsmcd_pomp-method show,kalmand_pomp-method show,mif2d_pomp-method
##' show,nlfd_pomp-method show,pfilterd_pomp-method show,pmcmcd_pomp-method
##' show,probed_pomp-method show,spectd_pomp-method
##' show,rprocPlugin-method
##' show,discreteRprocPlugin-method show,eulerRprocPlugin-method
##' show,gillespieRprocPlugin-method show,onestepRprocPlugin-method
##' show,skelPlugin-method
##' show,mapPlugin-method show,vectorfieldPlugin-method
##' show,partransPlugin-method
##' show,covartable-method
##'
##' @include pomp_class.R abc.R bsmc2.R kalman.R mif2.R nlf.R pfilter.R
##' @include pmcmc.R probe.R spect.R
##' @include probe_match.R traj_match.R spect_match.R
NULL
setClassUnion("unshowable",members=c("pomp","abcd_pomp","bsmcd_pomp",
"kalmand_pomp","mif2d_pomp","pfilterd_pomp","pmcmcd_pomp",
"probed_pomp","spectd_pomp","probe_match_objfun","spect_match_objfun",
"nlf_objfun","traj_match_objfun"))
##' @export
setMethod(
"show",
signature=signature(object="unshowable"),
definition=function (object) {
cat("<object of class ",sQuote(as.character(class(object))),">\n",sep="")
invisible(NULL)
}
)
##' @export
setMethod(
"show",
signature=signature(object="listie"),
definition=function (object) {
y <- as(object,"list")
names(y) <- names(object)
show(y)
}
)
setMethod(
"show",
signature=signature(object="rprocPlugin"),
definition=function (object) {
cat("<undefined>\n")
}
)
setMethod(
"show",
signature=signature(object="onestepRprocPlugin"),
definition=function (object) {
cat("one-step process-model simulator\n")
cat(" - step.fun: ")
show(object@step.fn)
}
)
setMethod(
"show",
signature=signature(object="discreteRprocPlugin"),
definition=function (object) {
cat("discrete-time process-model simulator\n")
cat(" - time-step =",object@delta.t,"\n")
cat(" - step.fun: ")
show(object@step.fn)
}
)
setMethod(
"show",
signature=signature(object="eulerRprocPlugin"),
definition=function (object) {
cat("Euler-method process-model simulator\n")
cat(" - time-step =",object@delta.t,"\n")
cat(" - step.fun: ")
show(object@step.fn)
}
)
setMethod(
"show",
signature=signature(object="gillespieRprocPlugin"),
definition=function (object) {
cat("Gillespie-method process-model simulator\n")
cat(" - stoichiometry matrix:\n")
print(object@v)
cat(" - rate.fun: ")
show(object@rate.fn)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.