R/print.subjectWeights.R In riskRegression: Risk Regression Models and Prediction Scores for Survival Analysis with Competing Risks

Documented in print.subjectWeights

```#' Print subject weights
#'
#' Print subject weights
#' @param x Subject weights
#' @param digits Digits
#' @param ... not used
#'
#' @method print subjectWeights
#' @export
print.subjectWeights <- function(x,digits=3,...){
cat("\nEstimated inverse of the probability of censoring weights (subjectWeights)\n\n")
method=switch(x\$method,
"cox"="Cox regression",
"marginal"="Kaplan-Meier",
"km"="Kaplan-Meier",
"nonpar"="Stratified Kaplan-Meier",
"none"="No weighting",
"Unknown")
cat("Method for estimation: ", method,"\n")
cat("Handler function: ",paste(as.character(x\$fit\$call[1]),"()",sep=""),"\n\n")
if(x\$method %in% c("km","marginal","none")){
if (x\$lag==1)
gstring <- "G(T_i-)"
else
gstring <- "G(T_i)"
}else{
if (x\$lag==1)
gstring <- "G(T_i-|X_i)"
else
gstring <- "G(T_i|X_i)"
}
cat("Summary of the weights ",gstring,":\n\n")
print(summary(x\$weights),digits=digits,quote=FALSE)
invisible(x)
}
```

Try the riskRegression package in your browser

Any scripts or data that you put into this service are public.

riskRegression documentation built on March 23, 2022, 5:07 p.m.