# NOT RUN {
library(cartograflow)
data(flowdata)
bkg<- system.file("shape/MGP_TER.shp", package="cartograflow",
lib.loc = NULL, mustWork = TRUE)
##1a:Computes flowtypes: Matrice 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="bisold")
##1b:Computes flowtypes: Long format
list<-flowtabmat(matflow,matlist="L")
colnames(list)<-c("i","j","Fij")
l_all<-flowtype(list,format ="L",x="all")
l_sold<-flowtype(list,format ="L",x="bisold")
# }
# NOT RUN {
#2:flowmapping: example of bisold
flowmap(l_sold,format = "L",bkg,code = "EPT_NUM",
filter= TRUE,threshold= 20, taille = 5)
# }
Run the code above in your browser using DataLab