Create fake transport sondage
fake_sondage_answers(
n = 200,
x,
seed = 2811,
split = FALSE,
local = c("fr_FR")
)
Number of sondage
Optionnal. fake client data base with "age" column
fixe la graine aleatoire
Logical. Split database in individuals and answers
the local of the base. Currently supported : "fr_FR" and "en_US".
3 types for each individuals: travail, commerces, loisirs
distance_km. Average distance (km) to target location. Distance is related to age.
transport. Mean of transport to go to target location. Depends on distance.
time_travel_hours. Average duration (hours) to target location. Depends on distance and transport.
answers <- fake_sondage_answers()
if (FALSE) {
ggplot(answers) + aes(age, log(distance_km), colour = type) + geom_point() +
geom_smooth() + facet_wrap(~type, scales = "free_y")
}