Implements the normal approximation of the log-rank test statistic.
probability that a subject will eventually have an event
logical indicating if a two-armed trial is regarded
outcome
vector of probabilities
sample size
distribution parameter
further optional arguments
object of class Survival
number of simulation runs
random seed
event_ratecf. parameter 'event_rate'
see probability_density_function and
   cumulative_distribution_function to evaluate the pdf
   and the cdf, respectively.
datadist <- Survival(event_rate=0.6, two_armed=TRUE)