#' getTimes
#'
#' @param x x
#' @param late late
#' @param early early
#' @param censored censored
#'
#' @export
#' @importFrom lubridate today
#'
getTimes = function(x, late, early, censored = FALSE){
if(!censored){
time = as.numeric(x[[late]] - x[[early]])
data.frame(ID = x$ID, time = time, age_class = x$age_class,
early = x[[early]], late = x[[late]])
} else{
if(is.na(x[[late]])){
time = as.numeric(today() - x[[early]])
censored = 0
} else{
time = as.numeric(x[[late]] -x[[early]])
censored = 1
}
data.frame(ID = x$ID, evolucao = x$evolucao, time = time, age_class = x$age_class, censored = censored,
early = x[[early]], late = x[[late]])
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.