inst/tinytest/test_C_pu.R

In pci: A Collection of Process Capability Index Functions

expect_error(C_pu(), 'argument "mu" is missing, with no default')
expect_error(C_pu(1.5), 'argument "sigma" is missing, with no default')
expect_error(C_pu(1.5, 1.), 'argument "usl" is missing, with no default')
expect_error(C_pu(1.5, 1., 2.),
             'argument "l" is missing, with no default')

expect_error(C_pu(1.5, 1., 2., 3., 5.), 'unused argument \\(5\\)')
expect_error(
  C_pu("1.5", 1., 2., 3.),
  '"mu" must be a base-R numeric vector and contain no Inf values'
)

expect_error(
  C_pu(1.5, "1.", 2., 3.),
  '"sigma" must be a base-R numeric vector and contain no Inf values'
)

expect_error(
  C_pu(1.5, 1., "2.", 3.),
  '"usl" must be a base-R numeric vector and contain no Inf values'
)

expect_error(
  C_pu(1.5, 1., 2., "3."),
  '"l" must be a base-R numeric vector and contain no Inf values'
)

expect_error(C_pu(1.5, 1:2, 2:4, 3.),
             'All vector arguments with length >1 must be of equal length')

expect_error(C_pu(1.5, -1., 2., 3.), '"sigma >= 0" is false')
expect_error(C_pu(1.5, 1., 2., 0.), '"l > 0L" is false')

expect_identical(C_pu(1.5, integer(0L), 2., 3.), double(0L)) # int yields double
expect_identical(C_pu(3., c(NA, 1/3), 4., 3.), c(NA, 1.)) # output with NA's
expect_identical(C_pu(3., c(NaN, 1/3), 4., 3.), c(NaN, 1.)) # output with NaN's

# Test NA over NaN.
expect_identical(C_pu(3., 1/3, NaN, NA_real_), NA_real_)
expect_identical(C_pu(3., 1/3, NA_real_, NaN), NA_real_)

expect_identical(C_pu(3., 1/3, 4., 3.), 1.) # known output
# sigma == 0 yields NaN.
expect_identical(C_pu(3., 0., 4., 3.), NaN)
expect_identical(C_pu(3., c(1/3, 0.), 4., 3.), c(1., NaN))


# Assert that output won't carry names attribute.
expect_identical(C_pu(c(foo = 3.), 1/3, 4., 3.), 1.)
expect_identical(C_pu(3., c(foo = 1/3), 4., 3.), 1.)
expect_identical(C_pu(3., 1/3, c(foo = 4.), 3.), 1.)
expect_identical(C_pu(3., 1/3, 4., c(foo = 3.)), 1.)


# Test pci_info$expr_r.
e = str2expression(pci_info["C_pu", "expr_r"])
args1 = list(mu = 3., sigma = 1/3, usl = 4., l = 3.)
args2 = list(mu = 3., sigma = .314, usl = 4., l = 3.)
expect_identical(do.call(C_pu, args1), eval(e, args1))
expect_identical(do.call(C_pu, args2), eval(e, args2))
rm(e, args1, args2)