inst/tinytest/test_is_valid_SEDOL.R

SEDOL <- c("0263494", "B1F3M59", "0263491", "A", NA)

ans <- is_valid_SEDOL(SEDOL)
expect_equivalent(ans, c(TRUE, TRUE, FALSE, FALSE, NA))

ans <- is_valid_SEDOL(SEDOL, NA.FALSE = TRUE)
expect_equivalent(ans, c(TRUE, TRUE, FALSE, FALSE, FALSE))

Try the PMwR package in your browser

Any scripts or data that you put into this service are public.

PMwR documentation built on Oct. 19, 2023, 9:09 a.m.