# NOT RUN {
# Absolute information epsilon:
# decision rule 45 >= 46 - 1, i.e., under-running
data <- getDataset (
overallN = c(22, 45),
overallEvents = c(11, 28))
getObservedInformationRates (data,
maxInformation = 46, informationEpsilon = 1)
# Relative information epsilon:
# last information rate = 45/46 = 0.9783,
# is > 1 - 0.03 = 0.97, i.e., under-running
data <- getDataset (
overallN = c(22, 45),
overallEvents = c(11, 28))
getObservedInformationRates (data,
maxInformation = 46, informationEpsilon = 0.03)
# }
Run the code above in your browser using DataLab