In mpadge/distdecay: Calculate Distance Decay Functions

scrips to generate test data

m <- array (1:100, dim = c (10, 10))
rownames (m) <- colnames (m) <- paste0 (1:10)
tm <- dm <- m
attr (tm, "variable") <- "numtrips"
attr (dm, "variable") <- "distance"

tripmats <- list (la = tm)
fname <- system.file ('extdata', 'tripmats.rda', package = 'distdecay')
#fname <- file.path (getwd(), "inst", "extdata", "tripmats.rda")
save (tripmats, file = fname)

distmats <- list (la = dm)
fname <- system.file ('extdata', 'distmats.rda', package = 'distdecay')
#fname <- file.path (getwd(), "inst", "extdata", "distmats.rda")
save (distmats, file = fname)

mpadge/distdecay documentation built on May 24, 2019, 6:08 a.m.