Nothing
#' @include normEndp.R
#' @include expEndp.R
#' @include survEndp.R
NULL
###############################################
# --------------------------------------------#
# Class endpoint #
# --------------------------------------------#
###############################################
# All endpoints should be added to this class union
# Common representation of the endpoints.
#
# @name endpoint
setClassUnion("endpoint", c("normEndp","expEndp","survEndp"))
# --------------------------------------------
# Accessor functions for endpoints
# --------------------------------------------
#' Access the expectation value slot of a normEndp S4 object
#'
#' @param obj object of class normEndp
mu <- function(obj) {
if (.hasSlot(obj, "mu")) obj@mu else stop("object has no slot named mu.")
}
#' Function returning the standard deviation slot of a normEndp S4 object
#'
#' @param obj object of class normEndp
sigma <- function(obj) {
if (.hasSlot(obj, "sigma")) obj@sigma else stop("object has no slot named sigma.")
}
#' Method returning the rate parameter of an expEndp S4 object
#'
#' @param obj object of class expEndp
lambda <- function(obj) {
if (.hasSlot(obj, "lambda")) obj@lambda else stop("object has no slot named lambda.")
}
#' Method returning the shape parameter of an survEndp S4 object
#'
#' @param obj object of class survEndp
shape <- function(obj) {
if (.hasSlot(obj, "shape")) obj@shape else stop("object has no slot named shape.")
}
#' Method returning the scale parameter of an survEndp S4 object
#'
#' @param obj object of class survEndp
scale <- function(obj) {
if (.hasSlot(obj, "scale")) obj@scale else stop("object has no slot named scale.")
}
#' Method defining the $ operator for the endpoint class
#' @keywords internal
#' @inheritParams overview
setMethod("$", "endpoint",
function(x, name) slot(x, name))
# --------------------------------------------
# Show function for endopoints
# --------------------------------------------
setMethod("show", signature = "endpoint", definition = function(object){
validObject(object)
# headline
cat("\n Object of class \"", is(object)[1], "\"\n\n", sep="")
# iterate through all slots of the object
names <- slotNames(object)
for(name in names){
cat("\t", name, "=", slot(object, name), "\n")
}
cat("\n")
})
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.