TABLE OF CONTENTS

simulation/L [ Functions ]

NAME

    L --- stratification function

FUNCTION

Simulates strata

SYNOPSIS

288 L <- function(i, j, k, Z)

SOURCE

291 {
292     # Simple stratification: First event, stratum 1, events 2 - 3, stratum 2,
293     # after that, stratum 3
294     if(k == 1){out <- 1}
295     if(k > 1 & k < 4){out <- 2}
296     if(k > 3){out <- 3}
297     out <- 1
298     return(out)
299 }