Trade networks

Trade 1985

Bavla/Trade1985
> # install.packages("readxl")
> wdir <- "C:/Users/vlado/DL/data/multi/trade"
> setwd(wdir)
> library("readxl")
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> E <- read_excel("GlobalTradeNetworkData_AppendixTable1.xlsx",range="B5:GL197")
> T <- as.matrix(E[1:192,2:193])
> rownames(T) <- colnames(T)
> matrix2net(T,Net="Trade1985.net")
> N <- read_excel("GlobalTradeNetworkData_AppendixTable1.xlsx",range="A6:A197",col_names = FALSE)
> rownames(T) <- colnames(T) <- as.vector(unlist(N))
> matrix2net(T,Net="Trade1985cn.net")