hetu (version 1.0.1)

rpin: Generate a vector of random hetu

Description

A function that generates random hetu-pins.

Usage

rpin(
  n,
  start_date = as.Date("1895-01-01"),
  end_date = as.Date(Sys.Date()),
  p.male = 0.4,
  p.temp = 0
)
rhetu(
  n,
  start_date = as.Date("1895-01-01"),
  end_date = as.Date(Sys.Date()),
  p.male = 0.4,
  p.temp = 0
)

Arguments

n

number of generated hetu-pins

start_date

Lower limit of generated hetu dates. Default is 1895-01-01.

end_date

Upper limit of generated hetu. Default is the current date.

p.male

Proportion of males. Default is 0.4.

p.temp

Proportion of temporary identification numbers. Default is 0.0.

Value

a vector of generated hetu-pins.

Examples

# NOT RUN {
x <- rpin(3)
hetu(x)
hetu(x, extract = "sex")
hetu(x, extract = "checksum")

x <- rhetu(3)
x
# }