Displaying 1 result from an estimated 1 matches for "statuscol".
Did you mean:
status_ol
2009 May 29
1
final value of nnet with censored=TRUE for survival analysis
...e <- sum(-log(tmp))
print(paste("Difference in finale value: mine vs. the nnet-final value:", repFinalValue, "vs.",summary(net)$value))
# the function to calculate the cat-matrix from time and status information of survival data
computeCatVector <- function(d, timeCol, statusCol){
# init some values
l <- length(unique(d[,timeCol]))
n <- length(d[,statusCol])
cols <- as.character(sort(unique(d[,timeCol])))
cat <- matrix(rep(0,l*n), ncol=l, dimnames=list(c(),cols))
for (i in 1:n) {
for (x in cols) {
# DS mit E...