data(mass)
data(distance)
data(od)
mi <- as.numeric(mass[, 1])
mj <- mi
Oi <- as.numeric(mass[, 2])
Dj <- as.numeric(mass[, 3])
res <- run_law_model(law = "GravExp",
mass_origin = mi,
mass_destination = mj,
distance = distance,
opportunity = NULL,
param = 0.01,
model = "DCM",
nb_trips = NULL,
out_trips = Oi,
in_trips = Dj,
average = FALSE,
nbrep = 1,
maxiter = 50,
mindiff = 0.01,
write_proba = FALSE,
check_names = FALSE)
gof(sim = res,
obs = od,
measures = "CPC",
distance = NULL,
bin_size = 2,
use_proba = FALSE,
check_names = FALSE)
Run the code above in your browser using DataLab