R/basesurv.R

In FunSurv: Modeling Time-to-Event Data with Functional Predictors

#' A function to obtain the baseline survival function
#'
#' @param object A funsurv object
#'
#' @returns A data frame including time and baseline survival
#' @export
#' @example inst/examples/ex_basesurv.R
basesurv <- function(object){
  if (!is.funsurv(object)) stop("Must be a funsurv object")
   data.frame(time = object$time, basesurv = object$basesurv)
}