R/riskRegression.R

In mets: Analysis of Multivariate Event Times

##' Risk predictions to work with riskRegression package
##' 
##' Risk predictions to work with riskRegression package
##' 
##' @param object  phreg/binreg/cifreg object 
##' @param newdata  newdata
##' @param times times for predictions
##' @author Thomas Scheike
##' @export
##' @aliases predictRisk.cifreg predictRisk.binreg
predictRisk.phreg <- function(object,newdata,times=NULL)
{# {{{
	pcif <- predict(object,newdata,times=times,se=0)
	return(c(1-pcif$surv))
}# }}}

##' @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)
{# {{{
	pcif <- predict(object,newdata,times=times,se=0)$cif
	return(c(pcif))
}# }}}