Create fake transport sondage

fake_sondage_answers(
  n = 200,
  x,
  seed = 2811,
  split = FALSE,
  local = c("fr_FR")
)

Arguments

n

Number of sondage

x

Optionnal. fake client data base with "age" column

seed

fixe la graine aleatoire

split

Logical. Split database in individuals and answers

local

the local of the base. Currently supported : "fr_FR" and "en_US".

Details

  • 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.

Examples

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")
}