# NOT RUN {
scABEL(CV=0.3, regulator="EMA")
# should give the usual BE limits:
# lower upper
# 0.80 1.25
scABEL(CV=0.4, regulator="EMA")
# should give the widened limits:
# lower upper
# 0.746177 1.340165
#
# 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 not widened limits:
# lower upper
# 0.80 1.25
# }
Run the code above in your browser using DataLab