我们可以使用mapply来应用带有多个参数的函数CVfromCI。

library(PowerTOST)

mapply(CVfromCI, 
       pe = c(0.95, 0.94, 0.99),
       lower = c(0.86, 0.897, 0.88),
       upper = c(1.029, 1.027, 1.025),
       n = 24,
       design = "2x2",
       alpha = 0.05,
       robust = FALSE)
# [1] 0.1824596 0.1371548 0.1547650
# Warning messages:
# 1: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input. 
# 2: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input. 
# 3: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input.

我们也可以使用purrr包中的pmap_dbl。请注意，在使用pmap_dbl时，我们首先以列表的形式提供多个参数，然后提供函数。

library(purrr)

pmap_dbl(list(pe = c(0.95, 0.94, 0.99),
              lower = c(0.86, 0.897, 0.88),
              upper = c(1.029, 1.027, 1.025),
              n = 24,
              design = "2x2",
              alpha = 0.05,
              robust = FALSE),
         CVfromCI)
# [1] 0.1824596 0.1371548 0.1547650
# Warning messages:
# 1: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input. 
# 2: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input. 
# 3: sigma based on pe & lower CL more than 10% different than
# sigma based on pe & upper CL. Check input.