set.seed(42)
n <- 500
menages <- data.frame(
age = c(sample(0:100, n-5, TRUE), rep(-1, 3), rep(130, 2)),
age_mere = sample(15:60, n, TRUE),
age_enfant = sample(0:30, n, TRUE),
age_deces = c(sample(1:90, n-10, TRUE), rep(NA, 10)),
sexe = sample(c("H","F","X"), n, TRUE, prob=c(0.49,0.49,0.02))
)
coherence_demo(menages,
var_age="age", var_age_mere="age_mere",
var_age_enfant="age_enfant",
var_sexe="sexe")
Run the code above in your browser using DataLab