Re: [R] creating Surv object from character vector

2009-09-29 Thread Erik Iverson
> > as.Surv <- function(x) { > Surv(as.integer(sub("\\+", "", x)), >as.integer(ifelse(regexpr("\\+", x) > -1, 0, 1))) > } > > > identical(srv, as.Surv(srv.char)) > [1] TRUE > But Do NOT use "as.integer" with real data, which may contain fractions of course. I was too eager to get i

Re: [R] creating Surv object from character vector

2009-09-29 Thread David Winsemius
On Sep 29, 2009, at 3:08 PM, Erik Iverson wrote: Hello, I have srv <- Surv(sample(1:10), sample(0:1, 10, replace = TRUE)) srv [1] 1 10 2+ 8 6+ 7+ 3 5+ 4+ 9+ srv.char <- as.character(srv) srv.char [1] " 1 " "10 " " 2+" " 8 " " 6+" " 7+" " 3 " " 5+" " 4+" " 9+" Is there an inver

Re: [R] creating Surv object from character vector

2009-09-29 Thread Erik Iverson
> > identical(srv, ???(srv.char)) to return TRUE, where ??? is some unknown > function. I don't think it exists, but maybe I'm wrong. I suppose it > would be easy enough to roll my own... > FYI, This works in my simple case for right-censored data... it takes as input a vector like c("1", "2+