if (FALSE) {
# 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