R/riskRegression.R

In mets: Analysis of Multivariate Event Times

##' 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))
}# }}}