scABEL(CV = 0.3, regulator = "EMA")
# should give the conventional (unscaled) BE limits:
# lower upper
# 0.80 1.25
scABEL(CV = 0.5, regulator = "EMA")
# should give the (maximum) expanded limits:
# lower upper
# 0.6983678 1.4319102
# define old ANVISA settings via reg_const()
rc <- reg_const("USER", r_const = 0.76,
CVswitch = 0.4, CVcap = 0.5)
rc$name <- "ANVISAold"
scABEL(CV = 0.4, regulator = rc)
# should give the conventional (not expanded) limits:
# lower upper
# 0.80 1.25
scABEL(CV = 0.55, regulator = "HC")
# should give the widened limits:
# lower upper
# 0.6765789 1.4780241
scABEL(CV = 0.55, regulator = "GCC")
# should give the widened limits:
# lower upper
# 0.750000 1.333333
scABEL(CV = 0.55, regulator = "FDA")
# should give the 'implied' limits:
# lower upper
# 0.6320032 1.5822705
Run the code above in your browser using DataLab