data3 <- read_csv(“Downloads/data3.zip”)
data3 <- subset(data3, ProductCode == 7306)
library(dplyr)
data3 <- data3[order(data3$PartnerISO3), ]
GLI ~ 1 - abs(Xj-Mi)/(Xj+Mi)
data3\(Xj <- ifelse(data3\)PartnerISO3 == “AUS” , data3\(TradeFlowCode == 6, sum(data3\)
TradeValue in 1000 USD
[seq(1, nrow(data3), by = 2)]))
####Xj = các dòng trong cột TradeValue cộng lại, dòng đó trong cột TradeFlow = 6 và dòng đó trong cột PartnerISO3 = AUS
Xj <- data3 %>% + filter(TradeFlowCode == 6, PartnerISO3 == “AUS”) %>% + summarise(Xj = sum(
TradeValue in 1000 USD
)) %>% + pull(Xj)
install.packages(“dplyr”) + library(dplyr)
data3 <- data3 %>% + arrange(y, x)