Nothing
#' SurvivalStat_PostProcess is a function to Extract summary statistics of the built cox model
#' @param StatList Summary lists of the cox models built using all the
#' @return A list including Cindex, Cindex_std and LogTest_pval
#' @importFrom stats princomp
SurvivalStat_PostProcess <- function(StatList){
Cindex <- c()
Cindex_std <- c()
LogTest_pval <- c()
NamesVec <- c()
for(Iter in 1:length(StatList)){
CoxList <- StatList[[Iter]]
if(class(CoxList) == "summary.coxph"){
Cindex <- c(Cindex, as.numeric(CoxList$concordance[1]))
Cindex_std <- c(Cindex_std, as.numeric(CoxList$concordance[2]))
LogTest_pval <- c(LogTest_pval, as.numeric(CoxList$logtest[3]))
NamesVec <- c(NamesVec, names(StatList)[Iter])
}else if(class(CoxList) == "list"){
for(ModelIter in 1:length(CoxList)){
CoxModel <- CoxList[[ModelIter]]
Cindex <- c(Cindex, as.numeric(CoxModel$concordance[1]))
Cindex_std <- c(Cindex_std, as.numeric(CoxModel$concordance[2]))
LogTest_pval <- c(LogTest_pval, as.numeric(CoxModel$logtest[3]))
NamesVec <- c(NamesVec, names(StatList[[Iter]])[ModelIter])
}
}
}
names(Cindex) <- NamesVec
names(Cindex_std) <- NamesVec
names(LogTest_pval) <- NamesVec
StatList_Summary <- list(Cindex, Cindex_std, LogTest_pval)
names(StatList_Summary) <- c("Cindex", "Cindex_std", "LogTest_pval")
return(StatList_Summary)
}
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.