## Create a random population of 100 subjects
## having 20 events
subjects <- numeric(100)
subjects[sample(100,20)] <- 1
vo <- new.valorate(rank=subjects, sampling.size=100000)
# and with verbose
## generate random log-ranks
valorate.random.n1(vo, 10, 100)
Run the code above in your browser using DataLab