Nothing
##' The zero time
##'
##' Get and set the zero-time.
##'
##' @name timezero
##' @rdname timezero
##' @docType methods
##' @aliases timezero<- timezero,missing-method timezero,ANY-method
##' timezero<-,missing-method timezero<-,ANY-method
##' @family extraction methods
##' @return
##' the value of the zero time
##'
NULL
setGeneric(
"timezero",
function (object, ...)
standardGeneric("timezero")
)
setGeneric(
"timezero<-",
function (object, ..., value)
standardGeneric("timezero<-")
)
##' @rdname timezero
##' @param object an object of class \sQuote{pomp}, or of a class that extends \sQuote{pomp}
##' @param \dots ignored or passed to the more primitive function
##' @export
setMethod(
"timezero",
signature=signature(object="pomp"),
definition = function (object, ...) object@t0
)
##' @rdname timezero
##' @param value numeric; the new zero-time value
##' @export
setMethod(
"timezero<-",
signature=signature(object="pomp"),
definition=function(object,...,value) {
ep <- "timezero<-"
if (!(is.numeric(value) && length(value) == 1L && is.finite(value)))
pStop(who=ep,"the zero-time ",sQuote("t0")," must be a single finite number.")
if (value > object@times[1L])
pStop(who=ep,"the zero-time ",sQuote("t0"),
" must occur no later than the first observation.")
storage.mode(value) <- "double"
object@t0 <- value
object
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.