Nothing
#' summary.CoTiMAFit
#'
#' @description defines summary for 'CoTiMA' fit objects
#'
#' @param object one CoTiMAFit object or more as ctmaFitList(object1, object2, ...)
#' @param ... further arguments to be passed through to summary()
#'
#' @method summary CoTiMAFit
#'
#' @return returns a printed summary of a 'CoTiMA' fit object
#'
#' @export
#'
summary.CoTiMAFit <- function(object, ...) {
if(!'CoTiMAFit' %in% class(object)) stop('Not a CoTiMAFit object!')
return(print(object$summary))
}
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.