## HAS_TESTS
#' @rdname midpoints
#' @export
setMethod("midpoints",
signature(object = "Population", dimension = "ANY"),
function(object, dimension) {
object <- as(object, "Counts")
callGeneric()
})
## HAS_TESTS
#' @rdname midpoints
#' @export
setMethod("midpoints",
signature(object = "Population", dimension = "missing"),
function(object) {
object <- as(object, "Counts")
callGeneric()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.