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), C1 = rexp(100), X2 = rexp(100, rate = 0.9), C2 = rexp(
        100, rate = 0.85))
{
        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)
> result1 <- matrix(NA, nrow=5000, ncol=6)
> for(i in 1:1000) result1[i,] <- unlist(BlindSimu())
> for(i in 1001:2000) result1[i,] <- unlist(BlindSimu())
> for(i in 2001:3000) result1[i,] <- unlist(BlindSimu())
> for(i in 3001:4000) result1[i,] <- unlist(BlindSimu())
> for(i in 4001:5000) result1[i,] <- unlist(BlindSimu())
> mean(result1[,1])
[1] 0.006030772
> mean(result2[,2])
Error: Object "result2" not found
Dumped
> mean(result1[,2])
[1] 0.006057681
> mean(result1[,3])
[1] 0.0159109
> mean(result1[,4])
[1] 0.01577284
> var(result1[,5])
[1] 0.001474026
> mean( (result1[,6])^2 )
[1] 0.00151442