oberon% splus
S-PLUS : Copyright (c) 1988, 1996 MathSoft, Inc.
S : Copyright AT&T.
Version 3.4 Release 1 for HP 9000 Series, HP-UX 9.0.5 : 1996 
Working data will be in /u/disk13/stat/mai/.Data 
> source("BlindSimu.r")
> BlindSimu
function(X1 = rexp(100, rate = 1), C1 = rexp(100, rate = 1), X2 = rexp(100, 
        rate = 1), C2 = rexp(100, rate = 1))
{
        Z1 <- pmin(X1, C1)
        D1 <- as.numeric(C1 > X1)
        Z2 <- pmin(X2, C2)
        D2 <- as.numeric(C2 > X2)
        temp1 <- KMNAatT(Z1, D1, 0.5)
        temp2 <- KMNAatT(Z2, D2, 0.5)
        Tvar <- (temp1$std.err)^2 + (temp2$std.err)^2
        temp3 <- KMNAatT(c(Z1, Z2), c(D1, D2), 0.5)
        Bvar <- 4 * (temp3$std.err)^2
        list(Tvariance = Tvar, Bvariance = Bvar, TnelsonVar = (temp1$
                NelsonAalenVar + temp2$NelsonAalenVar), BnelsonVar = 4 * (temp3$
                NelsonAalenVar), Best = temp3$surv, BGW = temp3$std.err)
}
> set.seed(153)
> set.seed(153)
> result12
Error: Object "result12" not found
> result12 <- matrix(NA, nrow=5000, ncol=6)
> for(i in 1:1000) result12[i,] <- unlist(BlindSimu())
for(i in 1001:2000) result12[i,] <- unlist(BlindSimu())
for(i in 2001:3000) result12[i,] <- unlist(BlindSimu())
for(i in 3001:4000) result12[i,] <- unlist(BlindSimu())
> > > > 
> for(i in 4001:5000) result12[i,] <- unlist(BlindSimu())
> 
> mean( result12[,1] )
[1] 0.006266544
> mean( result12[,2] )
[1] 0.006297376
> mean( result12[,3])
[1] 0.01734784
> mean( result12[,4])
[1] 0.01727853
> var( result12[,5])
[1] 0.001548876
> mean( (result12[,6])^2 )
[1] 0.001574344
>