Nothing
#_______________________________________________________________________________
#---- getCovariates ----
#_______________________________________________________________________________
#' Get all covariates (fixed / time-varying / event covariates).
#'
#' @param object any object
#' @return all covariates from object
#' @export
#' @rdname getCovariates
getCovariates <- function(object) {
stop("No default function is provided")
}
setGeneric("getCovariates", function(object) {
standardGeneric("getCovariates")
})
#_______________________________________________________________________________
#---- getEventCovariates ----
#_______________________________________________________________________________
#' Get all event-related covariates.
#'
#' @param object any object
#' @return all event-related covariates from object
#' @export
#' @rdname getEventCovariates
getEventCovariates <- function(object) {
stop("No default function is provided")
}
setGeneric("getEventCovariates", function(object) {
standardGeneric("getEventCovariates")
})
#_______________________________________________________________________________
#---- getFixedCovariates ----
#_______________________________________________________________________________
#' Get all fixed covariates.
#'
#' @param object any object
#' @return all fixed covariates from object
#' @export
#' @rdname getFixedCovariates
getFixedCovariates <- function(object) {
stop("No default function is provided")
}
setGeneric("getFixedCovariates", function(object) {
standardGeneric("getFixedCovariates")
})
#_______________________________________________________________________________
#---- getTimeVaryingCovariates ----
#_______________________________________________________________________________
#' Get all time-varying covariates.
#'
#' @param object any object
#' @return all time-varying covariates from object
#' @export
#' @rdname getTimeVaryingCovariates
getTimeVaryingCovariates <- function(object) {
stop("No default function is provided")
}
setGeneric("getTimeVaryingCovariates", function(object) {
standardGeneric("getTimeVaryingCovariates")
})
#_______________________________________________________________________________
#---- getIOVs ----
#_______________________________________________________________________________
#' Get all IOV objects.
#'
#' @param object any object
#' @return all IOV's from object
#' @export
#' @rdname getIOVs
getIOVs <- function(object) {
stop("No default function is provided")
}
setGeneric("getIOVs", function(object) {
standardGeneric("getIOVs")
})
#_______________________________________________________________________________
#---- getOccasions ----
#_______________________________________________________________________________
#' Get all occasions.
#'
#' @param object any object
#' @return all occasions from object
#' @export
#' @rdname getOccasions
getOccasions <- function(object) {
stop("No default function is provided")
}
setGeneric("getOccasions", function(object) {
standardGeneric("getOccasions")
})
#_______________________________________________________________________________
#---- getTimes ----
#_______________________________________________________________________________
#' Get all distinct times for the specified object.
#'
#' @param object any object
#' @return numeric vector with all unique times, sorted
#' @export
#' @rdname getTimes
getTimes <- function(object) {
stop("No default function is provided")
}
setGeneric("getTimes", function(object) {
standardGeneric("getTimes")
})
#_______________________________________________________________________________
#---- setLabel ----
#_______________________________________________________________________________
#' Set the label.
#'
#' @param object any object that has a label
#' @param x the new label
#' @return the updated object
#' @export
#' @rdname setLabel
setLabel <- function(object, x) {
stop("No default function is provided")
}
setGeneric("setLabel", function(object, x) {
standardGeneric("setLabel")
})
#_______________________________________________________________________________
#---- sample ----
#_______________________________________________________________________________
#' Sample generic object.
#'
#' @param object generic object
#' @param n number of samples required
#' @param ... extra arguments
#' @return sampling result
#' @export
#' @rdname sample
sample <- function(object, n, ...) {
stop("No default function is provided")
}
setGeneric("sample", function(object, n, ...) {
standardGeneric("sample")
})
#_______________________________________________________________________________
#---- setSubjects ----
#_______________________________________________________________________________
#' Set the number of subjects.
#'
#' @param object any object
#' @param x the new number of subjects
#' @return the updated object
#' @export
#' @rdname setSubjects
setSubjects <- function(object, x) {
stop("No default function is provided")
}
setGeneric("setSubjects", function(object, x) {
if (is.numeric(x)) {
x <- as.integer(x)
}
standardGeneric("setSubjects")
})
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.