Displaying 3 results from an estimated 3 matches for "ftim".
Did you mean:
ftime
1997 Dec 09
1
[Fwd: R-beta: R 0.50 alpha]
Hi,
I'm using the rsept for WINDOWS 95 (with modified men?, and "fixed" survival4).
See the Ennapadam Venkatraman's example made in date 35/07/97 19.02
Ennapadam Venkatraman wrote:
> library(splines)
> library(survival4)
> xx <- NULL
> xx$ftim <- exp(-runif(100))
> xx$ctim <- 2*runif(100)
> xx$sts <- 1*(xx$ftim <= xx$ctim)
> xx$otim <- xx$sts*xx$ftim + (1-xx$sts)*xx$ctim
> xx$z1 <- runif(100)
> xx$z2 <- runif(100)
> survfit( Surv(otim,sts) ~ 1,xx)
Error in eval(frame, data)[subset, , drop = FALSE] :...
1997 Jul 25
2
R-beta: R 0.50 alpha
...ELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type "license()" for details.
[Previously saved workspace restored]
> runif(1)
[1] 0.05205324
> .Random.seed
[1] 4721 5660 21509
> library(splines)
> library(survival4)
> xx <- NULL
> xx$ftim <- exp(-runif(100))
> xx$ctim <- 2*runif(100)
> xx$sts <- 1*(xx$ftim <= xx$ctim)
> xx$otim <- xx$sts*xx$ftim + (1-xx$sts)*xx$ctim
> xx$z1 <- runif(100)
> xx$z2 <- runif(100)
> survfit( Surv(otim,sts) ~ 1,xx)
Call: survfit(formula = Surv(otim, sts) ~ 1, data =...
1997 Jul 25
2
R-beta: R 0.50 alpha
...ELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type "license()" for details.
[Previously saved workspace restored]
> runif(1)
[1] 0.05205324
> .Random.seed
[1] 4721 5660 21509
> library(splines)
> library(survival4)
> xx <- NULL
> xx$ftim <- exp(-runif(100))
> xx$ctim <- 2*runif(100)
> xx$sts <- 1*(xx$ftim <= xx$ctim)
> xx$otim <- xx$sts*xx$ftim + (1-xx$sts)*xx$ctim
> xx$z1 <- runif(100)
> xx$z2 <- runif(100)
> survfit( Surv(otim,sts) ~ 1,xx)
Call: survfit(formula = Surv(otim, sts) ~ 1, data =...