# NOT RUN {
library(cartograflow)
data(flowdata)
bkg <- system.file("shape/MGP_TER.shp",
package = "cartograflow",
lib.loc = NULL, mustWork = TRUE
)
## 1a:Computes flowtypes: Matrix format
matflow <- flowtabmat(flows, matlist = "M")
m <- flowtype(matflow, format = "M", x = "flux")
m <- flowtype(matflow, format = "M", x = "transpose")
m <- flowtype(matflow, format = "M", x = "bivolum")
m <- flowtype(matflow, format = "M", x = "bibal")
## 1b:Computes flowtypes: Long format
types_all <- flowtype(flows,origin ="i",destination="j",fij="Fij", format = "L",
x = "alltypes")
bivol<- flowtype(flows,origin ="i",destination="j",fij="Fij",format = "L",
x = "bivolum",lowup="up")
bibal_net<- flowtype(flows,origin ="i",destination="j",fij="Fij",format = "L",
x = "bibal", net="negative")
# }
# NOT RUN {
# 2:flowmapping: example of bibal_net
flowmap(bibal_net,
format = "L", bkg, code = "EPT_NUM",
filter = TRUE, threshold = 20, taille = 5, a.head = 1,
)
# }
Run the code above in your browser using DataLab