Check the control numbers for oin

Calculates the control number using the Luhn algorithm and compare it with the control number in the organization identity number (oin).

Usage

oin_ctrl(oin, force_logical = FALSE)

Arguments

oin

A vector of class oin. See as.oin.

force_logical

If TRUE, force all NA in oin to be FALSE. Default is FALSE.

Value

Logical vector indicating if a oin is correct (TRUE) or not (FALSE)

References

Organisationsnummer Skatteverket

Examples

ex_oin <- c("556000-4615", "232100-0156", "802002-4280", "232100-0157", "802002-4281")
oin_ctrl(ex_oin)
#> [1]  TRUE  TRUE  TRUE FALSE FALSE