Nothing
##' Risk predictions to work with riskRegression package
##'
##' @title Risk predictions to work with riskRegression package
##' @param object phreg/binreg/cifreg object
##' @param ... additional arguments to lower level functions
##' @author Thomas Scheike
##' @aliases predictRisk
##' @export
predictRisk <- function(object, ...) UseMethod("predictRisk")
##' @export
predictRisk.phreg <- function(object,newdata,times=NULL,...)
{# {{{
pcif <- predict(object,newdata,times=times,se=0)
return(c(1-pcif$surv))
}# }}}
##' @title Risk predictions to work with riskRegression package
##' @inheritParams predictRisk
##' @param newdata data.frame on which to make new predictions
##' @param times times for predictions
##' @param cause cause (cif) to predict
##' @aliases predictRisk.phreg predictRisk.binreg predictRisk.cifreg
##' predictRisk.cifregFG predictRisk.recreg
##' @export
predictRisk.binreg <- function(object,newdata,cause,times=NULL,...)
{# {{{
pcif <- predict(object,newdata,se=0)
return(c(pcif))
}# }}}
##' @export
predictRisk.cifreg <- function(object,newdata,cause,times=NULL,...)
{# {{{b
pcif <- predict(object,newdata,times=times,se=0)$cif
return(c(pcif))
}# }}}
##' @export
predictRisk.cifregFG <- function(object,newdata,cause,times=NULL,...)
{# {{{
pcif <- predict(object,newdata,times=times,se=0)$cif
return(c(pcif))
}# }}}
##' @export
predictRisk.recreg <- function(object,newdata,cause,times=NULL,...)
{# {{{
pcif <- predict(object,newdata,times=times,se=0)$cumhaz
return(c(pcif))
}# }}}
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.