cprr

Calculate date of birth, age, and gender, and generate anonymous sequence numbers from CPR numbers. Also modulo 11 check is available, though this function is only relevant for cpr numbers until 2007.

Examples

``````# Load cprr.
library(cprr)

# Make vector of example cpr numbers.
cpr <- c('1508631111', '020962-4444', '131076-2222', '1508631111', '2110625629')

# Caluculate dates of birth from cpr numbers.
dob(cpr)
#> [1] "1963-08-15" "1962-09-02" "1976-10-13" "1963-08-15" "1862-10-21"

# Calculate ages from cpr numbers.
age(cpr)
#> [1]  54.06434  55.01437  40.90075  54.06434 154.87748

# Calculate genders from cpr numbers.
gender(cpr)
#> [1] 1 0 0 1 1

# Generate anonymous sequence numbers from cpr numbers.
scramble(cpr)
#> [1] 4 2 1 4 3

# Perform modulo 11 check of cpr numbers.
mod11(cpr)
#> [1] FALSE FALSE FALSE FALSE  TRUE

# Make data frame from build in data set of official test cpr numbers.
cpr <- test_cpr\$cpr
data.frame(
cpr    = cpr,
id     = scramble(cpr),
dob    = dob(cpr),
gender = gender(cpr),
mod11  = mod11(cpr)
)
#>           cpr id        dob gender mod11
#> 1  0104909995  7 1990-04-01      1 FALSE
#> 2  0104909989 23 1990-04-01      1 FALSE
#> 3  0107729995  8 1972-07-01      1 FALSE
#> 4  0108589995  3 1958-08-01      1 FALSE
#> 5  0108629996 20 1962-08-01      0 FALSE
#> 6  0201609995 14 1960-01-02      1 FALSE
#> 7  0201609996 11 1960-01-02      0 FALSE
#> 8  0201919990 18 1991-01-02      0 FALSE
#> 9  0201919995 16 1991-01-02      1 FALSE
#> 10 0201919996 27 1991-01-02      0 FALSE
#> 11 0211223989  9 1922-11-02      1 FALSE
#> 12 0212159995 30 2015-12-02      1 FALSE
#> 13 0504909989 13 1990-04-05      1 FALSE
#> 14 0504909995 25 1990-04-05      1 FALSE
#> 15 0506889996 10 1988-06-05      0 FALSE
#> 16 1007059995  1 2005-07-10      1 FALSE
#> 17 1110109996  4 2010-10-11      0 FALSE
#> 18 1310169995  6 2016-10-13      1 FALSE
#> 19 1310169996 17 2016-10-13      0 FALSE
#> 20 1502779995  5 1977-02-15      1 FALSE
#> 21 1502799995 24 1979-02-15      1 FALSE
#> 22 1502829995 29 1982-02-15      1 FALSE
#> 23 1509819996 26 1981-09-15      0 FALSE
#> 24 2103009996  2 2000-03-21      0 FALSE
#> 25 2311143995 15 1914-11-23      1 FALSE
#> 26 2509479989 19 1947-09-25      1 FALSE
#> 27 2512489996 21 1948-12-25      0 FALSE
#> 28 2911829996 28 1982-11-29      0 FALSE
#> 29 3001749995 22 1974-01-30      1 FALSE
#> 30 3103979995 12 1997-03-31      1 FALSE``````

Installation

You can install development version from github:

``````# install.packages("devtools")
devtools::install_github("anhoej/cprr")``````

Or stable version from CRAN:

``install.packages("cprr")``