Displaying 2 results from an estimated 2 matches for "timecol".
Did you mean:
simecol
2009 May 29
1
final value of nnet with censored=TRUE for survival analysis
...FinalValue <- 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) {...
2012 Sep 27
1
Speeding up time conversion
...strptime(DATA$DATADTM, "%m/%d/%Y %H:%M:%S"))
It takes 21 minutes to execute this step on a dual quad-core Mac with 12 GB RAM (it is appreciably slower on other Mac's including a new i5 iMac).
Are there other time formatting functions or strategies that would be faster?
Sample data:
TIMECOL <- rep("2/1/2011 13:25:01", 100)
Any tips would be appreciated.
Dennis
Dennis Fisher MD
P < (The "P Less Than" Company)
Phone: 1-866-PLessThan (1-866-753-7784)
Fax: 1-866-PLessThan (1-866-753-7784)
www.PLessThan.com