Wages Index Final - only employed
Amra Fetahovic
2023-11-24
Napomena Ovaj dokument sadrzi slijedece:
- Model wages sa svim income varijablama (njega na kraju nisam upotrijebila) - samo zaposleni
- Model wages sa odabranim income varijablama - samo zaposleni (upotrijebila sam ga)
- Model wages svi activity status
- Mape za HPI, WI i Transport cost u monetarnim vrijednostima
- mape QoL index za sve slucajeve wages
Ismir mail 03.01.
Ovaj wage model sadrzi samo one osobe koje su zaposlene, a dodacu i novu dummy varijablu full time dummy ili part time dummy.
To znaci da cu da gledam samo Active 1 i 2 tj. full-time i part time, ali pod vrstom prihoda ovih uzimam sve one koje sam koristila i u prethodnom modelu.
library(haven)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionsetwd("C:/Users/Amra/Documents/HBS database inspecting")
HBS_2015_HH_short <- read_sav("~/HBS database inspecting/HBS_2015_HH - short.sav")
hbs_short <- HBS_2015_HH_short01 OZNACAVA DA SE RADI O PRVOM CLANU DOMACINSTVA KOJI JE PRIMAO ZARADE YN Oznacava DA-NE tj. odnosi se na da li su ili nisu primali naknade IN Mjesecni iznos odredjene naknade NM Broj mjeseci za koji je primljen taj iznos
Sabracu za svakog clana domacinstva koji su rekli da su primili neku od nakanda i vidjeti koliko mi to pokriva opstina
hbs_short$amr.NEWINCOM <- rowSums(hbs_short[,c("Q02_YN_01_S12","Q02_YN_02_S12","Q02_YN_03_S12","Q02_YN_04_S12","Q02_YN_05_S12","Q02_YN_06_S12", "Q02_YN_07_S12", "Q02_YN_08_S12", "Q02_YN_09_S12","Q02_YN_10_S12","Q02_YN_11_S12","Q02_YN_12_S12", "Q02_YN_13_S12")],na.rm = T)
table(hbs_short$amr.NEWINCOM)##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## 44 592 1583 1297 1598 900 697 500 231 134 63 39 11 7 1 3
## 18
## 2Prema ovoma samo u 44 domacinstava ni jedan clan ne dobiva nsita sto je navedeno u piatanjama QA01 - QA23.
Plan za dalje:
- Za svaku varijablu koja ima neki inkom izracunati mjesecne izdatke i za svakog clana. jer imaju i iznos a ima i koliko mjesecno je primao, tako da to treba mnoziti sa kolonom broj mjeseci pa dijeli sa brojem 12.
- Nakon toga cu da izracunam mjesecna primanja za svakog clana domacinstva
- Necu racunati allowance jer to nije zarada niti cu stavljati iznamljivanje zemlje, garaze i slicen rente jer i to mi nije zarada.
- Onda cu to sve sabrati i imacu mjesecnu zaradu po domacinstvu.
- Zadrzavam samo one koje su Active 1 i Active 2
- Formiram full time dummy
ZA PLATE UZIMAM SVAKOG CLANA PORODICE POSEBNO
- NECU BRISATI _S2, _S6, _S7, _S10, COICOP, jer cu mozda samo za ove likove racunati transport.
- Samo prvih osam clanova razmatram, jer npr za 9-og clana QA01_YN_09_S12 samo je jedan primio remitencices, 10 nije nisa,
- _S11 brisati to su penzije, QBizbaciti to su penzije, a ostaviti QA, to je income, izbaciti QC, QD,
library(dplyr)
hbs_wage <- hbs_short %>% select(contains(c( "SifraDom","Entity","Canton","naziv_opcine","RurUrb","ncomp","finweight","Relat","Sex","Age", "Educ","Activ", "HH_Monthly", "QA", "_S2", "_S6", "_S7", "_S10", "COICOP")))#remove additional unnecessary variables
hbs_wage <- hbs_wage %>% select(-c(M_Entity, M_Canton_Region, Relat_9, Relat_10, Relat_11, Relat_12, Relat_13, Sex_9, Sex_10, Sex_11, Sex_12, Sex_13, Age_9, Age_10, Age_11, Age_12, Age_13, Educ_9, Educ_10, Educ_11, Educ_12,Educ_13,Activ_9, Activ_10, Activ_11, Activ_12, Activ_13))#izbacumjem nepotrebne varijable iz Educ (Class, now, Level)
hbs_wage <- hbs_wage %>% select(!contains(c("Class","now","Level","QA16","QA17","QA18", "QA19", "QA20", "QA22", "QA21","_09_S12", "_10_S12")))FAZA 2
SADA PRVO FORMIRAM WAGE ZA SVAKOG CLANA DOMACINSTVA ZA INCOME
Mjesecno all wage for 1st household
library(haven)
hbs_wage$QA01_01_mj <- (hbs_wage$QA01_IN_01_S12*hbs_wage$QA01_NM_01_S12)/12
hbs_wage$QA02_01_mj <- (hbs_wage$QA02_IN_01_S12*hbs_wage$QA02_NM_01_S12)/12
hbs_wage$QA03_01_mj <- (hbs_wage$QA03_IN_01_S12*hbs_wage$QA03_NM_01_S12)/12
hbs_wage$QA04_01_mj <- (hbs_wage$QA04_IN_01_S12*hbs_wage$QA04_NM_01_S12)/12
hbs_wage$QA05_01_mj <- (hbs_wage$QA05_IN_01_S12*hbs_wage$QA05_NM_01_S12)/12
hbs_wage$QA06_01_mj <- (hbs_wage$QA06_IN_01_S12*hbs_wage$QA06_NM_01_S12)/12
hbs_wage$QA07_01_mj <- (hbs_wage$QA07_IN_01_S12*hbs_wage$QA07_NM_01_S12)/12
hbs_wage$QA08_01_mj <- (hbs_wage$QA08_IN_01_S12*hbs_wage$QA08_NM_01_S12)/12
hbs_wage$QA09_01_mj <- (hbs_wage$QA09_IN_01_S12*hbs_wage$QA09_NM_01_S12)/12
hbs_wage$QA10_01_mj <- (hbs_wage$QA10_IN_01_S12*hbs_wage$QA10_NM_01_S12)/12
hbs_wage$QA11_01_mj <- (hbs_wage$QA11_IN_01_S12*hbs_wage$QA11_NM_01_S12)/12
hbs_wage$QA12_01_mj <- (hbs_wage$QA12_IN_01_S12*hbs_wage$QA12_NM_01_S12)/12
hbs_wage$QA13_01_mj <- (hbs_wage$QA13_IN_01_S12*hbs_wage$QA13_NM_01_S12)/12
hbs_wage$QA14_01_mj <- (hbs_wage$QA14_IN_01_S12*hbs_wage$QA14_NM_01_S12)/12
hbs_wage$QA15_01_mj <- (hbs_wage$QA15_IN_01_S12*hbs_wage$QA15_NM_01_S12)/12
hbs_wage$QA23_01_mj <- (hbs_wage$QA23_IN_01_S12*hbs_wage$QA23_NM_01_S12)/12Mjesecno sva primanja za prvog householda
hbs_wage$QA_01_all_mj <- rowSums(hbs_wage[,c("QA01_01_mj","QA02_01_mj","QA03_01_mj","QA04_01_mj","QA05_01_mj","QA06_01_mj", "QA07_01_mj", "QA08_01_mj", "QA09_01_mj", "QA10_01_mj", "QA11_01_mj", "QA12_01_mj","QA13_01_mj", "QA14_01_mj", "QA15_01_mj", "QA23_01_mj")],na.rm = T)
summary(hbs_wage$QA_01_all_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 0.0 290.0 466.7 18350.0plot(density(hbs_wage$QA_01_all_mj))
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za prvog clana. Ovo je taj Ismirov mail od 3.januara tj. not all.
hbs_wage$QAnotall_01_mj <- rowSums(hbs_wage[,c("QA01_01_mj","QA02_01_mj","QA07_01_mj", "QA08_01_mj", "QA09_01_mj", "QA14_01_mj", "QA15_01_mj")],na.rm = T)
summary(hbs_wage$QAnotall_01_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 0.0 244.1 369.2 18350.0plot(density(hbs_wage$QAnotall_01_mj))
mjesecno all wage for 2nd household
Mjesecno sva primanja za drugog householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za drugog clana
hbs_wage$QAnotall_02_mj <- rowSums(hbs_wage[,c("QA01_02_mj","QA02_02_mj","QA07_02_mj", "QA08_02_mj", "QA09_02_mj", "QA14_02_mj", "QA15_02_mj")],na.rm = T)
summary(hbs_wage$QAnotall_02_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 0.0 127.5 0.0 12833.3plot(density(hbs_wage$QAnotall_02_mj))
mjesecno all wage for 3nd household
Mjesecno sva primanja za treci householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za treceg clana
hbs_wage$QAnotall_03_mj <- rowSums(hbs_wage[,c("QA01_03_mj","QA02_03_mj","QA07_03_mj", "QA08_03_mj", "QA09_03_mj", "QA14_03_mj", "QA15_03_mj")],na.rm = T)
summary(hbs_wage$QAnotall_03_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 67.53 0.00 12000.00plot(density(hbs_wage$QAnotall_03_mj))
mjesecno all wage for 4th household
Mjesecno sva primanja za cetvrta householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za cetvrtog clana
hbs_wage$QAnotall_04_mj <- rowSums(hbs_wage[,c("QA01_04_mj","QA02_04_mj","QA07_04_mj", "QA08_04_mj", "QA09_04_mj", "QA14_04_mj", "QA15_04_mj")],na.rm = T)
hbs_wage$QAnotall_04_mj <- as.numeric(hbs_wage$QAnotall_04_mj)
summary(hbs_wage$QAnotall_04_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 18.41 0.00 2750.00str(hbs_wage$QAnotall_04_mj)## num [1:7702] 0 0 0 0 0 0 0 0 0 0 ...plot(density(hbs_wage$QAnotall_04_mj))
mjesecno all wage for 5th household
Mjesecno sva primanja za petog householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za petog clana
hbs_wage$QAnotall_05_mj <- rowSums(hbs_wage[,c("QA01_05_mj","QA02_05_mj","QA07_05_mj", "QA08_05_mj", "QA09_05_mj", "QA14_05_mj", "QA15_05_mj")],na.rm = T)
hbs_wage$QAnotall_05_mj <- as.numeric(hbs_wage$QAnotall_05_mj)
summary(hbs_wage$QAnotall_05_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 4.682 0.000 1500.000str(hbs_wage$QAnotall_05_mj)## num [1:7702] 0 0 0 0 0 0 0 0 0 0 ...plot(density(hbs_wage$QAnotall_05_mj))
mjesecno all wage for 6th household
Mjesecno sva primanja za sesti householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za sestog clana
hbs_wage$QAnotall_06_mj <- rowSums(hbs_wage[,c("QA01_06_mj","QA02_06_mj","QA07_06_mj", "QA08_06_mj", "QA09_06_mj", "QA14_06_mj", "QA15_06_mj")],na.rm = T)
hbs_wage$QAnotall_06_mj <- as.numeric(hbs_wage$QAnotall_06_mj)
summary(hbs_wage$QAnotall_06_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.657 0.000 1200.000str(hbs_wage$QAnotall_06_mj)## num [1:7702] 0 0 0 0 0 0 0 0 0 0 ...plot(density(hbs_wage$QAnotall_06_mj))
mjesecno all wage for 7th household
Mjesecno sva primanja za sedmog householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za petog clana
hbs_wage$QAnotall_07_mj <- rowSums(hbs_wage[,c("QA01_07_mj","QA02_07_mj","QA07_07_mj", "QA08_07_mj", "QA09_07_mj", "QA14_07_mj", "QA15_07_mj")],na.rm = T)
hbs_wage$QAnotall_07_mj <- as.numeric(hbs_wage$QAnotall_07_mj)
summary(hbs_wage$QAnotall_07_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.4068 0.0000 1200.0000str(hbs_wage$QAnotall_07_mj)## num [1:7702] 0 0 0 0 0 0 0 0 0 0 ...plot(density(hbs_wage$QAnotall_07_mj))
mjesecno all wage for 8th household
Mjesecno sva primanja za osmog householda
Mjesecno samo QA01_, QA02, QA_07, QA_08, QA_09, QA14, QA15 za osmog clana
hbs_wage$QAnotall_08_mj <- rowSums(hbs_wage[,c("QA01_08_mj","QA02_08_mj","QA07_08_mj", "QA08_08_mj", "QA09_08_mj", "QA14_08_mj", "QA15_08_mj")],na.rm = T)
hbs_wage$QAnotall_08_mj <- as.numeric(hbs_wage$QAnotall_08_mj)
summary(hbs_wage$QAnotall_08_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00000 0.00000 0.00000 0.02597 0.00000 200.00000str(hbs_wage$QAnotall_08_mj)## num [1:7702] 0 0 0 0 0 0 0 0 0 0 ...plot(density(hbs_wage$QAnotall_08_mj))
Samo topli obrok i prevoz za sve
Ovo racunam da vidim da li i u kojoj mjeri razlikuju prevoz i topli obrok
hbs_wage$QA07_mj_all <- rowSums(hbs_wage[,c("QA07_01_mj","QA07_02_mj","QA07_03_mj","QA07_04_mj","QA07_05_mj","QA07_06_mj", "QA07_07_mj", "QA07_08_mj")],na.rm = T) #topli obrok
hbs_wage$QA08_mj_all <- rowSums(hbs_wage[,c("QA08_01_mj","QA08_02_mj","QA08_03_mj","QA08_04_mj","QA08_05_mj","QA08_06_mj", "QA08_07_mj", "QA08_08_mj")],na.rm = T) #prevoztapply (hbs_wage$QA07_mj_all, hbs_wage$Entity, summary) #topl ob## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 44.89 0.00 1000.00
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 8.143 0.000 800.000
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.7301 0.0000 100.0000tapply (hbs_wage$QA08_mj_all, hbs_wage$Entity, summary) # prev## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 6.261 0.000 500.000
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 2.239 0.000 400.000
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.2212 0.0000 100.0000hbs_wage %>% group_by(Entity) %>% summarise(mean07= mean(QA07_mj_all, na.rm=T), mean08 = mean(QA08_mj_all,na.rm=T) , n())NOVI FRAME SAMO SA _mj VARIJABLAMA I SOCIO-EK
hbs_wage.NEW <- hbs_wage %>% select(contains(c("SifraDom", "Entity", "naziv_Opcine", "Relat", "Age", "Activ", "Educ","Rur","Sex", "all_mj","notall_","QA07_0","QA08_0")))#all_mj dodajem radi ukupnih prihoda po clanu a Q07_i Q08_ radi toplog obr i prevoza po svakom clanu; notall_mj su mjesecni incomi od rada po osnovu zaposlenosti, rada u bih ali strani poslodavac, usluge(npr.pravnici),poljoprivreda, topli obrok prevoz i smjestaj
names(hbs_wage.NEW)## [1] "SifraDom" "Entity" "naziv_Opcine" "Relat_1"
## [5] "Relat_2" "Relat_3" "Relat_4" "Relat_5"
## [9] "Relat_6" "Relat_7" "Relat_8" "Age_1"
## [13] "Age_2" "Age_3" "Age_4" "Age_5"
## [17] "Age_6" "Age_7" "Age_8" "Activ_1"
## [21] "Activ_2" "Activ_3" "Activ_4" "Activ_5"
## [25] "Activ_6" "Activ_7" "Activ_8" "Educ_1"
## [29] "Educ_2" "Educ_3" "Educ_4" "Educ_5"
## [33] "Educ_6" "Educ_7" "Educ_8" "RurUrb"
## [37] "Sex_1" "Sex_2" "Sex_3" "Sex_4"
## [41] "Sex_5" "Sex_6" "Sex_7" "Sex_8"
## [45] "QA_01_all_mj" "QA_02_all_mj" "QA_03_all_mj" "QA_04_all_mj"
## [49] "QA_05_all_mj" "QA_06_all_mj" "QA_07_all_mj" "QA_08_all_mj"
## [53] "QAnotall_01_mj" "QAnotall_02_mj" "QAnotall_03_mj" "QAnotall_04_mj"
## [57] "QAnotall_05_mj" "QAnotall_06_mj" "QAnotall_07_mj" "QAnotall_08_mj"
## [61] "QA07_01_mj" "QA07_02_mj" "QA07_03_mj" "QA07_04_mj"
## [65] "QA07_05_mj" "QA07_06_mj" "QA07_07_mj" "QA07_08_mj"
## [69] "QA08_01_mj" "QA08_02_mj" "QA08_03_mj" "QA08_04_mj"
## [73] "QA08_05_mj" "QA08_06_mj" "QA08_07_mj" "QA08_08_mj"FAZA 3- FROM WIDE TO LONG
to summarize specific variables - code
library(tidyr)
hbs_wage.NEW.long <- hbs_wage.NEW %>% pivot_longer(cols = c(starts_with("Age"), starts_with("Relat"), starts_with("Activ"),starts_with("Educ"),starts_with ("Sex") ,contains("_mj")),names_to = c(".value", "Relat"), names_pattern = "(\\w+).*?(\\d)")dim(hbs_wage.NEW.long)## [1] 61616 14names(hbs_wage.NEW.long) #QA07_0 je topli obrok za svakog clana QA_0 je ukupni wage za svakog clana i QA08_0 je prevoz za svakog clana QAnotall wage ali redukovani## [1] "SifraDom" "Entity" "naziv_Opcine" "RurUrb" "Relat"
## [6] "Age_" "Relat_" "Activ_" "Educ_" "Sex_"
## [11] "QA_0" "QAnotall_0" "QA07_0" "QA08_0"prvo izbaci godine NA i sve ispod 15 godina i preko 80
hbs_wage.NEW.long.1 <- hbs_wage.NEW.long %>% dplyr::filter(14 < Age_ & Age_<80)
dim(hbs_wage.NEW.long.1)## [1] 18548 14names(hbs_wage.NEW.long.1)## [1] "SifraDom" "Entity" "naziv_Opcine" "RurUrb" "Relat"
## [6] "Age_" "Relat_" "Activ_" "Educ_" "Sex_"
## [11] "QA_0" "QAnotall_0" "QA07_0" "QA08_0"#18548 obseryvacijahead(hbs_wage.NEW.long.1)#QA_O je wage tj.sva posmatrana primanja
table (hbs_wage.NEW.long.1$Activ_) #koji su employed 6429##
## 1 2 3 4 5 6 7 8 9
## 5676 753 1189 1600 3729 1918 433 3066 184tapply(hbs_wage.NEW.long.1$QA_0, hbs_wage.NEW.long.1$Activ_, summary)## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 250.0 600.0 656.7 920.0 18350.0
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 50.0 175.0 250.9 333.3 3000.0
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 69.44 25.00 2193.33
##
## $`4`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 0.0 10.3 0.0 1000.0
##
## $`5`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 11.33 0.00 3000.00
##
## $`6`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 2.678 0.000 1200.000
##
## $`7`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.447 0.000 266.667
##
## $`8`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 13.36 0.00 3333.33
##
## $`9`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 59.46 0.00 1500.00tapply(hbs_wage.NEW.long.1$QAnotall_0, hbs_wage.NEW.long.1$Activ_, summary)## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 50.0 520.0 580.6 850.0 18350.0
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 100.0 192.8 285.0 3000.0
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 41.38 0.00 2193.33
##
## $`4`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 5.628 0.000 1000.000
##
## $`5`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 8.912 0.000 1800.000
##
## $`6`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.521 0.000 1200.000
##
## $`7`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.186 0.000 266.667
##
## $`8`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 10.35 0.00 3333.33
##
## $`9`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 28.38 0.00 1500.00# Zadrzi samo Activ_==1 i/ili ==2 tj. samo one koji su zaposleni
hbs_wage.NEW.long.1 <- hbs_wage.NEW.long.1 %>% dplyr::filter(Activ_==1 | Activ_==2)
table (hbs_wage.NEW.long.1$Activ_)##
## 1 2
## 5676 753dim(hbs_wage.NEW.long.1) #dakle 6429 je ili bilo puno zaposleno ili pola radnog vremena## [1] 6429 14table (hbs_wage.NEW.long.1$QA_0>0)##
## FALSE TRUE
## 1185 5244#od svih koji su radili 6034 ih je koji su imali prihode vece od 0
table (hbs_wage.NEW.long.1$QAnotall_0 >0)##
## FALSE TRUE
## 1650 4779#od svih koji su radili 5280 ih je koji su imali prihode vece od 0#FAZA 4 SREDI QA_0 ### Remove zeros .2
hbs_wage.NEW.long.2 <- hbs_wage.NEW.long.1 %>% dplyr::filter(QA_0>0)
summary(hbs_wage.NEW.long.2$QA_0)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.083 400.000 630.000 746.782 977.000 18350.000BRISATI PERCENTILE .2 (all income)
dim(hbs_wage.NEW.long.2)#imam samo 5135 varijabli## [1] 5135 14 hbs_wage.NEW.long.2 %>%
select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange (desc(n))%>%
print(n=137) #izlistalo 29 opstina koje imaju manje od 10 obs## # A tibble: 130 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Brcko 307
## 2 Bijeljina 234
## 3 Banja Luka 227
## 4 N.G.Sarajevo 213
## 5 Grad Mostar 188
## 6 Zenica 173
## 7 Travnik 136
## 8 Tuzla 100
## 9 Bihac 93
## 10 Bugojno 91
## 11 Sanski Most 87
## 12 Prijedor 84
## 13 Samac 84
## 14 Vitez 80
## 15 N.Travnik 79
## 16 Doboj 78
## 17 Tesanj 74
## 18 Zavidovici 71
## 19 Cazin 70
## 20 Konjic 69
## 21 C.Sarajevo 67
## 22 Zvornik 66
## 23 Zivinice 65
## 24 N.Sarajevo 64
## 25 V.Kladusa 62
## 26 Modrica 60
## 27 Novi Grad 60
## 28 Visoko 60
## 29 S.Brijeg 59
## 30 Ilidza 58
## 31 Prnjavor 53
## 32 D.Vakuf 52
## 33 S.G.Sarajevo 51
## 34 Gradacac 50
## 35 Gracanica 48
## 36 Teslic 47
## 37 Lopare 46
## 38 Laktasi 45
## 39 Maglaj 45
## 40 Derventa 42
## 41 G.Vakuf 42
## 42 Gorazde 40
## 43 Kakanj 40
## 44 Trebinje 40
## 45 Ljubuski 39
## 46 Lukavac 39
## 47 Kalesija 38
## 48 Kiseljak 38
## 49 Livno 36
## 50 B.Krupa 35
## 51 Brod 33
## 52 Busovaca 33
## 53 Grude 32
## 54 Orasje 32
## 55 Foca - RS 31
## 56 Citluk 29
## 57 Capljina 28
## 58 Gacko 28
## 59 Banovici 26
## 60 Vogosca 26
## 61 Ugljevik 25
## 62 Pale 24
## 63 Kresevo 23
## 64 Rudo 22
## 65 Gradiska 21
## 66 Jajce 21
## 67 Posusje 21
## 68 Rogatica 21
## 69 Drvar 20
## 70 Ilijas 19
## 71 Srbac 19
## 72 I.Ilidza 18
## 73 Kljuc 18
## 74 Ribnik 18
## 75 Tomislavgrad 18
## 76 Vlasenica 18
## 77 Breza 17
## 78 Prozor 17
## 79 Stolac 17
## 80 Visegrad 17
## 81 Cajnice 16
## 82 Kupres 16
## 83 N.Gorazde 16
## 84 K.Dubica 15
## 85 Kladanj 15
## 86 Fojnica 14
## 87 Bileca 13
## 88 Bratunac 13
## 89 Buzim 13
## 90 Glamoc 13
## 91 Kotor Varos 13
## 92 B.Petrovac 12
## 93 Knezevo 12
## 94 Nevesinje 12
## 95 Sokolac 12
## 96 Zepce 12
## 97 Celinac 11
## 98 Doboj-Jug 11
## 99 Mrkonjic 11
## 100 Srebrenica 11
## 101 Srebrenik 11
## 102 Doboj-Istok 9
## 103 Hadzici 9
## 104 Milici 8
## 105 Odzak 8
## 106 Teocak 8
## 107 B.Grahovo 7
## 108 Han Pijesak 7
## 109 Kostajnica 7
## 110 Pelagicevo 7
## 111 Celic 6
## 112 D-Samac 6
## 113 Olovo 6
## 114 Vares 6
## 115 Vukosavlje 6
## 116 Ostra Luka 5
## 117 Usora 5
## 118 Jablanica 4
## 119 Petrovo 4
## 120 Sekovici 4
## 121 Trnovo 4
## 122 Berkovici 3
## 123 Donji Zabar 3
## 124 Kalinovik 3
## 125 Sapna 3
## 126 Sipovo 3
## 127 Osmaci 2
## 128 Krupa na Uni 1
## 129 Neum 1
## 130 Ravno 1#FAZA 4a SREDI QAnotall_0 ### Remove zeros .2a
hbs_wage.NEW.long.2a <- hbs_wage.NEW.long.1 %>% dplyr::filter(QAnotall_0>0)
summary(hbs_wage.NEW.long.2a$QAnotall_0)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 4.0 400.0 616.7 719.9 950.0 18350.0BRISATI PERCENTILE .2A NOT ALL INCOME
dim(hbs_wage.NEW.long.2a)#imam samo 4654 varijabli## [1] 4654 14hbs_wage.NEW.long.2a %>%
select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange (desc(n))%>%
print(n=137) #izlistalo 30 opstina koje imaju manje od 10 obs## # A tibble: 130 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Brcko 267
## 2 Banja Luka 218
## 3 Bijeljina 213
## 4 N.G.Sarajevo 201
## 5 Grad Mostar 176
## 6 Zenica 163
## 7 Travnik 130
## 8 Bihac 87
## 9 Tuzla 82
## 10 Prijedor 81
## 11 Samac 80
## 12 N.Travnik 78
## 13 Sanski Most 76
## 14 Vitez 76
## 15 Doboj 75
## 16 Bugojno 73
## 17 Cazin 68
## 18 Konjic 64
## 19 Zvornik 63
## 20 Visoko 58
## 21 C.Sarajevo 57
## 22 N.Sarajevo 56
## 23 S.Brijeg 56
## 24 Tesanj 56
## 25 Modrica 55
## 26 Novi Grad 55
## 27 Zavidovici 54
## 28 Zivinice 51
## 29 Ilidza 50
## 30 S.G.Sarajevo 50
## 31 Gradacac 45
## 32 Laktasi 45
## 33 Prnjavor 45
## 34 V.Kladusa 44
## 35 D.Vakuf 43
## 36 Lopare 43
## 37 Gracanica 42
## 38 Trebinje 40
## 39 Kakanj 39
## 40 Gorazde 38
## 41 Teslic 38
## 42 Derventa 37
## 43 Kiseljak 35
## 44 G.Vakuf 34
## 45 B.Krupa 33
## 46 Livno 33
## 47 Ljubuski 32
## 48 Lukavac 32
## 49 Busovaca 31
## 50 Foca - RS 31
## 51 Grude 31
## 52 Maglaj 29
## 53 Orasje 29
## 54 Citluk 28
## 55 Brod 27
## 56 Capljina 27
## 57 Gacko 27
## 58 Banovici 25
## 59 Kalesija 25
## 60 Ugljevik 25
## 61 Vogosca 25
## 62 Pale 24
## 63 Kresevo 23
## 64 Gradiska 21
## 65 Drvar 20
## 66 Rogatica 20
## 67 Jajce 19
## 68 Posusje 19
## 69 Srbac 18
## 70 Vlasenica 18
## 71 Breza 17
## 72 I.Ilidza 17
## 73 Ribnik 17
## 74 Rudo 17
## 75 Ilijas 16
## 76 Kljuc 16
## 77 Kupres 16
## 78 Stolac 16
## 79 Cajnice 15
## 80 Visegrad 15
## 81 Fojnica 14
## 82 K.Dubica 14
## 83 Bileca 13
## 84 Bratunac 13
## 85 Buzim 13
## 86 Glamoc 13
## 87 Kladanj 13
## 88 Kotor Varos 13
## 89 Prozor 13
## 90 Knezevo 12
## 91 Nevesinje 12
## 92 Sokolac 12
## 93 Tomislavgrad 12
## 94 B.Petrovac 11
## 95 Celinac 11
## 96 Srebrenik 11
## 97 Doboj-Jug 10
## 98 Mrkonjic 10
## 99 N.Gorazde 10
## 100 Srebrenica 10
## 101 Doboj-Istok 9
## 102 Hadzici 9
## 103 B.Grahovo 7
## 104 Han Pijesak 7
## 105 Kostajnica 7
## 106 Milici 7
## 107 Odzak 7
## 108 Teocak 7
## 109 Zepce 7
## 110 Celic 6
## 111 D-Samac 6
## 112 Pelagicevo 6
## 113 Vares 6
## 114 Vukosavlje 6
## 115 Olovo 5
## 116 Ostra Luka 5
## 117 Sekovici 4
## 118 Trnovo 4
## 119 Usora 4
## 120 Berkovici 3
## 121 Donji Zabar 3
## 122 Jablanica 3
## 123 Kalinovik 3
## 124 Petrovo 3
## 125 Sipovo 3
## 126 Osmaci 2
## 127 Krupa na Uni 1
## 128 Neum 1
## 129 Ravno 1
## 130 Sapna 1unique(hbs_wage$naziv_Opcine) #137 opcina## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Dobretici"
## [31] "Donji Zabar" "Drvar" "Foca" "Foca - RS" "Fojnica"
## [36] "G.Vakuf" "Gacko" "Glamoc" "Gorazde" "Gracanica"
## [41] "Grad Mostar" "Gradacac" "Gradiska" "Grude" "Hadzici"
## [46] "Han Pijesak" "I.Ilidza" "I.N.Sarajevo" "I.Stari Grad" "Ilidza"
## [51] "Ilijas" "Jablanica" "Jajce" "Jezero" "K.Dubica"
## [56] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [61] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [66] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [71] "Lopare" "Lukavac" "Ljubinje" "Ljubuski" "Maglaj"
## [76] "Milici" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [81] "N.Sarajevo" "N.Travnik" "Neum" "Nevesinje" "Novi Grad"
## [86] "Odzak" "Olovo" "Orasje" "Osmaci" "Ostra Luka"
## [91] "Pale" "Pale-FBiH" "Pelagicevo" "Petrovo" "Posusje"
## [96] "Prijedor" "Prnjavor" "Prozor" "Ravno" "Ribnik"
## [101] "Rogatica" "Rudo" "S.Brijeg" "S.G.Sarajevo" "Samac"
## [106] "Sanski Most" "Sapna" "Sekovici" "Sipovo" "Sokolac"
## [111] "Srbac" "Srebrenica" "Srebrenik" "Stolac" "Teocak"
## [116] "Tesanj" "Teslic" "Tomislavgrad" "Travnik" "Trebinje"
## [121] "Trnovo" "Tuzla" "Ugljevik" "Usora" "V.Kladusa"
## [126] "Vares" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [131] "Vogosca" "Vukosavlje" "Zavidovici" "Zenica" "Zepce"
## [136] "Zivinice" "Zvornik"unique(hbs_wage.NEW.long.2$naziv_Opcine) #130 ## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Donji Zabar"
## [31] "Drvar" "Foca - RS" "Fojnica" "G.Vakuf" "Gacko"
## [36] "Glamoc" "Gorazde" "Gracanica" "Grad Mostar" "Gradacac"
## [41] "Gradiska" "Grude" "Hadzici" "Han Pijesak" "I.Ilidza"
## [46] "Ilidza" "Ilijas" "Jablanica" "Jajce" "K.Dubica"
## [51] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [56] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [61] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [66] "Lopare" "Lukavac" "Ljubuski" "Maglaj" "Milici"
## [71] "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde" "N.Sarajevo"
## [76] "N.Travnik" "Neum" "Nevesinje" "Novi Grad" "Odzak"
## [81] "Olovo" "Orasje" "Osmaci" "Ostra Luka" "Pale"
## [86] "Pelagicevo" "Petrovo" "Posusje" "Prijedor" "Prnjavor"
## [91] "Prozor" "Ravno" "Ribnik" "Rogatica" "Rudo"
## [96] "S.Brijeg" "S.G.Sarajevo" "Samac" "Sanski Most" "Sapna"
## [101] "Sekovici" "Sipovo" "Sokolac" "Srbac" "Srebrenica"
## [106] "Srebrenik" "Stolac" "Teocak" "Tesanj" "Teslic"
## [111] "Tomislavgrad" "Travnik" "Trebinje" "Trnovo" "Tuzla"
## [116] "Ugljevik" "Usora" "V.Kladusa" "Vares" "Visegrad"
## [121] "Visoko" "Vitez" "Vlasenica" "Vogosca" "Vukosavlje"
## [126] "Zavidovici" "Zenica" "Zepce" "Zivinice" "Zvornik"unique(hbs_wage.NEW.long.2a$naziv_Opcine) #131## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Donji Zabar"
## [31] "Drvar" "Foca - RS" "Fojnica" "G.Vakuf" "Gacko"
## [36] "Glamoc" "Gorazde" "Gracanica" "Grad Mostar" "Gradacac"
## [41] "Gradiska" "Grude" "Hadzici" "Han Pijesak" "I.Ilidza"
## [46] "Ilidza" "Ilijas" "Jablanica" "Jajce" "K.Dubica"
## [51] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [56] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [61] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [66] "Lopare" "Lukavac" "Ljubuski" "Maglaj" "Milici"
## [71] "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde" "N.Sarajevo"
## [76] "N.Travnik" "Neum" "Nevesinje" "Novi Grad" "Odzak"
## [81] "Olovo" "Orasje" "Osmaci" "Ostra Luka" "Pale"
## [86] "Pelagicevo" "Petrovo" "Posusje" "Prijedor" "Prnjavor"
## [91] "Prozor" "Ravno" "Ribnik" "Rogatica" "Rudo"
## [96] "S.Brijeg" "S.G.Sarajevo" "Samac" "Sanski Most" "Sapna"
## [101] "Sekovici" "Sipovo" "Sokolac" "Srbac" "Srebrenica"
## [106] "Srebrenik" "Stolac" "Teocak" "Tesanj" "Teslic"
## [111] "Tomislavgrad" "Travnik" "Trebinje" "Trnovo" "Tuzla"
## [116] "Ugljevik" "Usora" "V.Kladusa" "Vares" "Visegrad"
## [121] "Visoko" "Vitez" "Vlasenica" "Vogosca" "Vukosavlje"
## [126] "Zavidovici" "Zenica" "Zepce" "Zivinice" "Zvornik"#7 se ne nalaye u hbs_wage.NEW.long.2 jer vec su izbacene dakle 30+7 = 37 opstine manje###share of topli obrok i prevoz u FBiH - ovo mi nije bitno za model
###prebacicu NA u 0 i opet izracunati to i prevoz
#FAZA 5 BRISATI OPSTINE SA MANJE OD 10 OBZERVACIJA=hbs_wage.NEW.long.2
Delete low frequency obs (<10) ne mozemo ih stavljati u model - all income
freq.less.10 <- hbs_wage.NEW.long.2 %>%
dplyr::select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>% dplyr::filter (n<10)
hbs_wage.NEW.long.3<- hbs_wage.NEW.long.2[!hbs_wage.NEW.long.2$naziv_Opcine %in% freq.less.10$naziv_Opcine,]
dim(hbs_wage.NEW.long.3)## [1] 4989 14#4089 obzervacijaProvjeri da li su izbrisane sve ispod 10
hbs_wage.NEW.long.3 %>%
select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange ((n))%>%
print(n=10) #sve su izbrisane## # A tibble: 101 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Celinac 11
## 2 Doboj-Jug 11
## 3 Mrkonjic 11
## 4 Srebrenica 11
## 5 Srebrenik 11
## 6 B.Petrovac 12
## 7 Knezevo 12
## 8 Nevesinje 12
## 9 Sokolac 12
## 10 Zepce 12
## # ℹ 91 more rowsunique(hbs_wage.NEW.long.3$naziv_Opcine)## [1] "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka" "Bihac"
## [6] "Bijeljina" "Bileca" "Bratunac" "Brcko" "Breza"
## [11] "Brod" "Bugojno" "Busovaca" "Buzim" "C.Sarajevo"
## [16] "Cajnice" "Capljina" "Cazin" "Celinac" "Citluk"
## [21] "D.Vakuf" "Derventa" "Doboj" "Doboj-Jug" "Drvar"
## [26] "Foca - RS" "Fojnica" "G.Vakuf" "Gacko" "Glamoc"
## [31] "Gorazde" "Gracanica" "Grad Mostar" "Gradacac" "Gradiska"
## [36] "Grude" "I.Ilidza" "Ilidza" "Ilijas" "Jajce"
## [41] "K.Dubica" "Kakanj" "Kalesija" "Kiseljak" "Kladanj"
## [46] "Kljuc" "Knezevo" "Konjic" "Kotor Varos" "Kresevo"
## [51] "Kupres" "Laktasi" "Livno" "Lopare" "Lukavac"
## [56] "Ljubuski" "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo"
## [61] "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad"
## [66] "Orasje" "Pale" "Posusje" "Prijedor" "Prnjavor"
## [71] "Prozor" "Ribnik" "Rogatica" "Rudo" "S.Brijeg"
## [76] "S.G.Sarajevo" "Samac" "Sanski Most" "Sokolac" "Srbac"
## [81] "Srebrenica" "Srebrenik" "Stolac" "Tesanj" "Teslic"
## [86] "Tomislavgrad" "Travnik" "Trebinje" "Tuzla" "Ugljevik"
## [91] "V.Kladusa" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [96] "Vogosca" "Zavidovici" "Zenica" "Zepce" "Zivinice"
## [101] "Zvornik"#101 opcina od ukupno 137 koje su u HBS, dakle u wage- imam manje 36 opstina#FAZA 5 BRISATI OPSTINE SA MANJE OD 10 OBZERVACIJA=hbs_wage.NEW.long.2a - not all income
Delete low frequency obs (<10) ne mozemo ih stavljati u model
Provjeri da li su izbrisane sve ispod 10
hbs_wage.NEW.long.3a %>%
select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange ((n))%>%
print(n=10) #sve su izbrisane## # A tibble: 100 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Doboj-Jug 10
## 2 Mrkonjic 10
## 3 N.Gorazde 10
## 4 Srebrenica 10
## 5 B.Petrovac 11
## 6 Celinac 11
## 7 Srebrenik 11
## 8 Knezevo 12
## 9 Nevesinje 12
## 10 Sokolac 12
## # ℹ 90 more rowsunique(hbs_wage.NEW.long.3a$naziv_Opcine)## [1] "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka" "Bihac"
## [6] "Bijeljina" "Bileca" "Bratunac" "Brcko" "Breza"
## [11] "Brod" "Bugojno" "Busovaca" "Buzim" "C.Sarajevo"
## [16] "Cajnice" "Capljina" "Cazin" "Celinac" "Citluk"
## [21] "D.Vakuf" "Derventa" "Doboj" "Doboj-Jug" "Drvar"
## [26] "Foca - RS" "Fojnica" "G.Vakuf" "Gacko" "Glamoc"
## [31] "Gorazde" "Gracanica" "Grad Mostar" "Gradacac" "Gradiska"
## [36] "Grude" "I.Ilidza" "Ilidza" "Ilijas" "Jajce"
## [41] "K.Dubica" "Kakanj" "Kalesija" "Kiseljak" "Kladanj"
## [46] "Kljuc" "Knezevo" "Konjic" "Kotor Varos" "Kresevo"
## [51] "Kupres" "Laktasi" "Livno" "Lopare" "Lukavac"
## [56] "Ljubuski" "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo"
## [61] "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad"
## [66] "Orasje" "Pale" "Posusje" "Prijedor" "Prnjavor"
## [71] "Prozor" "Ribnik" "Rogatica" "Rudo" "S.Brijeg"
## [76] "S.G.Sarajevo" "Samac" "Sanski Most" "Sokolac" "Srbac"
## [81] "Srebrenica" "Srebrenik" "Stolac" "Tesanj" "Teslic"
## [86] "Tomislavgrad" "Travnik" "Trebinje" "Tuzla" "Ugljevik"
## [91] "V.Kladusa" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [96] "Vogosca" "Zavidovici" "Zenica" "Zivinice" "Zvornik"#100 opcina od ukupno 137 koje su u HBS, dakle u wage- imam manje 37 opstinaFAZA 6 ISPITAJ VARIJABLE
Rename varijables - all income
library(dplyr)
WI.df <- hbs_wage.NEW.long.3
names(WI.df)## [1] "SifraDom" "Entity" "naziv_Opcine" "RurUrb" "Relat"
## [6] "Age_" "Relat_" "Activ_" "Educ_" "Sex_"
## [11] "QA_0" "QAnotall_0" "QA07_0" "QA08_0"WI.df <- rename(WI.df, c(wages = QA_0, Age = Age_, Active = Activ_, Educ = Educ_, Munic = naziv_Opcine))rename not all income
library(dplyr)
WI.dfa <- hbs_wage.NEW.long.3a
names(WI.dfa)## [1] "SifraDom" "Entity" "naziv_Opcine" "RurUrb" "Relat"
## [6] "Age_" "Relat_" "Activ_" "Educ_" "Sex_"
## [11] "QA_0" "QAnotall_0" "QA07_0" "QA08_0"WI.dfa <- rename(WI.dfa, c(wages = QAnotall_0, Age = Age_, Active = Activ_, Educ = Educ_, Munic = naziv_Opcine))wages - all income
plot(density(WI.df$wages))
summary(WI.df$wages)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 44.5 400.0 630.0 720.3 962.5 2780.8sd (WI.df$wages)## [1] 456.6723Age
plot(density(WI.df$Age))
summary(WI.df$Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 17.00 33.00 43.00 42.52 52.00 79.00sd (WI.df$Age)## [1] 11.57353Active
Status tekuce zaposlenosti: 1. puno radno vrijeme 2. pola radnog vremena Od 3-9 je izbaceno 3. nezaposlen 4 - trazi prvo zaposlenje 5 - domacica 6 - student 7 - nesposoban za rad 8 - penzioner 9 - ostalo
table(WI.df$Active)##
## 1 2
## 4430 559Prema instrukciji Ismira ovu cu samo preimenovati u Full time i Part time i stavicu Full. time da mi je referentna
Educ
Steceno obrazovanje: 1 - bez skole; 2- nepotpuna osnovna 8.g.skola 3 - nepotpuna osnovna 9.g. skola; 4-osnovna skola, 5-srednja skola, 6-specijalizacia poslije s.s; 7 - Visa skola; 8 - Fakultet; 9 - Master; 10 - Doktorat
table(WI.df$Educ)##
## 1 2 3 4 5 6 7 8 9 10
## 36 52 4 643 3320 29 181 646 71 7Od ove varijable napravicu bez osnovne skole (1,2,3), osnovna skola (4), srednja skola (5,6), fakultet (7,8,9,10)
sredi Educ varijablu u all income
WI.df <- WI.df %>% mutate(Full.time = case_when(Active == 1 ~"full time", Active == 2 ~"part time"),
Educ.1 = case_when(Educ %in% c(1,2,3) ~ "no elementary",
Educ == 4 ~ "elementary",
Educ %in% c(5,6) ~ "high schl",
Educ %in% c(7,8,9,10) ~ "faculty"),
Educ.2 = case_when(Educ == 1 ~ "no education",
Educ %in% c(2,3) ~ "no elementary",
Educ == 4 ~ "elementary",
Educ %in% c(5,6) ~ "high schl",
Educ %in% c(7) ~ "college",
Educ %in% c(8,9,10) ~ "university"))
prop.table (table(WI.df$Educ.2))##
## college elementary high schl no education no elementary
## 0.036279816 0.128883544 0.671276809 0.007215875 0.011224694
## university
## 0.145119262#Relevel Educ
WI.df$Educ.2 <- forcats::fct_relevel (WI.df$Educ.2, "no education","no elementary", "elementary", "high schl","college", "university")sredi Educ varijablu u notall income
WI.dfa <- WI.dfa %>% mutate(Full.time = case_when(Active == 1 ~"full time", Active == 2 ~"part time"),
Educ.1 = case_when(Educ %in% c(1,2,3) ~ "no elementary", Educ == 4 ~ "elementary", Educ %in% c(5,6) ~ "high schl", Educ %in% c(7,8,9,10) ~ "faculty"),
Educ.2 = case_when(Educ == 1 ~ "no education",
Educ %in% c(2,3) ~ "no elementary",
Educ == 4 ~ "elementary",
Educ %in% c(5,6) ~ "high schl",
Educ %in% c(7) ~ "college",
Educ %in% c(8,9,10) ~ "university")) #Relevel Educ.2
WI.dfa$Educ.2 <- forcats::fct_relevel (WI.dfa$Educ.2, "no education","no elementary", "elementary", "high schl","college", "university")
prop.table(table(WI.dfa$Educ.2))##
## no education no elementary elementary high schl college
## 0.007093771 0.011305697 0.124584349 0.667922855 0.037463977
## university
## 0.151629350Check if it is ok
Active
dim (WI.df)## [1] 4989 17dim (WI.dfa)## [1] 4511 17unique(WI.df$Munic)## [1] "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka" "Bihac"
## [6] "Bijeljina" "Bileca" "Bratunac" "Brcko" "Breza"
## [11] "Brod" "Bugojno" "Busovaca" "Buzim" "C.Sarajevo"
## [16] "Cajnice" "Capljina" "Cazin" "Celinac" "Citluk"
## [21] "D.Vakuf" "Derventa" "Doboj" "Doboj-Jug" "Drvar"
## [26] "Foca - RS" "Fojnica" "G.Vakuf" "Gacko" "Glamoc"
## [31] "Gorazde" "Gracanica" "Grad Mostar" "Gradacac" "Gradiska"
## [36] "Grude" "I.Ilidza" "Ilidza" "Ilijas" "Jajce"
## [41] "K.Dubica" "Kakanj" "Kalesija" "Kiseljak" "Kladanj"
## [46] "Kljuc" "Knezevo" "Konjic" "Kotor Varos" "Kresevo"
## [51] "Kupres" "Laktasi" "Livno" "Lopare" "Lukavac"
## [56] "Ljubuski" "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo"
## [61] "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad"
## [66] "Orasje" "Pale" "Posusje" "Prijedor" "Prnjavor"
## [71] "Prozor" "Ribnik" "Rogatica" "Rudo" "S.Brijeg"
## [76] "S.G.Sarajevo" "Samac" "Sanski Most" "Sokolac" "Srbac"
## [81] "Srebrenica" "Srebrenik" "Stolac" "Tesanj" "Teslic"
## [86] "Tomislavgrad" "Travnik" "Trebinje" "Tuzla" "Ugljevik"
## [91] "V.Kladusa" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [96] "Vogosca" "Zavidovici" "Zenica" "Zepce" "Zivinice"
## [101] "Zvornik"unique(WI.dfa$Munic)## [1] "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka" "Bihac"
## [6] "Bijeljina" "Bileca" "Bratunac" "Brcko" "Breza"
## [11] "Brod" "Bugojno" "Busovaca" "Buzim" "C.Sarajevo"
## [16] "Cajnice" "Capljina" "Cazin" "Celinac" "Citluk"
## [21] "D.Vakuf" "Derventa" "Doboj" "Doboj-Jug" "Drvar"
## [26] "Foca - RS" "Fojnica" "G.Vakuf" "Gacko" "Glamoc"
## [31] "Gorazde" "Gracanica" "Grad Mostar" "Gradacac" "Gradiska"
## [36] "Grude" "I.Ilidza" "Ilidza" "Ilijas" "Jajce"
## [41] "K.Dubica" "Kakanj" "Kalesija" "Kiseljak" "Kladanj"
## [46] "Kljuc" "Knezevo" "Konjic" "Kotor Varos" "Kresevo"
## [51] "Kupres" "Laktasi" "Livno" "Lopare" "Lukavac"
## [56] "Ljubuski" "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo"
## [61] "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad"
## [66] "Orasje" "Pale" "Posusje" "Prijedor" "Prnjavor"
## [71] "Prozor" "Ribnik" "Rogatica" "Rudo" "S.Brijeg"
## [76] "S.G.Sarajevo" "Samac" "Sanski Most" "Sokolac" "Srbac"
## [81] "Srebrenica" "Srebrenik" "Stolac" "Tesanj" "Teslic"
## [86] "Tomislavgrad" "Travnik" "Trebinje" "Tuzla" "Ugljevik"
## [91] "V.Kladusa" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [96] "Vogosca" "Zavidovici" "Zenica" "Zivinice" "Zvornik"table (WI.df$Full.time)##
## full time part time
## 4430 559table (WI.dfa$Full.time)##
## full time part time
## 4078 433round (prop.table(table(WI.df$Active))*100,1)##
## 1 2
## 88.8 11.2round (prop.table(table(WI.dfa$Active))*100,1)##
## 1 2
## 90.4 9.64430/(4430+559) #takle to je to## [1] 0.8879535##Educ
table (WI.df$Educ)##
## 1 2 3 4 5 6 7 8 9 10
## 36 52 4 643 3320 29 181 646 71 7table (WI.df$Educ.1)##
## elementary faculty high schl no elementary
## 643 905 3349 92round (prop.table(table(WI.df$Educ.1))*100,2)##
## elementary faculty high schl no elementary
## 12.89 18.14 67.13 1.84table (WI.dfa$Educ)##
## 1 2 3 4 5 6 7 8 9 10
## 32 47 4 562 2989 24 169 608 69 7table (WI.dfa$Educ.1)##
## elementary faculty high schl no elementary
## 562 853 3013 83round (prop.table(table(WI.dfa$Educ.1))*100,2)##
## elementary faculty high schl no elementary
## 12.46 18.91 66.79 1.84Relevel
Full.time
Sada treba relevel varijablu da full time bude
referentna vrijednost
WI.dfa$Full.time <- fct_relevel (WI.dfa$Full.time, "full time", "part time")
table(WI.dfa$Full.time)##
## full time part time
## 4078 433str(WI.dfa$Full.time)## Factor w/ 2 levels "full time","part time": 1 1 1 1 1 1 1 1 1 1 ...Educ
Sada treba relevel varijablu da no elementary bude
referentna vrijednost
Sex - all income
round (prop.table(table(WI.df$Sex_))*100,1)##
## 1 2
## 65.8 34.2Sex - notall income
round (prop.table(table(WI.dfa$Sex_))*100,1)##
## 1 2
## 64.4 35.6#FAZA 7 BUILD UP A MODEL
Mincer earnings function log(wages)
#Isti model koji je winner kad uzmem sve opcije za Active
library(texreg)## Version: 1.39.3
## Date: 2023-11-09
## Author: Philip Leifeld (University of Essex)
##
## Consider submitting praise using the praise or praise_interactive functions.
## Please cite the JSS article in your publications -- see citation("texreg").##
## Attaching package: 'texreg'## The following object is masked from 'package:tidyr':
##
## extract#all income model
WI.3 <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic) , data = WI.df) # No rur. urb THE WINNING MODEL
#not all income
WI.3a <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic) , data = WI.dfa) # No rur. urb THE WINNING MODEL
texreg::screenreg(list(WI.3, WI.3a))##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.64 *** 4.88 ***
## (0.15) (0.14)
## Age 0.05 *** 0.04 ***
## (0.01) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.17 *** -0.15 ***
## (0.02) (0.02)
## Educ.1elementary 0.25 *** 0.17 *
## (0.07) (0.07)
## Educ.1high schl 0.52 *** 0.48 ***
## (0.07) (0.07)
## Educ.1faculty 0.96 *** 0.93 ***
## (0.07) (0.07)
## factor(Full.time)part time -0.82 *** -0.74 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac 0.02 -0.18
## (0.20) (0.19)
## factor(Munic)Banovici 0.28 0.30 *
## (0.15) (0.14)
## factor(Munic)Banja Luka 0.14 0.12
## (0.11) (0.10)
## factor(Munic)Bihac -0.06 -0.09
## (0.12) (0.11)
## factor(Munic)Bijeljina -0.10 -0.11
## (0.11) (0.10)
## factor(Munic)Bileca 0.08 0.05
## (0.19) (0.18)
## factor(Munic)Bratunac 0.34 0.35 *
## (0.19) (0.18)
## factor(Munic)Brcko 0.17 0.12
## (0.11) (0.10)
## factor(Munic)Breza 0.25 0.23
## (0.18) (0.16)
## factor(Munic)Brod -0.47 ** -0.26
## (0.14) (0.14)
## factor(Munic)Bugojno 0.03 0.04
## (0.12) (0.11)
## factor(Munic)Busovaca 0.12 0.06
## (0.14) (0.14)
## factor(Munic)Buzim -0.65 *** -0.67 ***
## (0.19) (0.18)
## factor(Munic)C.Sarajevo 0.35 ** 0.34 **
## (0.12) (0.12)
## factor(Munic)Cajnice -0.28 -0.18
## (0.18) (0.17)
## factor(Munic)Capljina 0.47 ** 0.48 ***
## (0.15) (0.14)
## factor(Munic)Cazin -0.17 -0.13
## (0.12) (0.11)
## factor(Munic)Celinac -0.08 -0.12
## (0.20) (0.19)
## factor(Munic)Citluk 0.22 0.29 *
## (0.15) (0.14)
## factor(Munic)D.Vakuf -0.09 -0.11
## (0.13) (0.13)
## factor(Munic)Derventa -0.49 *** -0.47 ***
## (0.14) (0.13)
## factor(Munic)Doboj 0.18 0.15
## (0.12) (0.11)
## factor(Munic)Doboj-Jug -0.12 -0.11
## (0.20) (0.19)
## factor(Munic)Drvar 0.08 0.03
## (0.17) (0.15)
## factor(Munic)Foca - RS 0.01 -0.03
## (0.15) (0.14)
## factor(Munic)Fojnica 0.30 0.25
## (0.19) (0.17)
## factor(Munic)G.Vakuf -0.03 -0.10
## (0.14) (0.13)
## factor(Munic)Gacko 0.26 0.25
## (0.15) (0.14)
## factor(Munic)Glamoc 0.26 0.24
## (0.19) (0.18)
## factor(Munic)Gorazde 0.24 0.24
## (0.14) (0.13)
## factor(Munic)Gracanica -0.03 -0.13
## (0.13) (0.13)
## factor(Munic)Grad Mostar 0.38 *** 0.33 **
## (0.11) (0.10)
## factor(Munic)Gradacac 0.03 0.07
## (0.13) (0.12)
## factor(Munic)Gradiska -0.03 -0.05
## (0.16) (0.15)
## factor(Munic)Grude 0.44 ** 0.40 **
## (0.15) (0.14)
## factor(Munic)I.Ilidza 0.03 -0.01
## (0.17) (0.16)
## factor(Munic)Ilidza 0.55 *** 0.51 ***
## (0.13) (0.12)
## factor(Munic)Ilijas 0.11 0.18
## (0.17) (0.16)
## factor(Munic)Jajce 0.40 * 0.28
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.13 -0.14
## (0.18) (0.17)
## factor(Munic)Kakanj 0.11 0.08
## (0.14) (0.13)
## factor(Munic)Kalesija -0.16 -0.13
## (0.14) (0.14)
## factor(Munic)Kiseljak 0.29 * 0.25
## (0.14) (0.13)
## factor(Munic)Kladanj 0.09 0.13
## (0.18) (0.18)
## factor(Munic)Kljuc 0.02 -0.01
## (0.17) (0.16)
## factor(Munic)Knezevo -0.02 -0.03
## (0.20) (0.18)
## factor(Munic)Konjic 0.28 * 0.23 *
## (0.12) (0.12)
## factor(Munic)Kotor Varos 0.15 0.14
## (0.19) (0.18)
## factor(Munic)Kresevo 0.41 * 0.37 *
## (0.16) (0.15)
## factor(Munic)Kupres 0.22 0.20
## (0.18) (0.16)
## factor(Munic)Laktasi 0.03 0.02
## (0.13) (0.12)
## factor(Munic)Livno 0.47 *** 0.41 **
## (0.14) (0.13)
## factor(Munic)Lopare 0.10 -0.01
## (0.13) (0.13)
## factor(Munic)Lukavac 0.21 0.12
## (0.14) (0.13)
## factor(Munic)Ljubuski 0.49 *** 0.42 **
## (0.14) (0.13)
## factor(Munic)Maglaj 0.10 0.07
## (0.13) (0.14)
## factor(Munic)Modrica -0.02 -0.06
## (0.13) (0.12)
## factor(Munic)Mrkonjic 0.30 0.27
## (0.21) (0.20)
## factor(Munic)N.G.Sarajevo 0.36 *** 0.35 ***
## (0.11) (0.10)
## factor(Munic)N.Gorazde -0.35 -0.41 *
## (0.18) (0.19)
## factor(Munic)N.Sarajevo 0.45 *** 0.43 ***
## (0.13) (0.12)
## factor(Munic)N.Travnik -0.13 -0.17
## (0.12) (0.11)
## factor(Munic)Nevesinje -0.03 -0.03
## (0.20) (0.18)
## factor(Munic)Novi Grad -0.04 -0.05
## (0.13) (0.12)
## factor(Munic)Orasje 0.49 *** 0.34 *
## (0.15) (0.14)
## factor(Munic)Pale 0.08 0.07
## (0.16) (0.15)
## factor(Munic)Posusje 0.50 ** 0.41 **
## (0.16) (0.16)
## factor(Munic)Prijedor 0.15 0.14
## (0.12) (0.11)
## factor(Munic)Prnjavor 0.03 0.02
## (0.13) (0.12)
## factor(Munic)Prozor 0.28 0.22
## (0.18) (0.18)
## factor(Munic)Ribnik 0.02 -0.02
## (0.17) (0.16)
## factor(Munic)Rogatica 0.07 0.18
## (0.16) (0.15)
## factor(Munic)Rudo -0.12 -0.16
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.64 *** 0.61 ***
## (0.13) (0.12)
## factor(Munic)S.G.Sarajevo 0.40 ** 0.36 **
## (0.13) (0.12)
## factor(Munic)Samac 0.04 0.02
## (0.12) (0.11)
## factor(Munic)Sanski Most 0.15 -0.01
## (0.12) (0.11)
## factor(Munic)Sokolac -0.15 -0.16
## (0.20) (0.18)
## factor(Munic)Srbac 0.06 0.06
## (0.17) (0.16)
## factor(Munic)Srebrenica 0.26 0.33
## (0.21) (0.19)
## factor(Munic)Srebrenik 0.15 0.16
## (0.20) (0.19)
## factor(Munic)Stolac 0.38 * 0.31
## (0.18) (0.16)
## factor(Munic)Tesanj 0.01 0.00
## (0.12) (0.12)
## factor(Munic)Teslic -0.01 -0.04
## (0.13) (0.13)
## factor(Munic)Tomislavgrad 0.49 ** 0.17
## (0.17) (0.18)
## factor(Munic)Travnik 0.34 ** 0.33 **
## (0.11) (0.11)
## factor(Munic)Trebinje 0.04 0.03
## (0.14) (0.13)
## factor(Munic)Tuzla 0.07 0.17
## (0.12) (0.11)
## factor(Munic)Ugljevik 0.24 0.17
## (0.16) (0.14)
## factor(Munic)V.Kladusa -0.05 -0.25 *
## (0.13) (0.12)
## factor(Munic)Visegrad -0.09 -0.15
## (0.18) (0.17)
## factor(Munic)Visoko 0.15 0.13
## (0.13) (0.12)
## factor(Munic)Vitez -0.05 -0.07
## (0.12) (0.11)
## factor(Munic)Vlasenica 0.12 0.12
## (0.17) (0.16)
## factor(Munic)Vogosca 0.14 0.14
## (0.15) (0.14)
## factor(Munic)Zavidovici 0.05 -0.04
## (0.12) (0.12)
## factor(Munic)Zenica 0.13 0.10
## (0.11) (0.10)
## factor(Munic)Zepce 0.17
## (0.20)
## factor(Munic)Zivinice -0.11 -0.05
## (0.12) (0.12)
## factor(Munic)Zvornik -0.34 ** -0.33 **
## (0.12) (0.12)
## ----------------------------------------------------
## R^2 0.39 0.40
## Adj. R^2 0.37 0.39
## Num. obs. 4989 4511
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05summary(WI.3) #only 29 sign. municipal##
## Call:
## lm(formula = log(wages) ~ Age + as.numeric(Age^2) + factor(Sex_) +
## Educ.1 + factor(Full.time) + factor(Munic), data = WI.df)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.3496 -0.2643 0.0685 0.3587 2.4131
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.640e+00 1.458e-01 31.829 < 2e-16 ***
## Age 5.065e-02 5.078e-03 9.974 < 2e-16 ***
## as.numeric(Age^2) -4.998e-04 5.986e-05 -8.349 < 2e-16 ***
## factor(Sex_)2 -1.713e-01 1.825e-02 -9.387 < 2e-16 ***
## Educ.1elementary 2.498e-01 6.998e-02 3.570 0.000361 ***
## Educ.1high schl 5.198e-01 6.813e-02 7.630 2.80e-14 ***
## Educ.1faculty 9.551e-01 7.057e-02 13.533 < 2e-16 ***
## factor(Full.time)part time -8.224e-01 2.924e-02 -28.120 < 2e-16 ***
## factor(Munic)B.Petrovac 2.167e-02 1.984e-01 0.109 0.913043
## factor(Munic)Banovici 2.765e-01 1.538e-01 1.797 0.072339 .
## factor(Munic)Banja Luka 1.380e-01 1.085e-01 1.272 0.203556
## factor(Munic)Bihac -5.744e-02 1.180e-01 -0.487 0.626553
## factor(Munic)Bijeljina -1.041e-01 1.075e-01 -0.968 0.332911
## factor(Munic)Bileca 7.761e-02 1.927e-01 0.403 0.687189
## factor(Munic)Bratunac 3.359e-01 1.924e-01 1.746 0.080958 .
## factor(Munic)Brcko 1.694e-01 1.062e-01 1.595 0.110737
## factor(Munic)Breza 2.486e-01 1.755e-01 1.416 0.156718
## factor(Munic)Brod -4.671e-01 1.439e-01 -3.245 0.001181 **
## factor(Munic)Bugojno 3.009e-02 1.188e-01 0.253 0.799955
## factor(Munic)Busovaca 1.201e-01 1.441e-01 0.834 0.404506
## factor(Munic)Buzim -6.496e-01 1.925e-01 -3.375 0.000744 ***
## factor(Munic)C.Sarajevo 3.470e-01 1.248e-01 2.780 0.005449 **
## factor(Munic)Cajnice -2.764e-01 1.793e-01 -1.542 0.123257
## factor(Munic)Capljina 4.670e-01 1.502e-01 3.110 0.001879 **
## factor(Munic)Cazin -1.707e-01 1.226e-01 -1.392 0.163950
## factor(Munic)Celinac -7.563e-02 2.049e-01 -0.369 0.712069
## factor(Munic)Citluk 2.159e-01 1.492e-01 1.447 0.147881
## factor(Munic)D.Vakuf -9.327e-02 1.307e-01 -0.714 0.475545
## factor(Munic)Derventa -4.944e-01 1.359e-01 -3.639 0.000277 ***
## factor(Munic)Doboj 1.800e-01 1.211e-01 1.486 0.137331
## factor(Munic)Doboj-Jug -1.243e-01 2.050e-01 -0.606 0.544432
## factor(Munic)Drvar 7.931e-02 1.666e-01 0.476 0.634086
## factor(Munic)Foca - RS 1.338e-02 1.466e-01 0.091 0.927318
## factor(Munic)Fojnica 3.022e-01 1.875e-01 1.612 0.107119
## factor(Munic)G.Vakuf -3.112e-02 1.364e-01 -0.228 0.819504
## factor(Munic)Gacko 2.616e-01 1.506e-01 1.737 0.082474 .
## factor(Munic)Glamoc 2.619e-01 1.930e-01 1.357 0.174832
## factor(Munic)Gorazde 2.428e-01 1.376e-01 1.765 0.077663 .
## factor(Munic)Gracanica -3.484e-02 1.322e-01 -0.264 0.792086
## factor(Munic)Grad Mostar 3.840e-01 1.099e-01 3.495 0.000479 ***
## factor(Munic)Gradacac 2.636e-02 1.306e-01 0.202 0.840063
## factor(Munic)Gradiska -2.963e-02 1.638e-01 -0.181 0.856448
## factor(Munic)Grude 4.358e-01 1.454e-01 2.998 0.002727 **
## factor(Munic)I.Ilidza 2.790e-02 1.722e-01 0.162 0.871286
## factor(Munic)Ilidza 5.514e-01 1.271e-01 4.337 1.47e-05 ***
## factor(Munic)Ilijas 1.066e-01 1.690e-01 0.631 0.528142
## factor(Munic)Jajce 3.955e-01 1.637e-01 2.417 0.015703 *
## factor(Munic)K.Dubica -1.280e-01 1.830e-01 -0.699 0.484280
## factor(Munic)Kakanj 1.113e-01 1.374e-01 0.810 0.417847
## factor(Munic)Kalesija -1.571e-01 1.395e-01 -1.127 0.259911
## factor(Munic)Kiseljak 2.946e-01 1.393e-01 2.114 0.034527 *
## factor(Munic)Kladanj 9.342e-02 1.827e-01 0.511 0.609208
## factor(Munic)Kljuc 1.717e-02 1.721e-01 0.100 0.920523
## factor(Munic)Knezevo -2.076e-02 1.983e-01 -0.105 0.916633
## factor(Munic)Konjic 2.826e-01 1.234e-01 2.290 0.022064 *
## factor(Munic)Kotor Varos 1.478e-01 1.925e-01 0.768 0.442378
## factor(Munic)Kresevo 4.053e-01 1.594e-01 2.542 0.011059 *
## factor(Munic)Kupres 2.236e-01 1.787e-01 1.251 0.210982
## factor(Munic)Laktasi 3.457e-02 1.339e-01 0.258 0.796289
## factor(Munic)Livno 4.699e-01 1.409e-01 3.335 0.000858 ***
## factor(Munic)Lopare 9.895e-02 1.338e-01 0.739 0.459688
## factor(Munic)Lukavac 2.137e-01 1.384e-01 1.544 0.122605
## factor(Munic)Ljubuski 4.897e-01 1.386e-01 3.534 0.000413 ***
## factor(Munic)Maglaj 1.010e-01 1.340e-01 0.754 0.451045
## factor(Munic)Modrica -2.210e-02 1.266e-01 -0.175 0.861409
## factor(Munic)Mrkonjic 2.970e-01 2.052e-01 1.448 0.147760
## factor(Munic)N.G.Sarajevo 3.623e-01 1.089e-01 3.326 0.000886 ***
## factor(Munic)N.Gorazde -3.493e-01 1.791e-01 -1.951 0.051149 .
## factor(Munic)N.Sarajevo 4.514e-01 1.255e-01 3.598 0.000324 ***
## factor(Munic)N.Travnik -1.322e-01 1.207e-01 -1.096 0.273298
## factor(Munic)Nevesinje -2.676e-02 1.984e-01 -0.135 0.892736
## factor(Munic)Novi Grad -4.070e-02 1.265e-01 -0.322 0.747549
## factor(Munic)Orasje 4.891e-01 1.454e-01 3.365 0.000772 ***
## factor(Munic)Pale 8.276e-02 1.574e-01 0.526 0.599153
## factor(Munic)Posusje 4.958e-01 1.639e-01 3.025 0.002496 **
## factor(Munic)Prijedor 1.472e-01 1.197e-01 1.229 0.219007
## factor(Munic)Prnjavor 3.304e-02 1.296e-01 0.255 0.798705
## factor(Munic)Prozor 2.752e-01 1.756e-01 1.567 0.117066
## factor(Munic)Ribnik 1.663e-02 1.721e-01 0.097 0.923016
## factor(Munic)Rogatica 7.424e-02 1.641e-01 0.452 0.651013
## factor(Munic)Rudo -1.235e-01 1.615e-01 -0.764 0.444612
## factor(Munic)S.Brijeg 6.377e-01 1.270e-01 5.023 5.28e-07 ***
## factor(Munic)S.G.Sarajevo 3.985e-01 1.308e-01 3.047 0.002320 **
## factor(Munic)Samac 4.330e-02 1.198e-01 0.361 0.717822
## factor(Munic)Sanski Most 1.509e-01 1.190e-01 1.269 0.204639
## factor(Munic)Sokolac -1.512e-01 1.987e-01 -0.761 0.446555
## factor(Munic)Srbac 5.927e-02 1.690e-01 0.351 0.725777
## factor(Munic)Srebrenica 2.609e-01 2.050e-01 1.272 0.203290
## factor(Munic)Srebrenik 1.490e-01 2.047e-01 0.728 0.466642
## factor(Munic)Stolac 3.843e-01 1.755e-01 2.190 0.028567 *
## factor(Munic)Tesanj 7.529e-03 1.218e-01 0.062 0.950720
## factor(Munic)Teslic -9.919e-03 1.326e-01 -0.075 0.940380
## factor(Munic)Tomislavgrad 4.933e-01 1.721e-01 2.866 0.004176 **
## factor(Munic)Travnik 3.401e-01 1.127e-01 3.018 0.002553 **
## factor(Munic)Trebinje 4.316e-02 1.376e-01 0.314 0.753823
## factor(Munic)Tuzla 7.495e-02 1.170e-01 0.641 0.521800
## factor(Munic)Ugljevik 2.387e-01 1.554e-01 1.536 0.124708
## factor(Munic)V.Kladusa -4.534e-02 1.253e-01 -0.362 0.717546
## factor(Munic)Visegrad -8.790e-02 1.755e-01 -0.501 0.616551
## factor(Munic)Visoko 1.468e-01 1.264e-01 1.161 0.245718
## factor(Munic)Vitez -4.934e-02 1.206e-01 -0.409 0.682536
## factor(Munic)Vlasenica 1.195e-01 1.719e-01 0.695 0.487131
## factor(Munic)Vogosca 1.408e-01 1.538e-01 0.916 0.359940
## factor(Munic)Zavidovici 4.913e-02 1.229e-01 0.400 0.689373
## factor(Munic)Zenica 1.283e-01 1.106e-01 1.160 0.246036
## factor(Munic)Zepce 1.712e-01 1.982e-01 0.864 0.387756
## factor(Munic)Zivinice -1.074e-01 1.246e-01 -0.862 0.388584
## factor(Munic)Zvornik -3.426e-01 1.242e-01 -2.760 0.005805 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5913 on 4881 degrees of freedom
## Multiple R-squared: 0.3875, Adjusted R-squared: 0.3741
## F-statistic: 28.86 on 107 and 4881 DF, p-value: < 2.2e-16summary(WI.3a)#only 31 sign. municipal##
## Call:
## lm(formula = log(wages) ~ Age + as.numeric(Age^2) + factor(Sex_) +
## Educ.1 + factor(Full.time) + factor(Munic), data = WI.dfa)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.54025 -0.23473 0.06767 0.32865 2.32918
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.882e+00 1.385e-01 35.239 < 2e-16 ***
## Age 4.106e-02 4.939e-03 8.315 < 2e-16 ***
## as.numeric(Age^2) -3.956e-04 5.834e-05 -6.781 1.35e-11 ***
## factor(Sex_)2 -1.462e-01 1.734e-02 -8.431 < 2e-16 ***
## Educ.1elementary 1.655e-01 6.756e-02 2.450 0.014338 *
## Educ.1high schl 4.823e-01 6.571e-02 7.340 2.53e-13 ***
## Educ.1faculty 9.292e-01 6.791e-02 13.683 < 2e-16 ***
## factor(Full.time)part time -7.410e-01 3.014e-02 -24.587 < 2e-16 ***
## factor(Munic)B.Petrovac -1.828e-01 1.881e-01 -0.972 0.331014
## factor(Munic)Banovici 3.017e-01 1.435e-01 2.102 0.035622 *
## factor(Munic)Banja Luka 1.150e-01 1.018e-01 1.130 0.258490
## factor(Munic)Bihac -8.512e-02 1.110e-01 -0.767 0.443091
## factor(Munic)Bijeljina -1.147e-01 1.011e-01 -1.135 0.256639
## factor(Munic)Bileca 4.909e-02 1.771e-01 0.277 0.781594
## factor(Munic)Bratunac 3.501e-01 1.768e-01 1.981 0.047707 *
## factor(Munic)Brcko 1.161e-01 1.001e-01 1.160 0.246258
## factor(Munic)Breza 2.315e-01 1.615e-01 1.433 0.151933
## factor(Munic)Brod -2.568e-01 1.402e-01 -1.832 0.067015 .
## factor(Munic)Bugojno 3.926e-02 1.140e-01 0.344 0.730521
## factor(Munic)Busovaca 6.027e-02 1.354e-01 0.445 0.656223
## factor(Munic)Buzim -6.659e-01 1.767e-01 -3.768 0.000167 ***
## factor(Munic)C.Sarajevo 3.420e-01 1.193e-01 2.867 0.004157 **
## factor(Munic)Cajnice -1.785e-01 1.686e-01 -1.059 0.289878
## factor(Munic)Capljina 4.760e-01 1.400e-01 3.400 0.000679 ***
## factor(Munic)Cazin -1.264e-01 1.145e-01 -1.104 0.269596
## factor(Munic)Celinac -1.168e-01 1.880e-01 -0.621 0.534620
## factor(Munic)Citluk 2.928e-01 1.391e-01 2.105 0.035380 *
## factor(Munic)D.Vakuf -1.137e-01 1.259e-01 -0.904 0.366228
## factor(Munic)Derventa -4.717e-01 1.294e-01 -3.646 0.000270 ***
## factor(Munic)Doboj 1.505e-01 1.133e-01 1.328 0.184221
## factor(Munic)Doboj-Jug -1.087e-01 1.950e-01 -0.557 0.577387
## factor(Munic)Drvar 2.669e-02 1.535e-01 0.174 0.861975
## factor(Munic)Foca - RS -3.240e-02 1.355e-01 -0.239 0.811095
## factor(Munic)Fojnica 2.497e-01 1.723e-01 1.449 0.147484
## factor(Munic)G.Vakuf -1.004e-01 1.326e-01 -0.757 0.449049
## factor(Munic)Gacko 2.474e-01 1.404e-01 1.762 0.078135 .
## factor(Munic)Glamoc 2.371e-01 1.773e-01 1.337 0.181347
## factor(Munic)Gorazde 2.352e-01 1.289e-01 1.825 0.068039 .
## factor(Munic)Gracanica -1.288e-01 1.260e-01 -1.022 0.306996
## factor(Munic)Grad Mostar 3.323e-01 1.032e-01 3.219 0.001296 **
## factor(Munic)Gradacac 7.144e-02 1.237e-01 0.578 0.563598
## factor(Munic)Gradiska -4.956e-02 1.509e-01 -0.328 0.742638
## factor(Munic)Grude 4.016e-01 1.354e-01 2.965 0.003044 **
## factor(Munic)I.Ilidza -1.296e-02 1.615e-01 -0.080 0.936055
## factor(Munic)Ilidza 5.109e-01 1.214e-01 4.209 2.61e-05 ***
## factor(Munic)Ilijas 1.766e-01 1.646e-01 1.073 0.283470
## factor(Munic)Jajce 2.768e-01 1.556e-01 1.779 0.075271 .
## factor(Munic)K.Dubica -1.379e-01 1.723e-01 -0.801 0.423451
## factor(Munic)Kakanj 7.807e-02 1.280e-01 0.610 0.541813
## factor(Munic)Kalesija -1.259e-01 1.436e-01 -0.876 0.380820
## factor(Munic)Kiseljak 2.476e-01 1.314e-01 1.884 0.059658 .
## factor(Munic)Kladanj 1.331e-01 1.768e-01 0.753 0.451400
## factor(Munic)Kljuc -1.006e-02 1.646e-01 -0.061 0.951270
## factor(Munic)Knezevo -2.828e-02 1.821e-01 -0.155 0.876559
## factor(Munic)Konjic 2.337e-01 1.161e-01 2.012 0.044256 *
## factor(Munic)Kotor Varos 1.407e-01 1.768e-01 0.796 0.426000
## factor(Munic)Kresevo 3.693e-01 1.471e-01 2.511 0.012066 *
## factor(Munic)Kupres 2.037e-01 1.643e-01 1.240 0.215175
## factor(Munic)Laktasi 2.353e-02 1.241e-01 0.190 0.849623
## factor(Munic)Livno 4.060e-01 1.331e-01 3.050 0.002305 **
## factor(Munic)Lopare -1.237e-02 1.261e-01 -0.098 0.921844
## factor(Munic)Lukavac 1.165e-01 1.343e-01 0.867 0.385883
## factor(Munic)Ljubuski 4.160e-01 1.345e-01 3.093 0.001995 **
## factor(Munic)Maglaj 6.616e-02 1.378e-01 0.480 0.631132
## factor(Munic)Modrica -6.353e-02 1.195e-01 -0.532 0.595000
## factor(Munic)Mrkonjic 2.657e-01 1.952e-01 1.361 0.173453
## factor(Munic)N.G.Sarajevo 3.454e-01 1.022e-01 3.379 0.000735 ***
## factor(Munic)N.Gorazde -4.083e-01 1.950e-01 -2.094 0.036340 *
## factor(Munic)N.Sarajevo 4.299e-01 1.194e-01 3.600 0.000321 ***
## factor(Munic)N.Travnik -1.673e-01 1.125e-01 -1.487 0.137135
## factor(Munic)Nevesinje -3.494e-02 1.822e-01 -0.192 0.847908
## factor(Munic)Novi Grad -5.045e-02 1.193e-01 -0.423 0.672377
## factor(Munic)Orasje 3.446e-01 1.378e-01 2.501 0.012413 *
## factor(Munic)Pale 7.309e-02 1.452e-01 0.503 0.614781
## factor(Munic)Posusje 4.060e-01 1.558e-01 2.607 0.009176 **
## factor(Munic)Prijedor 1.439e-01 1.120e-01 1.285 0.198752
## factor(Munic)Prnjavor 1.964e-02 1.242e-01 0.158 0.874379
## factor(Munic)Prozor 2.234e-01 1.772e-01 1.261 0.207409
## factor(Munic)Ribnik -1.957e-02 1.614e-01 -0.121 0.903513
## factor(Munic)Rogatica 1.831e-01 1.536e-01 1.192 0.233289
## factor(Munic)Rudo -1.642e-01 1.615e-01 -1.017 0.309369
## factor(Munic)S.Brijeg 6.098e-01 1.190e-01 5.124 3.13e-07 ***
## factor(Munic)S.G.Sarajevo 3.636e-01 1.218e-01 2.986 0.002844 **
## factor(Munic)Samac 2.103e-02 1.124e-01 0.187 0.851528
## factor(Munic)Sanski Most -1.254e-02 1.129e-01 -0.111 0.911530
## factor(Munic)Sokolac -1.643e-01 1.824e-01 -0.901 0.367796
## factor(Munic)Srbac 5.756e-02 1.583e-01 0.363 0.716253
## factor(Munic)Srebrenica 3.278e-01 1.949e-01 1.681 0.092769 .
## factor(Munic)Srebrenik 1.607e-01 1.879e-01 0.856 0.392305
## factor(Munic)Stolac 3.132e-01 1.648e-01 1.901 0.057387 .
## factor(Munic)Tesanj 1.299e-03 1.188e-01 0.011 0.991277
## factor(Munic)Teslic -3.769e-02 1.288e-01 -0.293 0.769767
## factor(Munic)Tomislavgrad 1.667e-01 1.821e-01 0.916 0.359887
## factor(Munic)Travnik 3.328e-01 1.056e-01 3.152 0.001635 **
## factor(Munic)Trebinje 3.394e-02 1.274e-01 0.266 0.790013
## factor(Munic)Tuzla 1.673e-01 1.119e-01 1.495 0.134965
## factor(Munic)Ugljevik 1.734e-01 1.434e-01 1.209 0.226649
## factor(Munic)V.Kladusa -2.492e-01 1.243e-01 -2.005 0.045074 *
## factor(Munic)Visegrad -1.453e-01 1.685e-01 -0.862 0.388509
## factor(Munic)Visoko 1.286e-01 1.181e-01 1.089 0.276360
## factor(Munic)Vitez -6.815e-02 1.131e-01 -0.602 0.546978
## factor(Munic)Vlasenica 1.152e-01 1.583e-01 0.728 0.466599
## factor(Munic)Vogosca 1.412e-01 1.435e-01 0.983 0.325438
## factor(Munic)Zavidovici -4.154e-02 1.198e-01 -0.347 0.728695
## factor(Munic)Zenica 1.013e-01 1.038e-01 0.975 0.329371
## factor(Munic)Zivinice -5.412e-02 1.208e-01 -0.448 0.654192
## factor(Munic)Zvornik -3.265e-01 1.163e-01 -2.807 0.005018 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5385 on 4404 degrees of freedom
## Multiple R-squared: 0.4012, Adjusted R-squared: 0.3868
## F-statistic: 27.84 on 106 and 4404 DF, p-value: < 2.2e-16#Add different Edu.2 and compare models
WI.3.e <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.2 + factor(Full.time) + factor (Munic) , data = WI.df) # different educ
texreg::screenreg(list(WI.3, WI.3.e))##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.64 *** 4.58 ***
## (0.15) (0.16)
## Age 0.05 *** 0.05 ***
## (0.01) (0.01)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.17 *** -0.17 ***
## (0.02) (0.02)
## Educ.1elementary 0.25 ***
## (0.07)
## Educ.1high schl 0.52 ***
## (0.07)
## Educ.1faculty 0.96 ***
## (0.07)
## factor(Full.time)part time -0.82 *** -0.82 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac 0.02 0.02
## (0.20) (0.20)
## factor(Munic)Banovici 0.28 0.27
## (0.15) (0.15)
## factor(Munic)Banja Luka 0.14 0.13
## (0.11) (0.11)
## factor(Munic)Bihac -0.06 -0.06
## (0.12) (0.12)
## factor(Munic)Bijeljina -0.10 -0.11
## (0.11) (0.11)
## factor(Munic)Bileca 0.08 0.08
## (0.19) (0.19)
## factor(Munic)Bratunac 0.34 0.33
## (0.19) (0.19)
## factor(Munic)Brcko 0.17 0.16
## (0.11) (0.11)
## factor(Munic)Breza 0.25 0.25
## (0.18) (0.18)
## factor(Munic)Brod -0.47 ** -0.47 **
## (0.14) (0.14)
## factor(Munic)Bugojno 0.03 0.02
## (0.12) (0.12)
## factor(Munic)Busovaca 0.12 0.11
## (0.14) (0.14)
## factor(Munic)Buzim -0.65 *** -0.64 ***
## (0.19) (0.19)
## factor(Munic)C.Sarajevo 0.35 ** 0.34 **
## (0.12) (0.12)
## factor(Munic)Cajnice -0.28 -0.29
## (0.18) (0.18)
## factor(Munic)Capljina 0.47 ** 0.46 **
## (0.15) (0.15)
## factor(Munic)Cazin -0.17 -0.17
## (0.12) (0.12)
## factor(Munic)Celinac -0.08 -0.09
## (0.20) (0.20)
## factor(Munic)Citluk 0.22 0.21
## (0.15) (0.15)
## factor(Munic)D.Vakuf -0.09 -0.10
## (0.13) (0.13)
## factor(Munic)Derventa -0.49 *** -0.50 ***
## (0.14) (0.14)
## factor(Munic)Doboj 0.18 0.17
## (0.12) (0.12)
## factor(Munic)Doboj-Jug -0.12 -0.14
## (0.20) (0.20)
## factor(Munic)Drvar 0.08 0.08
## (0.17) (0.17)
## factor(Munic)Foca - RS 0.01 -0.01
## (0.15) (0.15)
## factor(Munic)Fojnica 0.30 0.30
## (0.19) (0.19)
## factor(Munic)G.Vakuf -0.03 -0.04
## (0.14) (0.14)
## factor(Munic)Gacko 0.26 0.25
## (0.15) (0.15)
## factor(Munic)Glamoc 0.26 0.25
## (0.19) (0.19)
## factor(Munic)Gorazde 0.24 0.24
## (0.14) (0.14)
## factor(Munic)Gracanica -0.03 -0.04
## (0.13) (0.13)
## factor(Munic)Grad Mostar 0.38 *** 0.37 ***
## (0.11) (0.11)
## factor(Munic)Gradacac 0.03 0.02
## (0.13) (0.13)
## factor(Munic)Gradiska -0.03 -0.03
## (0.16) (0.16)
## factor(Munic)Grude 0.44 ** 0.43 **
## (0.15) (0.15)
## factor(Munic)I.Ilidza 0.03 0.01
## (0.17) (0.17)
## factor(Munic)Ilidza 0.55 *** 0.54 ***
## (0.13) (0.13)
## factor(Munic)Ilijas 0.11 0.09
## (0.17) (0.17)
## factor(Munic)Jajce 0.40 * 0.38 *
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.13 -0.14
## (0.18) (0.18)
## factor(Munic)Kakanj 0.11 0.10
## (0.14) (0.14)
## factor(Munic)Kalesija -0.16 -0.17
## (0.14) (0.14)
## factor(Munic)Kiseljak 0.29 * 0.29 *
## (0.14) (0.14)
## factor(Munic)Kladanj 0.09 0.09
## (0.18) (0.18)
## factor(Munic)Kljuc 0.02 0.00
## (0.17) (0.17)
## factor(Munic)Knezevo -0.02 -0.04
## (0.20) (0.20)
## factor(Munic)Konjic 0.28 * 0.28 *
## (0.12) (0.12)
## factor(Munic)Kotor Varos 0.15 0.14
## (0.19) (0.19)
## factor(Munic)Kresevo 0.41 * 0.40 *
## (0.16) (0.16)
## factor(Munic)Kupres 0.22 0.22
## (0.18) (0.18)
## factor(Munic)Laktasi 0.03 0.03
## (0.13) (0.13)
## factor(Munic)Livno 0.47 *** 0.47 ***
## (0.14) (0.14)
## factor(Munic)Lopare 0.10 0.09
## (0.13) (0.13)
## factor(Munic)Lukavac 0.21 0.20
## (0.14) (0.14)
## factor(Munic)Ljubuski 0.49 *** 0.50 ***
## (0.14) (0.14)
## factor(Munic)Maglaj 0.10 0.09
## (0.13) (0.13)
## factor(Munic)Modrica -0.02 -0.03
## (0.13) (0.13)
## factor(Munic)Mrkonjic 0.30 0.31
## (0.21) (0.21)
## factor(Munic)N.G.Sarajevo 0.36 *** 0.35 **
## (0.11) (0.11)
## factor(Munic)N.Gorazde -0.35 -0.35
## (0.18) (0.18)
## factor(Munic)N.Sarajevo 0.45 *** 0.44 ***
## (0.13) (0.13)
## factor(Munic)N.Travnik -0.13 -0.14
## (0.12) (0.12)
## factor(Munic)Nevesinje -0.03 -0.05
## (0.20) (0.20)
## factor(Munic)Novi Grad -0.04 -0.05
## (0.13) (0.13)
## factor(Munic)Orasje 0.49 *** 0.49 ***
## (0.15) (0.15)
## factor(Munic)Pale 0.08 0.08
## (0.16) (0.16)
## factor(Munic)Posusje 0.50 ** 0.49 **
## (0.16) (0.16)
## factor(Munic)Prijedor 0.15 0.14
## (0.12) (0.12)
## factor(Munic)Prnjavor 0.03 0.02
## (0.13) (0.13)
## factor(Munic)Prozor 0.28 0.27
## (0.18) (0.18)
## factor(Munic)Ribnik 0.02 -0.00
## (0.17) (0.17)
## factor(Munic)Rogatica 0.07 0.07
## (0.16) (0.16)
## factor(Munic)Rudo -0.12 -0.12
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.64 *** 0.63 ***
## (0.13) (0.13)
## factor(Munic)S.G.Sarajevo 0.40 ** 0.38 **
## (0.13) (0.13)
## factor(Munic)Samac 0.04 0.04
## (0.12) (0.12)
## factor(Munic)Sanski Most 0.15 0.14
## (0.12) (0.12)
## factor(Munic)Sokolac -0.15 -0.17
## (0.20) (0.20)
## factor(Munic)Srbac 0.06 0.05
## (0.17) (0.17)
## factor(Munic)Srebrenica 0.26 0.26
## (0.21) (0.20)
## factor(Munic)Srebrenik 0.15 0.14
## (0.20) (0.20)
## factor(Munic)Stolac 0.38 * 0.38 *
## (0.18) (0.18)
## factor(Munic)Tesanj 0.01 0.00
## (0.12) (0.12)
## factor(Munic)Teslic -0.01 -0.02
## (0.13) (0.13)
## factor(Munic)Tomislavgrad 0.49 ** 0.48 **
## (0.17) (0.17)
## factor(Munic)Travnik 0.34 ** 0.34 **
## (0.11) (0.11)
## factor(Munic)Trebinje 0.04 0.03
## (0.14) (0.14)
## factor(Munic)Tuzla 0.07 0.07
## (0.12) (0.12)
## factor(Munic)Ugljevik 0.24 0.24
## (0.16) (0.16)
## factor(Munic)V.Kladusa -0.05 -0.05
## (0.13) (0.13)
## factor(Munic)Visegrad -0.09 -0.08
## (0.18) (0.18)
## factor(Munic)Visoko 0.15 0.14
## (0.13) (0.13)
## factor(Munic)Vitez -0.05 -0.05
## (0.12) (0.12)
## factor(Munic)Vlasenica 0.12 0.11
## (0.17) (0.17)
## factor(Munic)Vogosca 0.14 0.12
## (0.15) (0.15)
## factor(Munic)Zavidovici 0.05 0.04
## (0.12) (0.12)
## factor(Munic)Zenica 0.13 0.12
## (0.11) (0.11)
## factor(Munic)Zepce 0.17 0.17
## (0.20) (0.20)
## factor(Munic)Zivinice -0.11 -0.12
## (0.12) (0.12)
## factor(Munic)Zvornik -0.34 ** -0.35 **
## (0.12) (0.12)
## Educ.2no elementary 0.08
## (0.13)
## Educ.2elementary 0.30 **
## (0.11)
## Educ.2high schl 0.58 ***
## (0.10)
## Educ.2college 0.88 ***
## (0.11)
## Educ.2university 1.04 ***
## (0.11)
## ----------------------------------------------------
## R^2 0.39 0.39
## Adj. R^2 0.37 0.38
## Num. obs. 4989 4989
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05#nista znacajno ne mijenja#Now do it on the other dataframe Add different Edu.2 and compare models
WI.3a.e <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.2 + factor(Full.time) + factor (Munic) , data = WI.dfa) # different educ
texreg::screenreg(list(WI.3a, WI.3a.e))##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.88 *** 4.84 ***
## (0.14) (0.16)
## Age 0.04 *** 0.04 ***
## (0.00) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.15 *** -0.15 ***
## (0.02) (0.02)
## Educ.1elementary 0.17 *
## (0.07)
## Educ.1high schl 0.48 ***
## (0.07)
## Educ.1faculty 0.93 ***
## (0.07)
## factor(Full.time)part time -0.74 *** -0.74 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac -0.18 -0.18
## (0.19) (0.19)
## factor(Munic)Banovici 0.30 * 0.29 *
## (0.14) (0.14)
## factor(Munic)Banja Luka 0.12 0.11
## (0.10) (0.10)
## factor(Munic)Bihac -0.09 -0.08
## (0.11) (0.11)
## factor(Munic)Bijeljina -0.11 -0.12
## (0.10) (0.10)
## factor(Munic)Bileca 0.05 0.05
## (0.18) (0.18)
## factor(Munic)Bratunac 0.35 * 0.34
## (0.18) (0.18)
## factor(Munic)Brcko 0.12 0.11
## (0.10) (0.10)
## factor(Munic)Breza 0.23 0.24
## (0.16) (0.16)
## factor(Munic)Brod -0.26 -0.26
## (0.14) (0.14)
## factor(Munic)Bugojno 0.04 0.03
## (0.11) (0.11)
## factor(Munic)Busovaca 0.06 0.05
## (0.14) (0.14)
## factor(Munic)Buzim -0.67 *** -0.66 ***
## (0.18) (0.18)
## factor(Munic)C.Sarajevo 0.34 ** 0.33 **
## (0.12) (0.12)
## factor(Munic)Cajnice -0.18 -0.19
## (0.17) (0.17)
## factor(Munic)Capljina 0.48 *** 0.47 ***
## (0.14) (0.14)
## factor(Munic)Cazin -0.13 -0.13
## (0.11) (0.11)
## factor(Munic)Celinac -0.12 -0.13
## (0.19) (0.19)
## factor(Munic)Citluk 0.29 * 0.29 *
## (0.14) (0.14)
## factor(Munic)D.Vakuf -0.11 -0.11
## (0.13) (0.13)
## factor(Munic)Derventa -0.47 *** -0.48 ***
## (0.13) (0.13)
## factor(Munic)Doboj 0.15 0.14
## (0.11) (0.11)
## factor(Munic)Doboj-Jug -0.11 -0.12
## (0.19) (0.19)
## factor(Munic)Drvar 0.03 0.02
## (0.15) (0.15)
## factor(Munic)Foca - RS -0.03 -0.05
## (0.14) (0.14)
## factor(Munic)Fojnica 0.25 0.24
## (0.17) (0.17)
## factor(Munic)G.Vakuf -0.10 -0.11
## (0.13) (0.13)
## factor(Munic)Gacko 0.25 0.24
## (0.14) (0.14)
## factor(Munic)Glamoc 0.24 0.23
## (0.18) (0.18)
## factor(Munic)Gorazde 0.24 0.24
## (0.13) (0.13)
## factor(Munic)Gracanica -0.13 -0.13
## (0.13) (0.13)
## factor(Munic)Grad Mostar 0.33 ** 0.32 **
## (0.10) (0.10)
## factor(Munic)Gradacac 0.07 0.06
## (0.12) (0.12)
## factor(Munic)Gradiska -0.05 -0.05
## (0.15) (0.15)
## factor(Munic)Grude 0.40 ** 0.40 **
## (0.14) (0.14)
## factor(Munic)I.Ilidza -0.01 -0.03
## (0.16) (0.16)
## factor(Munic)Ilidza 0.51 *** 0.50 ***
## (0.12) (0.12)
## factor(Munic)Ilijas 0.18 0.16
## (0.16) (0.16)
## factor(Munic)Jajce 0.28 0.26
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.14 -0.15
## (0.17) (0.17)
## factor(Munic)Kakanj 0.08 0.07
## (0.13) (0.13)
## factor(Munic)Kalesija -0.13 -0.14
## (0.14) (0.14)
## factor(Munic)Kiseljak 0.25 0.24
## (0.13) (0.13)
## factor(Munic)Kladanj 0.13 0.13
## (0.18) (0.18)
## factor(Munic)Kljuc -0.01 -0.02
## (0.16) (0.16)
## factor(Munic)Knezevo -0.03 -0.04
## (0.18) (0.18)
## factor(Munic)Konjic 0.23 * 0.23 *
## (0.12) (0.12)
## factor(Munic)Kotor Varos 0.14 0.13
## (0.18) (0.18)
## factor(Munic)Kresevo 0.37 * 0.36 *
## (0.15) (0.15)
## factor(Munic)Kupres 0.20 0.20
## (0.16) (0.16)
## factor(Munic)Laktasi 0.02 0.02
## (0.12) (0.12)
## factor(Munic)Livno 0.41 ** 0.41 **
## (0.13) (0.13)
## factor(Munic)Lopare -0.01 -0.02
## (0.13) (0.13)
## factor(Munic)Lukavac 0.12 0.11
## (0.13) (0.13)
## factor(Munic)Ljubuski 0.42 ** 0.43 **
## (0.13) (0.13)
## factor(Munic)Maglaj 0.07 0.06
## (0.14) (0.14)
## factor(Munic)Modrica -0.06 -0.07
## (0.12) (0.12)
## factor(Munic)Mrkonjic 0.27 0.28
## (0.20) (0.20)
## factor(Munic)N.G.Sarajevo 0.35 *** 0.33 **
## (0.10) (0.10)
## factor(Munic)N.Gorazde -0.41 * -0.40 *
## (0.19) (0.19)
## factor(Munic)N.Sarajevo 0.43 *** 0.42 ***
## (0.12) (0.12)
## factor(Munic)N.Travnik -0.17 -0.17
## (0.11) (0.11)
## factor(Munic)Nevesinje -0.03 -0.06
## (0.18) (0.18)
## factor(Munic)Novi Grad -0.05 -0.06
## (0.12) (0.12)
## factor(Munic)Orasje 0.34 * 0.35 *
## (0.14) (0.14)
## factor(Munic)Pale 0.07 0.07
## (0.15) (0.15)
## factor(Munic)Posusje 0.41 ** 0.40 **
## (0.16) (0.16)
## factor(Munic)Prijedor 0.14 0.14
## (0.11) (0.11)
## factor(Munic)Prnjavor 0.02 0.01
## (0.12) (0.12)
## factor(Munic)Prozor 0.22 0.23
## (0.18) (0.18)
## factor(Munic)Ribnik -0.02 -0.04
## (0.16) (0.16)
## factor(Munic)Rogatica 0.18 0.18
## (0.15) (0.15)
## factor(Munic)Rudo -0.16 -0.16
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.61 *** 0.61 ***
## (0.12) (0.12)
## factor(Munic)S.G.Sarajevo 0.36 ** 0.35 **
## (0.12) (0.12)
## factor(Munic)Samac 0.02 0.01
## (0.11) (0.11)
## factor(Munic)Sanski Most -0.01 -0.02
## (0.11) (0.11)
## factor(Munic)Sokolac -0.16 -0.18
## (0.18) (0.18)
## factor(Munic)Srbac 0.06 0.05
## (0.16) (0.16)
## factor(Munic)Srebrenica 0.33 0.33
## (0.19) (0.19)
## factor(Munic)Srebrenik 0.16 0.15
## (0.19) (0.19)
## factor(Munic)Stolac 0.31 0.31
## (0.16) (0.16)
## factor(Munic)Tesanj 0.00 0.00
## (0.12) (0.12)
## factor(Munic)Teslic -0.04 -0.04
## (0.13) (0.13)
## factor(Munic)Tomislavgrad 0.17 0.16
## (0.18) (0.18)
## factor(Munic)Travnik 0.33 ** 0.33 **
## (0.11) (0.11)
## factor(Munic)Trebinje 0.03 0.03
## (0.13) (0.13)
## factor(Munic)Tuzla 0.17 0.17
## (0.11) (0.11)
## factor(Munic)Ugljevik 0.17 0.17
## (0.14) (0.14)
## factor(Munic)V.Kladusa -0.25 * -0.25 *
## (0.12) (0.12)
## factor(Munic)Visegrad -0.15 -0.14
## (0.17) (0.17)
## factor(Munic)Visoko 0.13 0.12
## (0.12) (0.12)
## factor(Munic)Vitez -0.07 -0.07
## (0.11) (0.11)
## factor(Munic)Vlasenica 0.12 0.10
## (0.16) (0.16)
## factor(Munic)Vogosca 0.14 0.12
## (0.14) (0.14)
## factor(Munic)Zavidovici -0.04 -0.05
## (0.12) (0.12)
## factor(Munic)Zenica 0.10 0.09
## (0.10) (0.10)
## factor(Munic)Zivinice -0.05 -0.06
## (0.12) (0.12)
## factor(Munic)Zvornik -0.33 ** -0.34 **
## (0.12) (0.12)
## Educ.2no elementary 0.05
## (0.13)
## Educ.2elementary 0.20 *
## (0.10)
## Educ.2high schl 0.52 ***
## (0.10)
## Educ.2college 0.82 ***
## (0.11)
## Educ.2university 1.00 ***
## (0.10)
## ----------------------------------------------------
## R^2 0.40 0.40
## Adj. R^2 0.39 0.39
## Num. obs. 4511 4511
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05#nista znacajno ne mijenjasummary (WI.dfa$Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 17.00 33.00 43.00 42.49 52.00 79.00sd (WI.dfa$Age)## [1] 11.56855summary (WI.dfa$wages)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 52.5 400.0 630.0 701.0 940.0 2300.0sd (WI.dfa$wages)## [1] 406.2234table (WI.dfa$Educ.1)##
## no elementary elementary high schl faculty
## 83 562 3013 853table (WI.dfa$Active)##
## 1 2
## 4078 433table (WI.dfa$Sex_)##
## 1 2
## 2905 1606##next uradi diagnostiku i primijeni mozda weighted model i uporediti. pa onda koji mi bude najbolji raditi winner model
#short diagnostic
par(mfrow=c(2,2))
plot(WI.3a) #plots before weights not all model 
#RESOLVING HETEROSCESADICITY ############################ #nasla sam na rpubsu
uraditi isto weihted i non weighed model kod not all income tj. only wages
##Prvo uprediti stand.errors
summary(WI.3) #npr na interceptu je 0.1458, ##
## Call:
## lm(formula = log(wages) ~ Age + as.numeric(Age^2) + factor(Sex_) +
## Educ.1 + factor(Full.time) + factor(Munic), data = WI.df)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.3496 -0.2643 0.0685 0.3587 2.4131
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.640e+00 1.458e-01 31.829 < 2e-16 ***
## Age 5.065e-02 5.078e-03 9.974 < 2e-16 ***
## as.numeric(Age^2) -4.998e-04 5.986e-05 -8.349 < 2e-16 ***
## factor(Sex_)2 -1.713e-01 1.825e-02 -9.387 < 2e-16 ***
## Educ.1elementary 2.498e-01 6.998e-02 3.570 0.000361 ***
## Educ.1high schl 5.198e-01 6.813e-02 7.630 2.80e-14 ***
## Educ.1faculty 9.551e-01 7.057e-02 13.533 < 2e-16 ***
## factor(Full.time)part time -8.224e-01 2.924e-02 -28.120 < 2e-16 ***
## factor(Munic)B.Petrovac 2.167e-02 1.984e-01 0.109 0.913043
## factor(Munic)Banovici 2.765e-01 1.538e-01 1.797 0.072339 .
## factor(Munic)Banja Luka 1.380e-01 1.085e-01 1.272 0.203556
## factor(Munic)Bihac -5.744e-02 1.180e-01 -0.487 0.626553
## factor(Munic)Bijeljina -1.041e-01 1.075e-01 -0.968 0.332911
## factor(Munic)Bileca 7.761e-02 1.927e-01 0.403 0.687189
## factor(Munic)Bratunac 3.359e-01 1.924e-01 1.746 0.080958 .
## factor(Munic)Brcko 1.694e-01 1.062e-01 1.595 0.110737
## factor(Munic)Breza 2.486e-01 1.755e-01 1.416 0.156718
## factor(Munic)Brod -4.671e-01 1.439e-01 -3.245 0.001181 **
## factor(Munic)Bugojno 3.009e-02 1.188e-01 0.253 0.799955
## factor(Munic)Busovaca 1.201e-01 1.441e-01 0.834 0.404506
## factor(Munic)Buzim -6.496e-01 1.925e-01 -3.375 0.000744 ***
## factor(Munic)C.Sarajevo 3.470e-01 1.248e-01 2.780 0.005449 **
## factor(Munic)Cajnice -2.764e-01 1.793e-01 -1.542 0.123257
## factor(Munic)Capljina 4.670e-01 1.502e-01 3.110 0.001879 **
## factor(Munic)Cazin -1.707e-01 1.226e-01 -1.392 0.163950
## factor(Munic)Celinac -7.563e-02 2.049e-01 -0.369 0.712069
## factor(Munic)Citluk 2.159e-01 1.492e-01 1.447 0.147881
## factor(Munic)D.Vakuf -9.327e-02 1.307e-01 -0.714 0.475545
## factor(Munic)Derventa -4.944e-01 1.359e-01 -3.639 0.000277 ***
## factor(Munic)Doboj 1.800e-01 1.211e-01 1.486 0.137331
## factor(Munic)Doboj-Jug -1.243e-01 2.050e-01 -0.606 0.544432
## factor(Munic)Drvar 7.931e-02 1.666e-01 0.476 0.634086
## factor(Munic)Foca - RS 1.338e-02 1.466e-01 0.091 0.927318
## factor(Munic)Fojnica 3.022e-01 1.875e-01 1.612 0.107119
## factor(Munic)G.Vakuf -3.112e-02 1.364e-01 -0.228 0.819504
## factor(Munic)Gacko 2.616e-01 1.506e-01 1.737 0.082474 .
## factor(Munic)Glamoc 2.619e-01 1.930e-01 1.357 0.174832
## factor(Munic)Gorazde 2.428e-01 1.376e-01 1.765 0.077663 .
## factor(Munic)Gracanica -3.484e-02 1.322e-01 -0.264 0.792086
## factor(Munic)Grad Mostar 3.840e-01 1.099e-01 3.495 0.000479 ***
## factor(Munic)Gradacac 2.636e-02 1.306e-01 0.202 0.840063
## factor(Munic)Gradiska -2.963e-02 1.638e-01 -0.181 0.856448
## factor(Munic)Grude 4.358e-01 1.454e-01 2.998 0.002727 **
## factor(Munic)I.Ilidza 2.790e-02 1.722e-01 0.162 0.871286
## factor(Munic)Ilidza 5.514e-01 1.271e-01 4.337 1.47e-05 ***
## factor(Munic)Ilijas 1.066e-01 1.690e-01 0.631 0.528142
## factor(Munic)Jajce 3.955e-01 1.637e-01 2.417 0.015703 *
## factor(Munic)K.Dubica -1.280e-01 1.830e-01 -0.699 0.484280
## factor(Munic)Kakanj 1.113e-01 1.374e-01 0.810 0.417847
## factor(Munic)Kalesija -1.571e-01 1.395e-01 -1.127 0.259911
## factor(Munic)Kiseljak 2.946e-01 1.393e-01 2.114 0.034527 *
## factor(Munic)Kladanj 9.342e-02 1.827e-01 0.511 0.609208
## factor(Munic)Kljuc 1.717e-02 1.721e-01 0.100 0.920523
## factor(Munic)Knezevo -2.076e-02 1.983e-01 -0.105 0.916633
## factor(Munic)Konjic 2.826e-01 1.234e-01 2.290 0.022064 *
## factor(Munic)Kotor Varos 1.478e-01 1.925e-01 0.768 0.442378
## factor(Munic)Kresevo 4.053e-01 1.594e-01 2.542 0.011059 *
## factor(Munic)Kupres 2.236e-01 1.787e-01 1.251 0.210982
## factor(Munic)Laktasi 3.457e-02 1.339e-01 0.258 0.796289
## factor(Munic)Livno 4.699e-01 1.409e-01 3.335 0.000858 ***
## factor(Munic)Lopare 9.895e-02 1.338e-01 0.739 0.459688
## factor(Munic)Lukavac 2.137e-01 1.384e-01 1.544 0.122605
## factor(Munic)Ljubuski 4.897e-01 1.386e-01 3.534 0.000413 ***
## factor(Munic)Maglaj 1.010e-01 1.340e-01 0.754 0.451045
## factor(Munic)Modrica -2.210e-02 1.266e-01 -0.175 0.861409
## factor(Munic)Mrkonjic 2.970e-01 2.052e-01 1.448 0.147760
## factor(Munic)N.G.Sarajevo 3.623e-01 1.089e-01 3.326 0.000886 ***
## factor(Munic)N.Gorazde -3.493e-01 1.791e-01 -1.951 0.051149 .
## factor(Munic)N.Sarajevo 4.514e-01 1.255e-01 3.598 0.000324 ***
## factor(Munic)N.Travnik -1.322e-01 1.207e-01 -1.096 0.273298
## factor(Munic)Nevesinje -2.676e-02 1.984e-01 -0.135 0.892736
## factor(Munic)Novi Grad -4.070e-02 1.265e-01 -0.322 0.747549
## factor(Munic)Orasje 4.891e-01 1.454e-01 3.365 0.000772 ***
## factor(Munic)Pale 8.276e-02 1.574e-01 0.526 0.599153
## factor(Munic)Posusje 4.958e-01 1.639e-01 3.025 0.002496 **
## factor(Munic)Prijedor 1.472e-01 1.197e-01 1.229 0.219007
## factor(Munic)Prnjavor 3.304e-02 1.296e-01 0.255 0.798705
## factor(Munic)Prozor 2.752e-01 1.756e-01 1.567 0.117066
## factor(Munic)Ribnik 1.663e-02 1.721e-01 0.097 0.923016
## factor(Munic)Rogatica 7.424e-02 1.641e-01 0.452 0.651013
## factor(Munic)Rudo -1.235e-01 1.615e-01 -0.764 0.444612
## factor(Munic)S.Brijeg 6.377e-01 1.270e-01 5.023 5.28e-07 ***
## factor(Munic)S.G.Sarajevo 3.985e-01 1.308e-01 3.047 0.002320 **
## factor(Munic)Samac 4.330e-02 1.198e-01 0.361 0.717822
## factor(Munic)Sanski Most 1.509e-01 1.190e-01 1.269 0.204639
## factor(Munic)Sokolac -1.512e-01 1.987e-01 -0.761 0.446555
## factor(Munic)Srbac 5.927e-02 1.690e-01 0.351 0.725777
## factor(Munic)Srebrenica 2.609e-01 2.050e-01 1.272 0.203290
## factor(Munic)Srebrenik 1.490e-01 2.047e-01 0.728 0.466642
## factor(Munic)Stolac 3.843e-01 1.755e-01 2.190 0.028567 *
## factor(Munic)Tesanj 7.529e-03 1.218e-01 0.062 0.950720
## factor(Munic)Teslic -9.919e-03 1.326e-01 -0.075 0.940380
## factor(Munic)Tomislavgrad 4.933e-01 1.721e-01 2.866 0.004176 **
## factor(Munic)Travnik 3.401e-01 1.127e-01 3.018 0.002553 **
## factor(Munic)Trebinje 4.316e-02 1.376e-01 0.314 0.753823
## factor(Munic)Tuzla 7.495e-02 1.170e-01 0.641 0.521800
## factor(Munic)Ugljevik 2.387e-01 1.554e-01 1.536 0.124708
## factor(Munic)V.Kladusa -4.534e-02 1.253e-01 -0.362 0.717546
## factor(Munic)Visegrad -8.790e-02 1.755e-01 -0.501 0.616551
## factor(Munic)Visoko 1.468e-01 1.264e-01 1.161 0.245718
## factor(Munic)Vitez -4.934e-02 1.206e-01 -0.409 0.682536
## factor(Munic)Vlasenica 1.195e-01 1.719e-01 0.695 0.487131
## factor(Munic)Vogosca 1.408e-01 1.538e-01 0.916 0.359940
## factor(Munic)Zavidovici 4.913e-02 1.229e-01 0.400 0.689373
## factor(Munic)Zenica 1.283e-01 1.106e-01 1.160 0.246036
## factor(Munic)Zepce 1.712e-01 1.982e-01 0.864 0.387756
## factor(Munic)Zivinice -1.074e-01 1.246e-01 -0.862 0.388584
## factor(Munic)Zvornik -3.426e-01 1.242e-01 -2.760 0.005805 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5913 on 4881 degrees of freedom
## Multiple R-squared: 0.3875, Adjusted R-squared: 0.3741
## F-statistic: 28.86 on 107 and 4881 DF, p-value: < 2.2e-16##sada idemo na robust koji je u sendvic librariu
library(sandwich)
library(lmtest)## Loading required package: zoo##
## Attaching package: 'zoo'## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numericcoeftest(WI.3, vcov = vcovHC(WI.3,"HC1"))# HC1 gives us a white standard errors. In this model it is 0.17564##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.6401e+00 1.7564e-01 26.4176 < 2.2e-16 ***
## Age 5.0647e-02 5.8136e-03 8.7119 < 2.2e-16 ***
## as.numeric(Age^2) -4.9980e-04 6.8524e-05 -7.2939 3.496e-13 ***
## factor(Sex_)2 -1.7135e-01 1.7604e-02 -9.7336 < 2.2e-16 ***
## Educ.1elementary 2.4981e-01 8.8169e-02 2.8333 0.0046264 **
## Educ.1high schl 5.1983e-01 8.6194e-02 6.0310 1.750e-09 ***
## Educ.1faculty 9.5506e-01 8.8114e-02 10.8389 < 2.2e-16 ***
## factor(Full.time)part time -8.2236e-01 3.4900e-02 -23.5632 < 2.2e-16 ***
## factor(Munic)B.Petrovac 2.1667e-02 2.8200e-01 0.0768 0.9387612
## factor(Munic)Banovici 2.7646e-01 1.7129e-01 1.6140 0.1065850
## factor(Munic)Banja Luka 1.3799e-01 1.2782e-01 1.0795 0.2804086
## factor(Munic)Bihac -5.7445e-02 1.3822e-01 -0.4156 0.6777281
## factor(Munic)Bijeljina -1.0411e-01 1.3225e-01 -0.7872 0.4312221
## factor(Munic)Bileca 7.7613e-02 1.5308e-01 0.5070 0.6121610
## factor(Munic)Bratunac 3.3592e-01 1.6183e-01 2.0758 0.0379674 *
## factor(Munic)Brcko 1.6937e-01 1.2732e-01 1.3303 0.1834895
## factor(Munic)Breza 2.4864e-01 2.0738e-01 1.1990 0.2305914
## factor(Munic)Brod -4.6708e-01 2.1081e-01 -2.2156 0.0267635 *
## factor(Munic)Bugojno 3.0094e-02 1.4069e-01 0.2139 0.8306359
## factor(Munic)Busovaca 1.2015e-01 1.7360e-01 0.6921 0.4889015
## factor(Munic)Buzim -6.4958e-01 2.8286e-01 -2.2964 0.0216934 *
## factor(Munic)C.Sarajevo 3.4701e-01 1.4931e-01 2.3241 0.0201609 *
## factor(Munic)Cajnice -2.7642e-01 2.2333e-01 -1.2377 0.2158867
## factor(Munic)Capljina 4.6702e-01 1.5092e-01 3.0944 0.0019830 **
## factor(Munic)Cazin -1.7069e-01 1.4812e-01 -1.1524 0.2492222
## factor(Munic)Celinac -7.5632e-02 1.7097e-01 -0.4424 0.6582455
## factor(Munic)Citluk 2.1595e-01 2.0127e-01 1.0729 0.2833650
## factor(Munic)D.Vakuf -9.3268e-02 1.4334e-01 -0.6507 0.5152862
## factor(Munic)Derventa -4.9438e-01 1.7043e-01 -2.9008 0.0037386 **
## factor(Munic)Doboj 1.7999e-01 1.2926e-01 1.3925 0.1638384
## factor(Munic)Doboj-Jug -1.2425e-01 1.4263e-01 -0.8711 0.3837289
## factor(Munic)Drvar 7.9306e-02 1.4596e-01 0.5433 0.5869314
## factor(Munic)Foca - RS 1.3378e-02 1.7350e-01 0.0771 0.9385430
## factor(Munic)Fojnica 3.0220e-01 1.5588e-01 1.9386 0.0526027 .
## factor(Munic)G.Vakuf -3.1125e-02 1.6293e-01 -0.1910 0.8485125
## factor(Munic)Gacko 2.6158e-01 1.3807e-01 1.8946 0.0582106 .
## factor(Munic)Glamoc 2.6187e-01 1.8400e-01 1.4232 0.1547369
## factor(Munic)Gorazde 2.4278e-01 1.3473e-01 1.8019 0.0716151 .
## factor(Munic)Gracanica -3.4840e-02 1.5163e-01 -0.2298 0.8182836
## factor(Munic)Grad Mostar 3.8396e-01 1.2908e-01 2.9747 0.0029471 **
## factor(Munic)Gradacac 2.6360e-02 1.6318e-01 0.1615 0.8716766
## factor(Munic)Gradiska -2.9625e-02 1.5942e-01 -0.1858 0.8525808
## factor(Munic)Grude 4.3584e-01 1.5763e-01 2.7650 0.0057136 **
## factor(Munic)I.Ilidza 2.7902e-02 1.6673e-01 0.1673 0.8671070
## factor(Munic)Ilidza 5.5142e-01 1.4056e-01 3.9231 8.862e-05 ***
## factor(Munic)Ilijas 1.0665e-01 1.6878e-01 0.6319 0.5275066
## factor(Munic)Jajce 3.9554e-01 1.5820e-01 2.5003 0.0124424 *
## factor(Munic)K.Dubica -1.2802e-01 1.5724e-01 -0.8142 0.4155824
## factor(Munic)Kakanj 1.1134e-01 1.7171e-01 0.6484 0.5167401
## factor(Munic)Kalesija -1.5713e-01 1.7691e-01 -0.8882 0.3744967
## factor(Munic)Kiseljak 2.9459e-01 1.4622e-01 2.0147 0.0439884 *
## factor(Munic)Kladanj 9.3415e-02 2.0079e-01 0.4652 0.6417792
## factor(Munic)Kljuc 1.7171e-02 1.9630e-01 0.0875 0.9302993
## factor(Munic)Knezevo -2.0762e-02 2.1911e-01 -0.0948 0.9245127
## factor(Munic)Konjic 2.8265e-01 1.4271e-01 1.9806 0.0476923 *
## factor(Munic)Kotor Varos 1.4785e-01 1.4611e-01 1.0119 0.3116169
## factor(Munic)Kresevo 4.0529e-01 1.4437e-01 2.8073 0.0050160 **
## factor(Munic)Kupres 2.2356e-01 1.7967e-01 1.2443 0.2134523
## factor(Munic)Laktasi 3.4571e-02 1.5426e-01 0.2241 0.8226816
## factor(Munic)Livno 4.6995e-01 1.3235e-01 3.5507 0.0003879 ***
## factor(Munic)Lopare 9.8951e-02 1.6215e-01 0.6102 0.5417348
## factor(Munic)Lukavac 2.1367e-01 1.4895e-01 1.4345 0.1514888
## factor(Munic)Ljubuski 4.8972e-01 1.5838e-01 3.0921 0.0019985 **
## factor(Munic)Maglaj 1.0097e-01 1.4084e-01 0.7169 0.4734676
## factor(Munic)Modrica -2.2101e-02 1.4843e-01 -0.1489 0.8816453
## factor(Munic)Mrkonjic 2.9700e-01 1.7672e-01 1.6806 0.0929004 .
## factor(Munic)N.G.Sarajevo 3.6227e-01 1.2841e-01 2.8212 0.0048041 **
## factor(Munic)N.Gorazde -3.4928e-01 2.5086e-01 -1.3923 0.1638886
## factor(Munic)N.Sarajevo 4.5142e-01 1.5251e-01 2.9599 0.0030921 **
## factor(Munic)N.Travnik -1.3224e-01 1.3908e-01 -0.9508 0.3417560
## factor(Munic)Nevesinje -2.6756e-02 1.5905e-01 -0.1682 0.8664156
## factor(Munic)Novi Grad -4.0704e-02 1.4871e-01 -0.2737 0.7843162
## factor(Munic)Orasje 4.8909e-01 1.5800e-01 3.0955 0.0019757 **
## factor(Munic)Pale 8.2757e-02 1.5350e-01 0.5391 0.5898131
## factor(Munic)Posusje 4.9580e-01 1.4426e-01 3.4369 0.0005934 ***
## factor(Munic)Prijedor 1.4715e-01 1.3304e-01 1.1061 0.2687317
## factor(Munic)Prnjavor 3.3044e-02 1.4451e-01 0.2287 0.8191363
## factor(Munic)Prozor 2.7520e-01 1.7057e-01 1.6135 0.1067103
## factor(Munic)Ribnik 1.6634e-02 1.6114e-01 0.1032 0.9177883
## factor(Munic)Rogatica 7.4241e-02 1.9662e-01 0.3776 0.7057616
## factor(Munic)Rudo -1.2350e-01 1.5678e-01 -0.7877 0.4309121
## factor(Munic)S.Brijeg 6.3765e-01 1.2770e-01 4.9932 6.144e-07 ***
## factor(Munic)S.G.Sarajevo 3.9853e-01 1.3292e-01 2.9983 0.0027283 **
## factor(Munic)Samac 4.3303e-02 1.3576e-01 0.3190 0.7497667
## factor(Munic)Sanski Most 1.5093e-01 1.4663e-01 1.0293 0.3034079
## factor(Munic)Sokolac -1.5124e-01 2.7567e-01 -0.5486 0.5832870
## factor(Munic)Srbac 5.9271e-02 1.5437e-01 0.3840 0.7010305
## factor(Munic)Srebrenica 2.6086e-01 1.6379e-01 1.5926 0.1113115
## factor(Munic)Srebrenik 1.4905e-01 1.4213e-01 1.0487 0.2943787
## factor(Munic)Stolac 3.8435e-01 2.0373e-01 1.8865 0.0592824 .
## factor(Munic)Tesanj 7.5293e-03 1.3779e-01 0.0546 0.9564245
## factor(Munic)Teslic -9.9190e-03 1.4402e-01 -0.0689 0.9450954
## factor(Munic)Tomislavgrad 4.9329e-01 2.1661e-01 2.2773 0.0228089 *
## factor(Munic)Travnik 3.4006e-01 1.2670e-01 2.6841 0.0072981 **
## factor(Munic)Trebinje 4.3163e-02 1.3620e-01 0.3169 0.7513343
## factor(Munic)Tuzla 7.4945e-02 1.3674e-01 0.5481 0.5836597
## factor(Munic)Ugljevik 2.3866e-01 1.7088e-01 1.3967 0.1625734
## factor(Munic)V.Kladusa -4.5342e-02 1.6293e-01 -0.2783 0.7808082
## factor(Munic)Visegrad -8.7899e-02 1.4139e-01 -0.6217 0.5341843
## factor(Munic)Visoko 1.4678e-01 1.3834e-01 1.0609 0.2887653
## factor(Munic)Vitez -4.9339e-02 1.3856e-01 -0.3561 0.7218008
## factor(Munic)Vlasenica 1.1948e-01 1.8988e-01 0.6292 0.5292183
## factor(Munic)Vogosca 1.4081e-01 1.6893e-01 0.8335 0.4045864
## factor(Munic)Zavidovici 4.9133e-02 1.3423e-01 0.3660 0.7143449
## factor(Munic)Zenica 1.2830e-01 1.3091e-01 0.9800 0.3271107
## factor(Munic)Zepce 1.7124e-01 1.7065e-01 1.0035 0.3156793
## factor(Munic)Zivinice -1.0740e-01 1.5584e-01 -0.6892 0.4907540
## factor(Munic)Zvornik -3.4264e-01 1.4452e-01 -2.3708 0.0177872 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1##sada izvlacimo reziduale iz naseg modela i dodamo u nas df
##moramo prvo da napravimo df bez na. u WI.df
table(is.na(WI.df)) #nema NAova tako da necemo ovaj postipak raditi, ali da ga radimo kod bi bio:##
## FALSE
## 84813#WI.df <- WI.df %>% drop_na(varijabla.na)
#dim(dist.s.k2)#12239#dodaj sada ovome residual
WI.df$resi <- WI.3$residuals
var.func.ols <- lm(log(resi^2) ~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic) , data = WI.df)
WI.df$varfunc <- exp(var.func.ols$fitted.values)#sada ponderisani model
WI.3.gls <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic),weights = 1/sqrt(varfunc), data = WI.df) #short diagnostic on weighted model
par(mfrow=c(2,2))
plot(WI.3.gls) #plots after weights full model
texreg::screenreg(list(WI.3, WI.3.gls)) #uporedni prikaz daje da je non weighed model bolji model##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.64 *** 4.71 ***
## (0.15) (0.16)
## Age 0.05 *** 0.05 ***
## (0.01) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.17 *** -0.17 ***
## (0.02) (0.02)
## Educ.1elementary 0.25 *** 0.26 ***
## (0.07) (0.08)
## Educ.1high schl 0.52 *** 0.52 ***
## (0.07) (0.08)
## Educ.1faculty 0.96 *** 0.96 ***
## (0.07) (0.08)
## factor(Full.time)part time -0.82 *** -0.81 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac 0.02 0.04
## (0.20) (0.28)
## factor(Munic)Banovici 0.28 0.29
## (0.15) (0.16)
## factor(Munic)Banja Luka 0.14 0.15
## (0.11) (0.12)
## factor(Munic)Bihac -0.06 -0.04
## (0.12) (0.14)
## factor(Munic)Bijeljina -0.10 -0.08
## (0.11) (0.13)
## factor(Munic)Bileca 0.08 0.09
## (0.19) (0.19)
## factor(Munic)Bratunac 0.34 0.36
## (0.19) (0.19)
## factor(Munic)Brcko 0.17 0.17
## (0.11) (0.12)
## factor(Munic)Breza 0.25 0.27
## (0.18) (0.21)
## factor(Munic)Brod -0.47 ** -0.45 *
## (0.14) (0.20)
## factor(Munic)Bugojno 0.03 0.05
## (0.12) (0.14)
## factor(Munic)Busovaca 0.12 0.16
## (0.14) (0.17)
## factor(Munic)Buzim -0.65 *** -0.63 *
## (0.19) (0.28)
## factor(Munic)C.Sarajevo 0.35 ** 0.39 **
## (0.12) (0.14)
## factor(Munic)Cajnice -0.28 -0.24
## (0.18) (0.21)
## factor(Munic)Capljina 0.47 ** 0.49 **
## (0.15) (0.16)
## factor(Munic)Cazin -0.17 -0.16
## (0.12) (0.15)
## factor(Munic)Celinac -0.08 -0.07
## (0.20) (0.19)
## factor(Munic)Citluk 0.22 0.25
## (0.15) (0.19)
## factor(Munic)D.Vakuf -0.09 -0.06
## (0.13) (0.14)
## factor(Munic)Derventa -0.49 *** -0.49 **
## (0.14) (0.16)
## factor(Munic)Doboj 0.18 0.20
## (0.12) (0.13)
## factor(Munic)Doboj-Jug -0.12 -0.11
## (0.20) (0.18)
## factor(Munic)Drvar 0.08 0.09
## (0.17) (0.15)
## factor(Munic)Foca - RS 0.01 0.02
## (0.15) (0.15)
## factor(Munic)Fojnica 0.30 0.31
## (0.19) (0.19)
## factor(Munic)G.Vakuf -0.03 -0.01
## (0.14) (0.17)
## factor(Munic)Gacko 0.26 0.28
## (0.15) (0.15)
## factor(Munic)Glamoc 0.26 0.24
## (0.19) (0.21)
## factor(Munic)Gorazde 0.24 0.25
## (0.14) (0.14)
## factor(Munic)Gracanica -0.03 -0.03
## (0.13) (0.14)
## factor(Munic)Grad Mostar 0.38 *** 0.40 **
## (0.11) (0.13)
## factor(Munic)Gradacac 0.03 0.01
## (0.13) (0.15)
## factor(Munic)Gradiska -0.03 -0.03
## (0.16) (0.16)
## factor(Munic)Grude 0.44 ** 0.45 **
## (0.15) (0.14)
## factor(Munic)I.Ilidza 0.03 0.03
## (0.17) (0.18)
## factor(Munic)Ilidza 0.55 *** 0.56 ***
## (0.13) (0.13)
## factor(Munic)Ilijas 0.11 0.12
## (0.17) (0.19)
## factor(Munic)Jajce 0.40 * 0.41 *
## (0.16) (0.18)
## factor(Munic)K.Dubica -0.13 -0.12
## (0.18) (0.17)
## factor(Munic)Kakanj 0.11 0.15
## (0.14) (0.17)
## factor(Munic)Kalesija -0.16 -0.11
## (0.14) (0.17)
## factor(Munic)Kiseljak 0.29 * 0.30 *
## (0.14) (0.14)
## factor(Munic)Kladanj 0.09 0.12
## (0.18) (0.17)
## factor(Munic)Kljuc 0.02 0.07
## (0.17) (0.20)
## factor(Munic)Knezevo -0.02 0.00
## (0.20) (0.20)
## factor(Munic)Konjic 0.28 * 0.31 *
## (0.12) (0.14)
## factor(Munic)Kotor Varos 0.15 0.16
## (0.19) (0.18)
## factor(Munic)Kresevo 0.41 * 0.41 **
## (0.16) (0.15)
## factor(Munic)Kupres 0.22 0.26
## (0.18) (0.20)
## factor(Munic)Laktasi 0.03 0.05
## (0.13) (0.15)
## factor(Munic)Livno 0.47 *** 0.49 ***
## (0.14) (0.14)
## factor(Munic)Lopare 0.10 0.07
## (0.13) (0.16)
## factor(Munic)Lukavac 0.21 0.25
## (0.14) (0.15)
## factor(Munic)Ljubuski 0.49 *** 0.50 ***
## (0.14) (0.15)
## factor(Munic)Maglaj 0.10 0.13
## (0.13) (0.14)
## factor(Munic)Modrica -0.02 -0.03
## (0.13) (0.14)
## factor(Munic)Mrkonjic 0.30 0.28
## (0.21) (0.17)
## factor(Munic)N.G.Sarajevo 0.36 *** 0.39 **
## (0.11) (0.13)
## factor(Munic)N.Gorazde -0.35 -0.31
## (0.18) (0.18)
## factor(Munic)N.Sarajevo 0.45 *** 0.45 **
## (0.13) (0.14)
## factor(Munic)N.Travnik -0.13 -0.13
## (0.12) (0.14)
## factor(Munic)Nevesinje -0.03 -0.02
## (0.20) (0.21)
## factor(Munic)Novi Grad -0.04 -0.04
## (0.13) (0.14)
## factor(Munic)Orasje 0.49 *** 0.48 **
## (0.15) (0.15)
## factor(Munic)Pale 0.08 0.10
## (0.16) (0.17)
## factor(Munic)Posusje 0.50 ** 0.51 ***
## (0.16) (0.15)
## factor(Munic)Prijedor 0.15 0.17
## (0.12) (0.13)
## factor(Munic)Prnjavor 0.03 0.06
## (0.13) (0.14)
## factor(Munic)Prozor 0.28 0.30
## (0.18) (0.19)
## factor(Munic)Ribnik 0.02 0.02
## (0.17) (0.18)
## factor(Munic)Rogatica 0.07 0.08
## (0.16) (0.17)
## factor(Munic)Rudo -0.12 -0.11
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.64 *** 0.66 ***
## (0.13) (0.13)
## factor(Munic)S.G.Sarajevo 0.40 ** 0.41 **
## (0.13) (0.14)
## factor(Munic)Samac 0.04 0.06
## (0.12) (0.13)
## factor(Munic)Sanski Most 0.15 0.17
## (0.12) (0.14)
## factor(Munic)Sokolac -0.15 -0.13
## (0.20) (0.24)
## factor(Munic)Srbac 0.06 0.07
## (0.17) (0.16)
## factor(Munic)Srebrenica 0.26 0.28
## (0.21) (0.20)
## factor(Munic)Srebrenik 0.15 0.16
## (0.20) (0.17)
## factor(Munic)Stolac 0.38 * 0.39 *
## (0.18) (0.19)
## factor(Munic)Tesanj 0.01 0.02
## (0.12) (0.13)
## factor(Munic)Teslic -0.01 0.01
## (0.13) (0.14)
## factor(Munic)Tomislavgrad 0.49 ** 0.47 *
## (0.17) (0.19)
## factor(Munic)Travnik 0.34 ** 0.36 **
## (0.11) (0.13)
## factor(Munic)Trebinje 0.04 0.06
## (0.14) (0.15)
## factor(Munic)Tuzla 0.07 0.10
## (0.12) (0.13)
## factor(Munic)Ugljevik 0.24 0.26
## (0.16) (0.17)
## factor(Munic)V.Kladusa -0.05 -0.04
## (0.13) (0.15)
## factor(Munic)Visegrad -0.09 -0.07
## (0.18) (0.17)
## factor(Munic)Visoko 0.15 0.16
## (0.13) (0.14)
## factor(Munic)Vitez -0.05 -0.03
## (0.12) (0.13)
## factor(Munic)Vlasenica 0.12 0.13
## (0.17) (0.17)
## factor(Munic)Vogosca 0.14 0.14
## (0.15) (0.17)
## factor(Munic)Zavidovici 0.05 0.06
## (0.12) (0.13)
## factor(Munic)Zenica 0.13 0.14
## (0.11) (0.13)
## factor(Munic)Zepce 0.17 0.19
## (0.20) (0.21)
## factor(Munic)Zivinice -0.11 -0.06
## (0.12) (0.15)
## factor(Munic)Zvornik -0.34 ** -0.32 *
## (0.12) (0.15)
## ----------------------------------------------------
## R^2 0.39 0.37
## Adj. R^2 0.37 0.36
## Num. obs. 4989 4989
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05##Prvo uprediti stand.errors
summary(WI.3a) #npr na interceptu je 0.1385, ##
## Call:
## lm(formula = log(wages) ~ Age + as.numeric(Age^2) + factor(Sex_) +
## Educ.1 + factor(Full.time) + factor(Munic), data = WI.dfa)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.54025 -0.23473 0.06767 0.32865 2.32918
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.882e+00 1.385e-01 35.239 < 2e-16 ***
## Age 4.106e-02 4.939e-03 8.315 < 2e-16 ***
## as.numeric(Age^2) -3.956e-04 5.834e-05 -6.781 1.35e-11 ***
## factor(Sex_)2 -1.462e-01 1.734e-02 -8.431 < 2e-16 ***
## Educ.1elementary 1.655e-01 6.756e-02 2.450 0.014338 *
## Educ.1high schl 4.823e-01 6.571e-02 7.340 2.53e-13 ***
## Educ.1faculty 9.292e-01 6.791e-02 13.683 < 2e-16 ***
## factor(Full.time)part time -7.410e-01 3.014e-02 -24.587 < 2e-16 ***
## factor(Munic)B.Petrovac -1.828e-01 1.881e-01 -0.972 0.331014
## factor(Munic)Banovici 3.017e-01 1.435e-01 2.102 0.035622 *
## factor(Munic)Banja Luka 1.150e-01 1.018e-01 1.130 0.258490
## factor(Munic)Bihac -8.512e-02 1.110e-01 -0.767 0.443091
## factor(Munic)Bijeljina -1.147e-01 1.011e-01 -1.135 0.256639
## factor(Munic)Bileca 4.909e-02 1.771e-01 0.277 0.781594
## factor(Munic)Bratunac 3.501e-01 1.768e-01 1.981 0.047707 *
## factor(Munic)Brcko 1.161e-01 1.001e-01 1.160 0.246258
## factor(Munic)Breza 2.315e-01 1.615e-01 1.433 0.151933
## factor(Munic)Brod -2.568e-01 1.402e-01 -1.832 0.067015 .
## factor(Munic)Bugojno 3.926e-02 1.140e-01 0.344 0.730521
## factor(Munic)Busovaca 6.027e-02 1.354e-01 0.445 0.656223
## factor(Munic)Buzim -6.659e-01 1.767e-01 -3.768 0.000167 ***
## factor(Munic)C.Sarajevo 3.420e-01 1.193e-01 2.867 0.004157 **
## factor(Munic)Cajnice -1.785e-01 1.686e-01 -1.059 0.289878
## factor(Munic)Capljina 4.760e-01 1.400e-01 3.400 0.000679 ***
## factor(Munic)Cazin -1.264e-01 1.145e-01 -1.104 0.269596
## factor(Munic)Celinac -1.168e-01 1.880e-01 -0.621 0.534620
## factor(Munic)Citluk 2.928e-01 1.391e-01 2.105 0.035380 *
## factor(Munic)D.Vakuf -1.137e-01 1.259e-01 -0.904 0.366228
## factor(Munic)Derventa -4.717e-01 1.294e-01 -3.646 0.000270 ***
## factor(Munic)Doboj 1.505e-01 1.133e-01 1.328 0.184221
## factor(Munic)Doboj-Jug -1.087e-01 1.950e-01 -0.557 0.577387
## factor(Munic)Drvar 2.669e-02 1.535e-01 0.174 0.861975
## factor(Munic)Foca - RS -3.240e-02 1.355e-01 -0.239 0.811095
## factor(Munic)Fojnica 2.497e-01 1.723e-01 1.449 0.147484
## factor(Munic)G.Vakuf -1.004e-01 1.326e-01 -0.757 0.449049
## factor(Munic)Gacko 2.474e-01 1.404e-01 1.762 0.078135 .
## factor(Munic)Glamoc 2.371e-01 1.773e-01 1.337 0.181347
## factor(Munic)Gorazde 2.352e-01 1.289e-01 1.825 0.068039 .
## factor(Munic)Gracanica -1.288e-01 1.260e-01 -1.022 0.306996
## factor(Munic)Grad Mostar 3.323e-01 1.032e-01 3.219 0.001296 **
## factor(Munic)Gradacac 7.144e-02 1.237e-01 0.578 0.563598
## factor(Munic)Gradiska -4.956e-02 1.509e-01 -0.328 0.742638
## factor(Munic)Grude 4.016e-01 1.354e-01 2.965 0.003044 **
## factor(Munic)I.Ilidza -1.296e-02 1.615e-01 -0.080 0.936055
## factor(Munic)Ilidza 5.109e-01 1.214e-01 4.209 2.61e-05 ***
## factor(Munic)Ilijas 1.766e-01 1.646e-01 1.073 0.283470
## factor(Munic)Jajce 2.768e-01 1.556e-01 1.779 0.075271 .
## factor(Munic)K.Dubica -1.379e-01 1.723e-01 -0.801 0.423451
## factor(Munic)Kakanj 7.807e-02 1.280e-01 0.610 0.541813
## factor(Munic)Kalesija -1.259e-01 1.436e-01 -0.876 0.380820
## factor(Munic)Kiseljak 2.476e-01 1.314e-01 1.884 0.059658 .
## factor(Munic)Kladanj 1.331e-01 1.768e-01 0.753 0.451400
## factor(Munic)Kljuc -1.006e-02 1.646e-01 -0.061 0.951270
## factor(Munic)Knezevo -2.828e-02 1.821e-01 -0.155 0.876559
## factor(Munic)Konjic 2.337e-01 1.161e-01 2.012 0.044256 *
## factor(Munic)Kotor Varos 1.407e-01 1.768e-01 0.796 0.426000
## factor(Munic)Kresevo 3.693e-01 1.471e-01 2.511 0.012066 *
## factor(Munic)Kupres 2.037e-01 1.643e-01 1.240 0.215175
## factor(Munic)Laktasi 2.353e-02 1.241e-01 0.190 0.849623
## factor(Munic)Livno 4.060e-01 1.331e-01 3.050 0.002305 **
## factor(Munic)Lopare -1.237e-02 1.261e-01 -0.098 0.921844
## factor(Munic)Lukavac 1.165e-01 1.343e-01 0.867 0.385883
## factor(Munic)Ljubuski 4.160e-01 1.345e-01 3.093 0.001995 **
## factor(Munic)Maglaj 6.616e-02 1.378e-01 0.480 0.631132
## factor(Munic)Modrica -6.353e-02 1.195e-01 -0.532 0.595000
## factor(Munic)Mrkonjic 2.657e-01 1.952e-01 1.361 0.173453
## factor(Munic)N.G.Sarajevo 3.454e-01 1.022e-01 3.379 0.000735 ***
## factor(Munic)N.Gorazde -4.083e-01 1.950e-01 -2.094 0.036340 *
## factor(Munic)N.Sarajevo 4.299e-01 1.194e-01 3.600 0.000321 ***
## factor(Munic)N.Travnik -1.673e-01 1.125e-01 -1.487 0.137135
## factor(Munic)Nevesinje -3.494e-02 1.822e-01 -0.192 0.847908
## factor(Munic)Novi Grad -5.045e-02 1.193e-01 -0.423 0.672377
## factor(Munic)Orasje 3.446e-01 1.378e-01 2.501 0.012413 *
## factor(Munic)Pale 7.309e-02 1.452e-01 0.503 0.614781
## factor(Munic)Posusje 4.060e-01 1.558e-01 2.607 0.009176 **
## factor(Munic)Prijedor 1.439e-01 1.120e-01 1.285 0.198752
## factor(Munic)Prnjavor 1.964e-02 1.242e-01 0.158 0.874379
## factor(Munic)Prozor 2.234e-01 1.772e-01 1.261 0.207409
## factor(Munic)Ribnik -1.957e-02 1.614e-01 -0.121 0.903513
## factor(Munic)Rogatica 1.831e-01 1.536e-01 1.192 0.233289
## factor(Munic)Rudo -1.642e-01 1.615e-01 -1.017 0.309369
## factor(Munic)S.Brijeg 6.098e-01 1.190e-01 5.124 3.13e-07 ***
## factor(Munic)S.G.Sarajevo 3.636e-01 1.218e-01 2.986 0.002844 **
## factor(Munic)Samac 2.103e-02 1.124e-01 0.187 0.851528
## factor(Munic)Sanski Most -1.254e-02 1.129e-01 -0.111 0.911530
## factor(Munic)Sokolac -1.643e-01 1.824e-01 -0.901 0.367796
## factor(Munic)Srbac 5.756e-02 1.583e-01 0.363 0.716253
## factor(Munic)Srebrenica 3.278e-01 1.949e-01 1.681 0.092769 .
## factor(Munic)Srebrenik 1.607e-01 1.879e-01 0.856 0.392305
## factor(Munic)Stolac 3.132e-01 1.648e-01 1.901 0.057387 .
## factor(Munic)Tesanj 1.299e-03 1.188e-01 0.011 0.991277
## factor(Munic)Teslic -3.769e-02 1.288e-01 -0.293 0.769767
## factor(Munic)Tomislavgrad 1.667e-01 1.821e-01 0.916 0.359887
## factor(Munic)Travnik 3.328e-01 1.056e-01 3.152 0.001635 **
## factor(Munic)Trebinje 3.394e-02 1.274e-01 0.266 0.790013
## factor(Munic)Tuzla 1.673e-01 1.119e-01 1.495 0.134965
## factor(Munic)Ugljevik 1.734e-01 1.434e-01 1.209 0.226649
## factor(Munic)V.Kladusa -2.492e-01 1.243e-01 -2.005 0.045074 *
## factor(Munic)Visegrad -1.453e-01 1.685e-01 -0.862 0.388509
## factor(Munic)Visoko 1.286e-01 1.181e-01 1.089 0.276360
## factor(Munic)Vitez -6.815e-02 1.131e-01 -0.602 0.546978
## factor(Munic)Vlasenica 1.152e-01 1.583e-01 0.728 0.466599
## factor(Munic)Vogosca 1.412e-01 1.435e-01 0.983 0.325438
## factor(Munic)Zavidovici -4.154e-02 1.198e-01 -0.347 0.728695
## factor(Munic)Zenica 1.013e-01 1.038e-01 0.975 0.329371
## factor(Munic)Zivinice -5.412e-02 1.208e-01 -0.448 0.654192
## factor(Munic)Zvornik -3.265e-01 1.163e-01 -2.807 0.005018 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5385 on 4404 degrees of freedom
## Multiple R-squared: 0.4012, Adjusted R-squared: 0.3868
## F-statistic: 27.84 on 106 and 4404 DF, p-value: < 2.2e-16##sada idemo na robust koji je u sendvic librariu
library(sandwich)
library(lmtest)
coeftest(WI.3a, vcov = vcovHC(WI.3a,"HC1"))# HC1 gives us a white standard errors. In this model it is 0.17464##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.8820e+00 1.7464e-01 27.9540 < 2.2e-16 ***
## Age 4.1064e-02 5.3456e-03 7.6819 1.920e-14 ***
## as.numeric(Age^2) -3.9558e-04 6.2524e-05 -6.3268 2.752e-10 ***
## factor(Sex_)2 -1.4622e-01 1.6458e-02 -8.8845 < 2.2e-16 ***
## Educ.1elementary 1.6549e-01 8.4009e-02 1.9699 0.0489140 *
## Educ.1high schl 4.8233e-01 8.1980e-02 5.8835 4.315e-09 ***
## Educ.1faculty 9.2924e-01 8.3977e-02 11.0655 < 2.2e-16 ***
## factor(Full.time)part time -7.4105e-01 3.5139e-02 -21.0892 < 2.2e-16 ***
## factor(Munic)B.Petrovac -1.8284e-01 3.0157e-01 -0.6063 0.5443564
## factor(Munic)Banovici 3.0165e-01 1.3844e-01 2.1789 0.0293940 *
## factor(Munic)Banja Luka 1.1502e-01 1.3268e-01 0.8669 0.3860614
## factor(Munic)Bihac -8.5119e-02 1.4520e-01 -0.5862 0.5577598
## factor(Munic)Bijeljina -1.1473e-01 1.3632e-01 -0.8416 0.4000662
## factor(Munic)Bileca 4.9092e-02 1.5698e-01 0.3127 0.7545019
## factor(Munic)Bratunac 3.5006e-01 1.6757e-01 2.0891 0.0367558 *
## factor(Munic)Brcko 1.1605e-01 1.3188e-01 0.8800 0.3789296
## factor(Munic)Breza 2.3147e-01 2.1235e-01 1.0900 0.2757528
## factor(Munic)Brod -2.5682e-01 1.9348e-01 -1.3274 0.1844587
## factor(Munic)Bugojno 3.9260e-02 1.4495e-01 0.2709 0.7865140
## factor(Munic)Busovaca 6.0273e-02 1.8150e-01 0.3321 0.7398392
## factor(Munic)Buzim -6.6585e-01 2.8823e-01 -2.3101 0.0209267 *
## factor(Munic)C.Sarajevo 3.4204e-01 1.4597e-01 2.3433 0.0191566 *
## factor(Munic)Cajnice -1.7846e-01 1.9249e-01 -0.9271 0.3539395
## factor(Munic)Capljina 4.7601e-01 1.5718e-01 3.0284 0.0024728 **
## factor(Munic)Cazin -1.2638e-01 1.4971e-01 -0.8442 0.3986192
## factor(Munic)Celinac -1.1677e-01 1.7305e-01 -0.6748 0.4998626
## factor(Munic)Citluk 2.9276e-01 1.8060e-01 1.6210 0.1050873
## factor(Munic)D.Vakuf -1.1375e-01 1.5060e-01 -0.7553 0.4501161
## factor(Munic)Derventa -4.7166e-01 1.6450e-01 -2.8673 0.0041602 **
## factor(Munic)Doboj 1.5053e-01 1.3532e-01 1.1124 0.2660298
## factor(Munic)Doboj-Jug -1.0866e-01 1.4624e-01 -0.7430 0.4575063
## factor(Munic)Drvar 2.6690e-02 1.4928e-01 0.1788 0.8581095
## factor(Munic)Foca - RS -3.2399e-02 1.7480e-01 -0.1853 0.8529632
## factor(Munic)Fojnica 2.4968e-01 1.6875e-01 1.4796 0.1390416
## factor(Munic)G.Vakuf -1.0042e-01 1.6766e-01 -0.5989 0.5492373
## factor(Munic)Gacko 2.4744e-01 1.4250e-01 1.7365 0.0825464 .
## factor(Munic)Glamoc 2.3706e-01 1.8449e-01 1.2849 0.1988836
## factor(Munic)Gorazde 2.3520e-01 1.3911e-01 1.6907 0.0909574 .
## factor(Munic)Gracanica -1.2876e-01 1.5983e-01 -0.8056 0.4204986
## factor(Munic)Grad Mostar 3.3231e-01 1.3371e-01 2.4854 0.0129791 *
## factor(Munic)Gradacac 7.1443e-02 1.5694e-01 0.4552 0.6489642
## factor(Munic)Gradiska -4.9559e-02 1.6452e-01 -0.3012 0.7632501
## factor(Munic)Grude 4.0159e-01 1.6224e-01 2.4753 0.0133507 *
## factor(Munic)I.Ilidza -1.2958e-02 1.7150e-01 -0.0756 0.9397772
## factor(Munic)Ilidza 5.1093e-01 1.4364e-01 3.5571 0.0003789 ***
## factor(Munic)Ilijas 1.7659e-01 1.7159e-01 1.0291 0.3034750
## factor(Munic)Jajce 2.7680e-01 1.5986e-01 1.7315 0.0834269 .
## factor(Munic)K.Dubica -1.3791e-01 1.5588e-01 -0.8848 0.3763339
## factor(Munic)Kakanj 7.8072e-02 1.7687e-01 0.4414 0.6589311
## factor(Munic)Kalesija -1.2589e-01 1.9924e-01 -0.6319 0.5275120
## factor(Munic)Kiseljak 2.4762e-01 1.5007e-01 1.6501 0.0990000 .
## factor(Munic)Kladanj 1.3313e-01 2.0684e-01 0.6437 0.5198350
## factor(Munic)Kljuc -1.0062e-02 2.0961e-01 -0.0480 0.9617135
## factor(Munic)Knezevo -2.8284e-02 2.2183e-01 -0.1275 0.8985502
## factor(Munic)Konjic 2.3370e-01 1.4497e-01 1.6121 0.1070092
## factor(Munic)Kotor Varos 1.4073e-01 1.5114e-01 0.9311 0.3518370
## factor(Munic)Kresevo 3.6929e-01 1.4790e-01 2.4968 0.0125671 *
## factor(Munic)Kupres 2.0367e-01 1.8510e-01 1.1003 0.2712495
## factor(Munic)Laktasi 2.3535e-02 1.5804e-01 0.1489 0.8816258
## factor(Munic)Livno 4.0603e-01 1.3614e-01 2.9825 0.0028749 **
## factor(Munic)Lopare -1.2368e-02 1.6476e-01 -0.0751 0.9401627
## factor(Munic)Lukavac 1.1647e-01 1.6582e-01 0.7024 0.4824693
## factor(Munic)Ljubuski 4.1601e-01 1.6707e-01 2.4901 0.0128065 *
## factor(Munic)Maglaj 6.6156e-02 1.4589e-01 0.4535 0.6502343
## factor(Munic)Modrica -6.3531e-02 1.5192e-01 -0.4182 0.6758361
## factor(Munic)Mrkonjic 2.6574e-01 1.8508e-01 1.4358 0.1511414
## factor(Munic)N.G.Sarajevo 3.4542e-01 1.3237e-01 2.6096 0.0090962 **
## factor(Munic)N.Gorazde -4.0826e-01 1.9131e-01 -2.1340 0.0328982 *
## factor(Munic)N.Sarajevo 4.2985e-01 1.4668e-01 2.9305 0.0034017 **
## factor(Munic)N.Travnik -1.6731e-01 1.4342e-01 -1.1666 0.2434347
## factor(Munic)Nevesinje -3.4937e-02 1.6148e-01 -0.2164 0.8287150
## factor(Munic)Novi Grad -5.0454e-02 1.4905e-01 -0.3385 0.7349981
## factor(Munic)Orasje 3.4464e-01 1.4912e-01 2.3111 0.0208741 *
## factor(Munic)Pale 7.3090e-02 1.5656e-01 0.4669 0.6406242
## factor(Munic)Posusje 4.0600e-01 1.4016e-01 2.8966 0.0037905 **
## factor(Munic)Prijedor 1.4395e-01 1.3412e-01 1.0733 0.2831828
## factor(Munic)Prnjavor 1.9643e-02 1.4587e-01 0.1347 0.8928903
## factor(Munic)Prozor 2.2337e-01 1.7879e-01 1.2494 0.2115958
## factor(Munic)Ribnik -1.9569e-02 1.6664e-01 -0.1174 0.9065182
## factor(Munic)Rogatica 1.8306e-01 1.5447e-01 1.1851 0.2360596
## factor(Munic)Rudo -1.6415e-01 1.9667e-01 -0.8347 0.4039468
## factor(Munic)S.Brijeg 6.0981e-01 1.3258e-01 4.5997 4.351e-06 ***
## factor(Munic)S.G.Sarajevo 3.6362e-01 1.3717e-01 2.6508 0.0080588 **
## factor(Munic)Samac 2.1032e-02 1.3812e-01 0.1523 0.8789827
## factor(Munic)Sanski Most -1.2545e-02 1.4582e-01 -0.0860 0.9314474
## factor(Munic)Sokolac -1.6430e-01 2.8045e-01 -0.5858 0.5580128
## factor(Munic)Srbac 5.7556e-02 1.6089e-01 0.3577 0.7205525
## factor(Munic)Srebrenica 3.2776e-01 1.6169e-01 2.0271 0.0427153 *
## factor(Munic)Srebrenik 1.6072e-01 1.4534e-01 1.1058 0.2688599
## factor(Munic)Stolac 3.1320e-01 2.0940e-01 1.4957 0.1348138
## factor(Munic)Tesanj 1.2990e-03 1.4120e-01 0.0092 0.9926600
## factor(Munic)Teslic -3.7686e-02 1.4743e-01 -0.2556 0.7982607
## factor(Munic)Tomislavgrad 1.6673e-01 2.0388e-01 0.8178 0.4135248
## factor(Munic)Travnik 3.3281e-01 1.3184e-01 2.5243 0.0116282 *
## factor(Munic)Trebinje 3.3938e-02 1.4073e-01 0.2412 0.8094390
## factor(Munic)Tuzla 1.6726e-01 1.3852e-01 1.2075 0.2272912
## factor(Munic)Ugljevik 1.7342e-01 1.6964e-01 1.0223 0.3067108
## factor(Munic)V.Kladusa -2.4917e-01 1.7937e-01 -1.3892 0.1648487
## factor(Munic)Visegrad -1.4529e-01 1.4424e-01 -1.0073 0.3138406
## factor(Munic)Visoko 1.2860e-01 1.4410e-01 0.8924 0.3722260
## factor(Munic)Vitez -6.8147e-02 1.4374e-01 -0.4741 0.6354508
## factor(Munic)Vlasenica 1.1522e-01 1.9210e-01 0.5998 0.5486803
## factor(Munic)Vogosca 1.4115e-01 1.7281e-01 0.8168 0.4140783
## factor(Munic)Zavidovici -4.1541e-02 1.4035e-01 -0.2960 0.7672573
## factor(Munic)Zenica 1.0126e-01 1.3608e-01 0.7441 0.4568428
## factor(Munic)Zivinice -5.4117e-02 1.5995e-01 -0.3383 0.7351320
## factor(Munic)Zvornik -3.2650e-01 1.5030e-01 -2.1723 0.0298899 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1##sada izvlacimo reziduale iz naseg modela i dodamo u nas df
##moramo prvo da napravimo df bez na. u WI.df
table(is.na(WI.dfa)) #imamo NAova ali u modelu nemam da mi je model dropped becaseu of NA##
## FALSE TRUE
## 69324 7363#WI.df <- WI.df %>% drop_na(varijabla.na)
#dim(dist.s.k2)#12239#dodaj sada ovome residual
WI.dfa$resi <- WI.3a$residuals
var.func.ols <- lm(log(resi^2) ~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic) , data = WI.dfa)
WI.dfa$varfunc <- exp(var.func.ols$fitted.values)#sada ponderisani model
WI.3a.gls <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor (Sex_) + Educ.1 + factor(Full.time) + factor (Munic),weights = 1/sqrt(varfunc), data = WI.dfa) #short diagnostic on weighted model
par(mfrow=c(2,2))
plot(WI.3a.gls) #plots after weights full model
texreg::screenreg(list(WI.3a, WI.3a.gls)) #uporedni prikaz daje da je non weighed model bolji model##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.88 *** 4.93 ***
## (0.14) (0.16)
## Age 0.04 *** 0.04 ***
## (0.00) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.15 *** -0.15 ***
## (0.02) (0.02)
## Educ.1elementary 0.17 * 0.17 *
## (0.07) (0.08)
## Educ.1high schl 0.48 *** 0.47 ***
## (0.07) (0.07)
## Educ.1faculty 0.93 *** 0.92 ***
## (0.07) (0.08)
## factor(Full.time)part time -0.74 *** -0.74 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac -0.18 -0.18
## (0.19) (0.26)
## factor(Munic)Banovici 0.30 * 0.32 *
## (0.14) (0.14)
## factor(Munic)Banja Luka 0.12 0.13
## (0.10) (0.13)
## factor(Munic)Bihac -0.09 -0.07
## (0.11) (0.14)
## factor(Munic)Bijeljina -0.11 -0.10
## (0.10) (0.13)
## factor(Munic)Bileca 0.05 0.07
## (0.18) (0.19)
## factor(Munic)Bratunac 0.35 * 0.37 *
## (0.18) (0.18)
## factor(Munic)Brcko 0.12 0.12
## (0.10) (0.13)
## factor(Munic)Breza 0.23 0.25
## (0.16) (0.21)
## factor(Munic)Brod -0.26 -0.24
## (0.14) (0.18)
## factor(Munic)Bugojno 0.04 0.05
## (0.11) (0.14)
## factor(Munic)Busovaca 0.06 0.09
## (0.14) (0.17)
## factor(Munic)Buzim -0.67 *** -0.66 *
## (0.18) (0.27)
## factor(Munic)C.Sarajevo 0.34 ** 0.36 **
## (0.12) (0.14)
## factor(Munic)Cajnice -0.18 -0.14
## (0.17) (0.19)
## factor(Munic)Capljina 0.48 *** 0.49 **
## (0.14) (0.15)
## factor(Munic)Cazin -0.13 -0.12
## (0.11) (0.15)
## factor(Munic)Celinac -0.12 -0.11
## (0.19) (0.19)
## factor(Munic)Citluk 0.29 * 0.32
## (0.14) (0.18)
## factor(Munic)D.Vakuf -0.11 -0.08
## (0.13) (0.15)
## factor(Munic)Derventa -0.47 *** -0.46 **
## (0.13) (0.16)
## factor(Munic)Doboj 0.15 0.17
## (0.11) (0.13)
## factor(Munic)Doboj-Jug -0.11 -0.09
## (0.19) (0.18)
## factor(Munic)Drvar 0.03 0.04
## (0.15) (0.16)
## factor(Munic)Foca - RS -0.03 -0.02
## (0.14) (0.16)
## factor(Munic)Fojnica 0.25 0.26
## (0.17) (0.19)
## factor(Munic)G.Vakuf -0.10 -0.09
## (0.13) (0.17)
## factor(Munic)Gacko 0.25 0.26
## (0.14) (0.15)
## factor(Munic)Glamoc 0.24 0.23
## (0.18) (0.20)
## factor(Munic)Gorazde 0.24 0.25
## (0.13) (0.14)
## factor(Munic)Gracanica -0.13 -0.12
## (0.13) (0.15)
## factor(Munic)Grad Mostar 0.33 ** 0.35 **
## (0.10) (0.13)
## factor(Munic)Gradacac 0.07 0.06
## (0.12) (0.15)
## factor(Munic)Gradiska -0.05 -0.04
## (0.15) (0.16)
## factor(Munic)Grude 0.40 ** 0.42 **
## (0.14) (0.14)
## factor(Munic)I.Ilidza -0.01 -0.00
## (0.16) (0.17)
## factor(Munic)Ilidza 0.51 *** 0.53 ***
## (0.12) (0.14)
## factor(Munic)Ilijas 0.18 0.20
## (0.16) (0.19)
## factor(Munic)Jajce 0.28 0.30
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.14 -0.13
## (0.17) (0.18)
## factor(Munic)Kakanj 0.08 0.10
## (0.13) (0.17)
## factor(Munic)Kalesija -0.13 -0.09
## (0.14) (0.19)
## factor(Munic)Kiseljak 0.25 0.26
## (0.13) (0.14)
## factor(Munic)Kladanj 0.13 0.15
## (0.18) (0.17)
## factor(Munic)Kljuc -0.01 0.03
## (0.16) (0.20)
## factor(Munic)Knezevo -0.03 -0.00
## (0.18) (0.20)
## factor(Munic)Konjic 0.23 * 0.25
## (0.12) (0.14)
## factor(Munic)Kotor Varos 0.14 0.15
## (0.18) (0.16)
## factor(Munic)Kresevo 0.37 * 0.38 *
## (0.15) (0.15)
## factor(Munic)Kupres 0.20 0.24
## (0.16) (0.20)
## factor(Munic)Laktasi 0.02 0.04
## (0.12) (0.15)
## factor(Munic)Livno 0.41 ** 0.42 **
## (0.13) (0.14)
## factor(Munic)Lopare -0.01 -0.03
## (0.13) (0.16)
## factor(Munic)Lukavac 0.12 0.15
## (0.13) (0.15)
## factor(Munic)Ljubuski 0.42 ** 0.42 **
## (0.13) (0.15)
## factor(Munic)Maglaj 0.07 0.09
## (0.14) (0.15)
## factor(Munic)Modrica -0.06 -0.06
## (0.12) (0.14)
## factor(Munic)Mrkonjic 0.27 0.26
## (0.20) (0.19)
## factor(Munic)N.G.Sarajevo 0.35 *** 0.37 **
## (0.10) (0.13)
## factor(Munic)N.Gorazde -0.41 * -0.39 *
## (0.19) (0.19)
## factor(Munic)N.Sarajevo 0.43 *** 0.43 **
## (0.12) (0.14)
## factor(Munic)N.Travnik -0.17 -0.16
## (0.11) (0.14)
## factor(Munic)Nevesinje -0.03 -0.03
## (0.18) (0.20)
## factor(Munic)Novi Grad -0.05 -0.03
## (0.12) (0.14)
## factor(Munic)Orasje 0.34 * 0.35 *
## (0.14) (0.15)
## factor(Munic)Pale 0.07 0.09
## (0.15) (0.17)
## factor(Munic)Posusje 0.41 ** 0.43 **
## (0.16) (0.15)
## factor(Munic)Prijedor 0.14 0.17
## (0.11) (0.13)
## factor(Munic)Prnjavor 0.02 0.04
## (0.12) (0.14)
## factor(Munic)Prozor 0.22 0.24
## (0.18) (0.20)
## factor(Munic)Ribnik -0.02 -0.02
## (0.16) (0.18)
## factor(Munic)Rogatica 0.18 0.20
## (0.15) (0.16)
## factor(Munic)Rudo -0.16 -0.15
## (0.16) (0.18)
## factor(Munic)S.Brijeg 0.61 *** 0.63 ***
## (0.12) (0.13)
## factor(Munic)S.G.Sarajevo 0.36 ** 0.38 **
## (0.12) (0.14)
## factor(Munic)Samac 0.02 0.04
## (0.11) (0.14)
## factor(Munic)Sanski Most -0.01 0.00
## (0.11) (0.14)
## factor(Munic)Sokolac -0.16 -0.14
## (0.18) (0.23)
## factor(Munic)Srbac 0.06 0.07
## (0.16) (0.16)
## factor(Munic)Srebrenica 0.33 0.34
## (0.19) (0.19)
## factor(Munic)Srebrenik 0.16 0.17
## (0.19) (0.17)
## factor(Munic)Stolac 0.31 0.34
## (0.16) (0.20)
## factor(Munic)Tesanj 0.00 0.01
## (0.12) (0.14)
## factor(Munic)Teslic -0.04 -0.02
## (0.13) (0.14)
## factor(Munic)Tomislavgrad 0.17 0.18
## (0.18) (0.19)
## factor(Munic)Travnik 0.33 ** 0.34 **
## (0.11) (0.13)
## factor(Munic)Trebinje 0.03 0.05
## (0.13) (0.15)
## factor(Munic)Tuzla 0.17 0.17
## (0.11) (0.13)
## factor(Munic)Ugljevik 0.17 0.20
## (0.14) (0.17)
## factor(Munic)V.Kladusa -0.25 * -0.26
## (0.12) (0.16)
## factor(Munic)Visegrad -0.15 -0.13
## (0.17) (0.17)
## factor(Munic)Visoko 0.13 0.14
## (0.12) (0.14)
## factor(Munic)Vitez -0.07 -0.04
## (0.11) (0.14)
## factor(Munic)Vlasenica 0.12 0.13
## (0.16) (0.18)
## factor(Munic)Vogosca 0.14 0.14
## (0.14) (0.16)
## factor(Munic)Zavidovici -0.04 -0.03
## (0.12) (0.14)
## factor(Munic)Zenica 0.10 0.12
## (0.10) (0.13)
## factor(Munic)Zivinice -0.05 -0.03
## (0.12) (0.15)
## factor(Munic)Zvornik -0.33 ** -0.31 *
## (0.12) (0.15)
## ----------------------------------------------------
## R^2 0.40 0.39
## Adj. R^2 0.39 0.38
## Num. obs. 4511 4511
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05Zakljucak gornjih testova je da mi je bolji nonweighed model
texreg::screenreg(list(WI.3, WI.3a)) #uporedni prikaz nonweighed modela pokazuje da je not all included bolji prema R2##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.64 *** 4.88 ***
## (0.15) (0.14)
## Age 0.05 *** 0.04 ***
## (0.01) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.17 *** -0.15 ***
## (0.02) (0.02)
## Educ.1elementary 0.25 *** 0.17 *
## (0.07) (0.07)
## Educ.1high schl 0.52 *** 0.48 ***
## (0.07) (0.07)
## Educ.1faculty 0.96 *** 0.93 ***
## (0.07) (0.07)
## factor(Full.time)part time -0.82 *** -0.74 ***
## (0.03) (0.03)
## factor(Munic)B.Petrovac 0.02 -0.18
## (0.20) (0.19)
## factor(Munic)Banovici 0.28 0.30 *
## (0.15) (0.14)
## factor(Munic)Banja Luka 0.14 0.12
## (0.11) (0.10)
## factor(Munic)Bihac -0.06 -0.09
## (0.12) (0.11)
## factor(Munic)Bijeljina -0.10 -0.11
## (0.11) (0.10)
## factor(Munic)Bileca 0.08 0.05
## (0.19) (0.18)
## factor(Munic)Bratunac 0.34 0.35 *
## (0.19) (0.18)
## factor(Munic)Brcko 0.17 0.12
## (0.11) (0.10)
## factor(Munic)Breza 0.25 0.23
## (0.18) (0.16)
## factor(Munic)Brod -0.47 ** -0.26
## (0.14) (0.14)
## factor(Munic)Bugojno 0.03 0.04
## (0.12) (0.11)
## factor(Munic)Busovaca 0.12 0.06
## (0.14) (0.14)
## factor(Munic)Buzim -0.65 *** -0.67 ***
## (0.19) (0.18)
## factor(Munic)C.Sarajevo 0.35 ** 0.34 **
## (0.12) (0.12)
## factor(Munic)Cajnice -0.28 -0.18
## (0.18) (0.17)
## factor(Munic)Capljina 0.47 ** 0.48 ***
## (0.15) (0.14)
## factor(Munic)Cazin -0.17 -0.13
## (0.12) (0.11)
## factor(Munic)Celinac -0.08 -0.12
## (0.20) (0.19)
## factor(Munic)Citluk 0.22 0.29 *
## (0.15) (0.14)
## factor(Munic)D.Vakuf -0.09 -0.11
## (0.13) (0.13)
## factor(Munic)Derventa -0.49 *** -0.47 ***
## (0.14) (0.13)
## factor(Munic)Doboj 0.18 0.15
## (0.12) (0.11)
## factor(Munic)Doboj-Jug -0.12 -0.11
## (0.20) (0.19)
## factor(Munic)Drvar 0.08 0.03
## (0.17) (0.15)
## factor(Munic)Foca - RS 0.01 -0.03
## (0.15) (0.14)
## factor(Munic)Fojnica 0.30 0.25
## (0.19) (0.17)
## factor(Munic)G.Vakuf -0.03 -0.10
## (0.14) (0.13)
## factor(Munic)Gacko 0.26 0.25
## (0.15) (0.14)
## factor(Munic)Glamoc 0.26 0.24
## (0.19) (0.18)
## factor(Munic)Gorazde 0.24 0.24
## (0.14) (0.13)
## factor(Munic)Gracanica -0.03 -0.13
## (0.13) (0.13)
## factor(Munic)Grad Mostar 0.38 *** 0.33 **
## (0.11) (0.10)
## factor(Munic)Gradacac 0.03 0.07
## (0.13) (0.12)
## factor(Munic)Gradiska -0.03 -0.05
## (0.16) (0.15)
## factor(Munic)Grude 0.44 ** 0.40 **
## (0.15) (0.14)
## factor(Munic)I.Ilidza 0.03 -0.01
## (0.17) (0.16)
## factor(Munic)Ilidza 0.55 *** 0.51 ***
## (0.13) (0.12)
## factor(Munic)Ilijas 0.11 0.18
## (0.17) (0.16)
## factor(Munic)Jajce 0.40 * 0.28
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.13 -0.14
## (0.18) (0.17)
## factor(Munic)Kakanj 0.11 0.08
## (0.14) (0.13)
## factor(Munic)Kalesija -0.16 -0.13
## (0.14) (0.14)
## factor(Munic)Kiseljak 0.29 * 0.25
## (0.14) (0.13)
## factor(Munic)Kladanj 0.09 0.13
## (0.18) (0.18)
## factor(Munic)Kljuc 0.02 -0.01
## (0.17) (0.16)
## factor(Munic)Knezevo -0.02 -0.03
## (0.20) (0.18)
## factor(Munic)Konjic 0.28 * 0.23 *
## (0.12) (0.12)
## factor(Munic)Kotor Varos 0.15 0.14
## (0.19) (0.18)
## factor(Munic)Kresevo 0.41 * 0.37 *
## (0.16) (0.15)
## factor(Munic)Kupres 0.22 0.20
## (0.18) (0.16)
## factor(Munic)Laktasi 0.03 0.02
## (0.13) (0.12)
## factor(Munic)Livno 0.47 *** 0.41 **
## (0.14) (0.13)
## factor(Munic)Lopare 0.10 -0.01
## (0.13) (0.13)
## factor(Munic)Lukavac 0.21 0.12
## (0.14) (0.13)
## factor(Munic)Ljubuski 0.49 *** 0.42 **
## (0.14) (0.13)
## factor(Munic)Maglaj 0.10 0.07
## (0.13) (0.14)
## factor(Munic)Modrica -0.02 -0.06
## (0.13) (0.12)
## factor(Munic)Mrkonjic 0.30 0.27
## (0.21) (0.20)
## factor(Munic)N.G.Sarajevo 0.36 *** 0.35 ***
## (0.11) (0.10)
## factor(Munic)N.Gorazde -0.35 -0.41 *
## (0.18) (0.19)
## factor(Munic)N.Sarajevo 0.45 *** 0.43 ***
## (0.13) (0.12)
## factor(Munic)N.Travnik -0.13 -0.17
## (0.12) (0.11)
## factor(Munic)Nevesinje -0.03 -0.03
## (0.20) (0.18)
## factor(Munic)Novi Grad -0.04 -0.05
## (0.13) (0.12)
## factor(Munic)Orasje 0.49 *** 0.34 *
## (0.15) (0.14)
## factor(Munic)Pale 0.08 0.07
## (0.16) (0.15)
## factor(Munic)Posusje 0.50 ** 0.41 **
## (0.16) (0.16)
## factor(Munic)Prijedor 0.15 0.14
## (0.12) (0.11)
## factor(Munic)Prnjavor 0.03 0.02
## (0.13) (0.12)
## factor(Munic)Prozor 0.28 0.22
## (0.18) (0.18)
## factor(Munic)Ribnik 0.02 -0.02
## (0.17) (0.16)
## factor(Munic)Rogatica 0.07 0.18
## (0.16) (0.15)
## factor(Munic)Rudo -0.12 -0.16
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.64 *** 0.61 ***
## (0.13) (0.12)
## factor(Munic)S.G.Sarajevo 0.40 ** 0.36 **
## (0.13) (0.12)
## factor(Munic)Samac 0.04 0.02
## (0.12) (0.11)
## factor(Munic)Sanski Most 0.15 -0.01
## (0.12) (0.11)
## factor(Munic)Sokolac -0.15 -0.16
## (0.20) (0.18)
## factor(Munic)Srbac 0.06 0.06
## (0.17) (0.16)
## factor(Munic)Srebrenica 0.26 0.33
## (0.21) (0.19)
## factor(Munic)Srebrenik 0.15 0.16
## (0.20) (0.19)
## factor(Munic)Stolac 0.38 * 0.31
## (0.18) (0.16)
## factor(Munic)Tesanj 0.01 0.00
## (0.12) (0.12)
## factor(Munic)Teslic -0.01 -0.04
## (0.13) (0.13)
## factor(Munic)Tomislavgrad 0.49 ** 0.17
## (0.17) (0.18)
## factor(Munic)Travnik 0.34 ** 0.33 **
## (0.11) (0.11)
## factor(Munic)Trebinje 0.04 0.03
## (0.14) (0.13)
## factor(Munic)Tuzla 0.07 0.17
## (0.12) (0.11)
## factor(Munic)Ugljevik 0.24 0.17
## (0.16) (0.14)
## factor(Munic)V.Kladusa -0.05 -0.25 *
## (0.13) (0.12)
## factor(Munic)Visegrad -0.09 -0.15
## (0.18) (0.17)
## factor(Munic)Visoko 0.15 0.13
## (0.13) (0.12)
## factor(Munic)Vitez -0.05 -0.07
## (0.12) (0.11)
## factor(Munic)Vlasenica 0.12 0.12
## (0.17) (0.16)
## factor(Munic)Vogosca 0.14 0.14
## (0.15) (0.14)
## factor(Munic)Zavidovici 0.05 -0.04
## (0.12) (0.12)
## factor(Munic)Zenica 0.13 0.10
## (0.11) (0.10)
## factor(Munic)Zepce 0.17
## (0.20)
## factor(Munic)Zivinice -0.11 -0.05
## (0.12) (0.12)
## factor(Munic)Zvornik -0.34 ** -0.33 **
## (0.12) (0.12)
## ----------------------------------------------------
## R^2 0.39 0.40
## Adj. R^2 0.37 0.39
## Num. obs. 4989 4511
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05FAZA 8: IZRADI MAPE
MAPING MEAN WAGES
open libraries
Import map
library(readr)
BIH_adm3 <- read_csv("BIH_adm/BIH_adm3.csv")## Rows: 141 Columns: 14
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (8): ISO, NAME_0, NAME_1, NAME_2, NAME_3, TYPE_3, ENGTYPE_3, VARNAME_3
## dbl (5): OBJECTID, ID_0, ID_1, ID_2, ID_3
## lgl (1): NL_NAME_3
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.amraGIS <- st_read("BIH_adm/BIH_adm3.shp")## Reading layer `BIH_adm3' from data source
## `C:\Users\Amra\Documents\HBS database inspecting\BIH_adm\BIH_adm3.shp'
## using driver `ESRI Shapefile'
## Simple feature collection with 141 features and 13 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: 15.72739 ymin: 42.56531 xmax: 19.61471 ymax: 45.27468
## Geodetic CRS: WGS 84####change interpunction Nema potrebe za ovim jer cu formirati varijablu opcina koju sam prilagodial hbs bazi
FAZA 9: Extracting the coefficients from WINNING model
model.coef3 <- summary(WI.3)$coefficients
model.coef3 # vidi koliko redova su koef.za druge varijable (8redova) i B.Krupa je referentna opstina## Estimate Std. Error t value
## (Intercept) 4.6401022881 1.457817e-01 31.82911348
## Age 0.0506473540 5.078024e-03 9.97383074
## as.numeric(Age^2) -0.0004998029 5.986142e-05 -8.34933278
## factor(Sex_)2 -0.1713485271 1.825355e-02 -9.38713338
## Educ.1elementary 0.2498070357 6.997810e-02 3.56978873
## Educ.1high schl 0.5198347328 6.812890e-02 7.63016487
## Educ.1faculty 0.9550560920 7.057385e-02 13.53271953
## factor(Full.time)part time -0.8223641944 2.924462e-02 -28.12018330
## factor(Munic)B.Petrovac 0.0216666401 1.984009e-01 0.10920638
## factor(Munic)Banovici 0.2764602376 1.538141e-01 1.79736656
## factor(Munic)Banja Luka 0.1379867660 1.085095e-01 1.27165587
## factor(Munic)Bihac -0.0574447147 1.180497e-01 -0.48661477
## factor(Munic)Bijeljina -0.1041067780 1.075079e-01 -0.96836401
## factor(Munic)Bileca 0.0776133151 1.927342e-01 0.40269608
## factor(Munic)Bratunac 0.3359160125 1.924448e-01 1.74551849
## factor(Munic)Brcko 0.1693736297 1.061784e-01 1.59517995
## factor(Munic)Breza 0.2486434999 1.755442e-01 1.41641571
## factor(Munic)Brod -0.4670794441 1.439276e-01 -3.24523811
## factor(Munic)Bugojno 0.0300941343 1.187524e-01 0.25341918
## factor(Munic)Busovaca 0.1201493306 1.441205e-01 0.83367301
## factor(Munic)Buzim -0.6495764329 1.924675e-01 -3.37499205
## factor(Munic)C.Sarajevo 0.3470102927 1.248020e-01 2.78048681
## factor(Munic)Cajnice -0.2764189134 1.793166e-01 -1.54151301
## factor(Munic)Capljina 0.4670238319 1.501511e-01 3.11035861
## factor(Munic)Cazin -0.1706905167 1.226122e-01 -1.39211699
## factor(Munic)Celinac -0.0756316578 2.049081e-01 -0.36910042
## factor(Munic)Citluk 0.2159471638 1.492085e-01 1.44728495
## factor(Munic)D.Vakuf -0.0932680589 1.307115e-01 -0.71354126
## factor(Munic)Derventa -0.4943815416 1.358559e-01 -3.63901418
## factor(Munic)Doboj 0.1799930261 1.211219e-01 1.48604846
## factor(Munic)Doboj-Jug -0.1242510751 2.049781e-01 -0.60616762
## factor(Munic)Drvar 0.0793058304 1.666042e-01 0.47601345
## factor(Munic)Foca - RS 0.0133779520 1.466480e-01 0.09122493
## factor(Munic)Fojnica 0.3022035362 1.875208e-01 1.61157357
## factor(Munic)G.Vakuf -0.0311248780 1.363960e-01 -0.22819493
## factor(Munic)Gacko 0.2615809203 1.506053e-01 1.73686367
## factor(Munic)Glamoc 0.2618659048 1.929686e-01 1.35703891
## factor(Munic)Gorazde 0.2427770230 1.375679e-01 1.76478008
## factor(Munic)Gracanica -0.0348403975 1.321628e-01 -0.26361731
## factor(Munic)Grad Mostar 0.3839624134 1.098646e-01 3.49486917
## factor(Munic)Gradacac 0.0263596262 1.306076e-01 0.20182306
## factor(Munic)Gradiska -0.0296252118 1.637588e-01 -0.18090765
## factor(Munic)Grude 0.4358384521 1.453525e-01 2.99849384
## factor(Munic)I.Ilidza 0.0279018472 1.721978e-01 0.16203367
## factor(Munic)Ilidza 0.5514202436 1.271330e-01 4.33734781
## factor(Munic)Ilijas 0.1066478054 1.690436e-01 0.63088923
## factor(Munic)Jajce 0.3955382167 1.636755e-01 2.41660001
## factor(Munic)K.Dubica -0.1280184578 1.830173e-01 -0.69948845
## factor(Munic)Kakanj 0.1113391661 1.374166e-01 0.81023091
## factor(Munic)Kalesija -0.1571263724 1.394533e-01 -1.12673129
## factor(Munic)Kiseljak 0.2945897609 1.393217e-01 2.11445694
## factor(Munic)Kladanj 0.0934150239 1.827234e-01 0.51123740
## factor(Munic)Kljuc 0.0171706428 1.720855e-01 0.09977973
## factor(Munic)Knezevo -0.0207616346 1.983310e-01 -0.10468173
## factor(Munic)Konjic 0.2826494967 1.234275e-01 2.29000484
## factor(Munic)Kotor Varos 0.1478497346 1.924509e-01 0.76824656
## factor(Munic)Kresevo 0.4052858258 1.594480e-01 2.54180490
## factor(Munic)Kupres 0.2235576811 1.786983e-01 1.25103444
## factor(Munic)Laktasi 0.0345714385 1.339113e-01 0.25816673
## factor(Munic)Livno 0.4699465160 1.408946e-01 3.33544829
## factor(Munic)Lopare 0.0989511554 1.338228e-01 0.73941947
## factor(Munic)Lukavac 0.2136660193 1.383669e-01 1.54419877
## factor(Munic)Ljubuski 0.4897219720 1.385730e-01 3.53403645
## factor(Munic)Maglaj 0.1009655480 1.339537e-01 0.75373456
## factor(Munic)Modrica -0.0221005077 1.265851e-01 -0.17459015
## factor(Munic)Mrkonjic 0.2969998261 2.051504e-01 1.44771719
## factor(Munic)N.G.Sarajevo 0.3622720654 1.089090e-01 3.32637413
## factor(Munic)N.Gorazde -0.3492760524 1.790509e-01 -1.95070788
## factor(Munic)N.Sarajevo 0.4514187064 1.254809e-01 3.59750882
## factor(Munic)N.Travnik -0.1322390219 1.206976e-01 -1.09562268
## factor(Munic)Nevesinje -0.0267562772 1.984149e-01 -0.13485014
## factor(Munic)Novi Grad -0.0407039517 1.264528e-01 -0.32189058
## factor(Munic)Orasje 0.4890884756 1.453592e-01 3.36468959
## factor(Munic)Pale 0.0827566308 1.574357e-01 0.52565368
## factor(Munic)Posusje 0.4957950171 1.638799e-01 3.02535655
## factor(Munic)Prijedor 0.1471532684 1.197020e-01 1.22932971
## factor(Munic)Prnjavor 0.0330439348 1.295654e-01 0.25503674
## factor(Munic)Prozor 0.2752006661 1.755680e-01 1.56748747
## factor(Munic)Ribnik 0.0166339535 1.721233e-01 0.09663975
## factor(Munic)Rogatica 0.0742405351 1.641099e-01 0.45238294
## factor(Munic)Rudo -0.1234959055 1.615403e-01 -0.76448975
## factor(Munic)S.Brijeg 0.6376507456 1.269584e-01 5.02251797
## factor(Munic)S.G.Sarajevo 0.3985323130 1.307736e-01 3.04749715
## factor(Munic)Samac 0.0433033517 1.198238e-01 0.36139205
## factor(Munic)Sanski Most 0.1509256553 1.189689e-01 1.26861487
## factor(Munic)Sokolac -0.1512411976 1.986794e-01 -0.76123245
## factor(Munic)Srbac 0.0592705132 1.689733e-01 0.35076860
## factor(Munic)Srebrenica 0.2608570142 2.050110e-01 1.27240504
## factor(Munic)Srebrenik 0.1490481500 2.047335e-01 0.72801067
## factor(Munic)Stolac 0.3843471363 1.754963e-01 2.19005839
## factor(Munic)Tesanj 0.0075293215 1.218212e-01 0.06180635
## factor(Munic)Teslic -0.0099190271 1.326132e-01 -0.07479666
## factor(Munic)Tomislavgrad 0.4932929420 1.721254e-01 2.86589208
## factor(Munic)Travnik 0.3400606668 1.126590e-01 3.01849456
## factor(Munic)Trebinje 0.0431626824 1.376271e-01 0.31362045
## factor(Munic)Tuzla 0.0749452916 1.169889e-01 0.64061876
## factor(Munic)Ugljevik 0.2386616896 1.554221e-01 1.53557112
## factor(Munic)V.Kladusa -0.0453415385 1.253357e-01 -0.36176083
## factor(Munic)Visegrad -0.0878993434 1.755259e-01 -0.50077693
## factor(Munic)Visoko 0.1467760549 1.264273e-01 1.16095212
## factor(Munic)Vitez -0.0493389706 1.206243e-01 -0.40902995
## factor(Munic)Vlasenica 0.1194823426 1.719337e-01 0.69493262
## factor(Munic)Vogosca 0.1408064682 1.537918e-01 0.91556541
## factor(Munic)Zavidovici 0.0491332477 1.229162e-01 0.39972975
## factor(Munic)Zenica 0.1282983922 1.105858e-01 1.16017029
## factor(Munic)Zepce 0.1712391781 1.982461e-01 0.86377052
## factor(Munic)Zivinice -0.1073983062 1.245536e-01 -0.86226568
## factor(Munic)Zvornik -0.3426426907 1.241541e-01 -2.75981805
## Pr(>|t|)
## (Intercept) 3.489888e-202
## Age 3.304703e-23
## as.numeric(Age^2) 8.846647e-17
## factor(Sex_)2 9.215247e-21
## Educ.1elementary 3.607069e-04
## Educ.1high schl 2.801654e-14
## Educ.1faculty 5.456566e-41
## factor(Full.time)part time 2.213895e-161
## factor(Munic)B.Petrovac 9.130433e-01
## factor(Munic)Banovici 7.233924e-02
## factor(Munic)Banja Luka 2.035560e-01
## factor(Munic)Bihac 6.265532e-01
## factor(Munic)Bijeljina 3.329106e-01
## factor(Munic)Bileca 6.871895e-01
## factor(Munic)Bratunac 8.095758e-02
## factor(Munic)Brcko 1.107367e-01
## factor(Munic)Breza 1.567176e-01
## factor(Munic)Brod 1.181440e-03
## factor(Munic)Bugojno 7.999550e-01
## factor(Munic)Busovaca 4.045061e-01
## factor(Munic)Buzim 7.439371e-04
## factor(Munic)C.Sarajevo 5.448551e-03
## factor(Munic)Cajnice 1.232568e-01
## factor(Munic)Capljina 1.879380e-03
## factor(Munic)Cazin 1.639504e-01
## factor(Munic)Celinac 7.120689e-01
## factor(Munic)Citluk 1.478814e-01
## factor(Munic)D.Vakuf 4.755450e-01
## factor(Munic)Derventa 2.765142e-04
## factor(Munic)Doboj 1.373309e-01
## factor(Munic)Doboj-Jug 5.444316e-01
## factor(Munic)Drvar 6.340861e-01
## factor(Munic)Foca - RS 9.273176e-01
## factor(Munic)Fojnica 1.071194e-01
## factor(Munic)G.Vakuf 8.195043e-01
## factor(Munic)Gacko 8.247432e-02
## factor(Munic)Glamoc 1.748316e-01
## factor(Munic)Gorazde 7.766326e-02
## factor(Munic)Gracanica 7.920859e-01
## factor(Munic)Grad Mostar 4.785092e-04
## factor(Munic)Gradacac 8.400635e-01
## factor(Munic)Gradiska 8.564476e-01
## factor(Munic)Grude 2.726857e-03
## factor(Munic)I.Ilidza 8.712860e-01
## factor(Munic)Ilidza 1.471210e-05
## factor(Munic)Ilijas 5.281425e-01
## factor(Munic)Jajce 1.570267e-02
## factor(Munic)K.Dubica 4.842802e-01
## factor(Munic)Kakanj 4.178470e-01
## factor(Munic)Kalesija 2.599115e-01
## factor(Munic)Kiseljak 3.452682e-02
## factor(Munic)Kladanj 6.092080e-01
## factor(Munic)Kljuc 9.205233e-01
## factor(Munic)Knezevo 9.166327e-01
## factor(Munic)Konjic 2.206350e-02
## factor(Munic)Kotor Varos 4.423779e-01
## factor(Munic)Kresevo 1.105883e-02
## factor(Munic)Kupres 2.109819e-01
## factor(Munic)Laktasi 7.962891e-01
## factor(Munic)Livno 8.579788e-04
## factor(Munic)Lopare 4.596879e-01
## factor(Munic)Lukavac 1.226050e-01
## factor(Munic)Ljubuski 4.130567e-04
## factor(Munic)Maglaj 4.510450e-01
## factor(Munic)Modrica 8.614089e-01
## factor(Munic)Mrkonjic 1.477604e-01
## factor(Munic)N.G.Sarajevo 8.863409e-04
## factor(Munic)N.Gorazde 5.114895e-02
## factor(Munic)N.Sarajevo 3.244621e-04
## factor(Munic)N.Travnik 2.732980e-01
## factor(Munic)Nevesinje 8.927359e-01
## factor(Munic)Novi Grad 7.475494e-01
## factor(Munic)Orasje 7.722088e-04
## factor(Munic)Pale 5.991527e-01
## factor(Munic)Posusje 2.496339e-03
## factor(Munic)Prijedor 2.190075e-01
## factor(Munic)Prnjavor 7.987055e-01
## factor(Munic)Prozor 1.170656e-01
## factor(Munic)Ribnik 9.230165e-01
## factor(Munic)Rogatica 6.510132e-01
## factor(Munic)Rudo 4.446124e-01
## factor(Munic)S.Brijeg 5.281599e-07
## factor(Munic)S.G.Sarajevo 2.319904e-03
## factor(Munic)Samac 7.178220e-01
## factor(Munic)Sanski Most 2.046390e-01
## factor(Munic)Sokolac 4.465550e-01
## factor(Munic)Srbac 7.257771e-01
## factor(Munic)Srebrenica 2.032899e-01
## factor(Munic)Srebrenik 4.666420e-01
## factor(Munic)Stolac 2.856716e-02
## factor(Munic)Tesanj 9.507196e-01
## factor(Munic)Teslic 9.403796e-01
## factor(Munic)Tomislavgrad 4.176143e-03
## factor(Munic)Travnik 2.553464e-03
## factor(Munic)Trebinje 7.538227e-01
## factor(Munic)Tuzla 5.218005e-01
## factor(Munic)Ugljevik 1.247084e-01
## factor(Munic)V.Kladusa 7.175464e-01
## factor(Munic)Visegrad 6.165507e-01
## factor(Munic)Visoko 2.457181e-01
## factor(Munic)Vitez 6.825356e-01
## factor(Munic)Vlasenica 4.871306e-01
## factor(Munic)Vogosca 3.599401e-01
## factor(Munic)Zavidovici 6.893731e-01
## factor(Munic)Zenica 2.460362e-01
## factor(Munic)Zepce 3.877564e-01
## factor(Munic)Zivinice 3.885837e-01
## factor(Munic)Zvornik 5.804936e-03model.coef3[,c("Estimate","Pr(>|t|)")]## Estimate Pr(>|t|)
## (Intercept) 4.6401022881 3.489888e-202
## Age 0.0506473540 3.304703e-23
## as.numeric(Age^2) -0.0004998029 8.846647e-17
## factor(Sex_)2 -0.1713485271 9.215247e-21
## Educ.1elementary 0.2498070357 3.607069e-04
## Educ.1high schl 0.5198347328 2.801654e-14
## Educ.1faculty 0.9550560920 5.456566e-41
## factor(Full.time)part time -0.8223641944 2.213895e-161
## factor(Munic)B.Petrovac 0.0216666401 9.130433e-01
## factor(Munic)Banovici 0.2764602376 7.233924e-02
## factor(Munic)Banja Luka 0.1379867660 2.035560e-01
## factor(Munic)Bihac -0.0574447147 6.265532e-01
## factor(Munic)Bijeljina -0.1041067780 3.329106e-01
## factor(Munic)Bileca 0.0776133151 6.871895e-01
## factor(Munic)Bratunac 0.3359160125 8.095758e-02
## factor(Munic)Brcko 0.1693736297 1.107367e-01
## factor(Munic)Breza 0.2486434999 1.567176e-01
## factor(Munic)Brod -0.4670794441 1.181440e-03
## factor(Munic)Bugojno 0.0300941343 7.999550e-01
## factor(Munic)Busovaca 0.1201493306 4.045061e-01
## factor(Munic)Buzim -0.6495764329 7.439371e-04
## factor(Munic)C.Sarajevo 0.3470102927 5.448551e-03
## factor(Munic)Cajnice -0.2764189134 1.232568e-01
## factor(Munic)Capljina 0.4670238319 1.879380e-03
## factor(Munic)Cazin -0.1706905167 1.639504e-01
## factor(Munic)Celinac -0.0756316578 7.120689e-01
## factor(Munic)Citluk 0.2159471638 1.478814e-01
## factor(Munic)D.Vakuf -0.0932680589 4.755450e-01
## factor(Munic)Derventa -0.4943815416 2.765142e-04
## factor(Munic)Doboj 0.1799930261 1.373309e-01
## factor(Munic)Doboj-Jug -0.1242510751 5.444316e-01
## factor(Munic)Drvar 0.0793058304 6.340861e-01
## factor(Munic)Foca - RS 0.0133779520 9.273176e-01
## factor(Munic)Fojnica 0.3022035362 1.071194e-01
## factor(Munic)G.Vakuf -0.0311248780 8.195043e-01
## factor(Munic)Gacko 0.2615809203 8.247432e-02
## factor(Munic)Glamoc 0.2618659048 1.748316e-01
## factor(Munic)Gorazde 0.2427770230 7.766326e-02
## factor(Munic)Gracanica -0.0348403975 7.920859e-01
## factor(Munic)Grad Mostar 0.3839624134 4.785092e-04
## factor(Munic)Gradacac 0.0263596262 8.400635e-01
## factor(Munic)Gradiska -0.0296252118 8.564476e-01
## factor(Munic)Grude 0.4358384521 2.726857e-03
## factor(Munic)I.Ilidza 0.0279018472 8.712860e-01
## factor(Munic)Ilidza 0.5514202436 1.471210e-05
## factor(Munic)Ilijas 0.1066478054 5.281425e-01
## factor(Munic)Jajce 0.3955382167 1.570267e-02
## factor(Munic)K.Dubica -0.1280184578 4.842802e-01
## factor(Munic)Kakanj 0.1113391661 4.178470e-01
## factor(Munic)Kalesija -0.1571263724 2.599115e-01
## factor(Munic)Kiseljak 0.2945897609 3.452682e-02
## factor(Munic)Kladanj 0.0934150239 6.092080e-01
## factor(Munic)Kljuc 0.0171706428 9.205233e-01
## factor(Munic)Knezevo -0.0207616346 9.166327e-01
## factor(Munic)Konjic 0.2826494967 2.206350e-02
## factor(Munic)Kotor Varos 0.1478497346 4.423779e-01
## factor(Munic)Kresevo 0.4052858258 1.105883e-02
## factor(Munic)Kupres 0.2235576811 2.109819e-01
## factor(Munic)Laktasi 0.0345714385 7.962891e-01
## factor(Munic)Livno 0.4699465160 8.579788e-04
## factor(Munic)Lopare 0.0989511554 4.596879e-01
## factor(Munic)Lukavac 0.2136660193 1.226050e-01
## factor(Munic)Ljubuski 0.4897219720 4.130567e-04
## factor(Munic)Maglaj 0.1009655480 4.510450e-01
## factor(Munic)Modrica -0.0221005077 8.614089e-01
## factor(Munic)Mrkonjic 0.2969998261 1.477604e-01
## factor(Munic)N.G.Sarajevo 0.3622720654 8.863409e-04
## factor(Munic)N.Gorazde -0.3492760524 5.114895e-02
## factor(Munic)N.Sarajevo 0.4514187064 3.244621e-04
## factor(Munic)N.Travnik -0.1322390219 2.732980e-01
## factor(Munic)Nevesinje -0.0267562772 8.927359e-01
## factor(Munic)Novi Grad -0.0407039517 7.475494e-01
## factor(Munic)Orasje 0.4890884756 7.722088e-04
## factor(Munic)Pale 0.0827566308 5.991527e-01
## factor(Munic)Posusje 0.4957950171 2.496339e-03
## factor(Munic)Prijedor 0.1471532684 2.190075e-01
## factor(Munic)Prnjavor 0.0330439348 7.987055e-01
## factor(Munic)Prozor 0.2752006661 1.170656e-01
## factor(Munic)Ribnik 0.0166339535 9.230165e-01
## factor(Munic)Rogatica 0.0742405351 6.510132e-01
## factor(Munic)Rudo -0.1234959055 4.446124e-01
## factor(Munic)S.Brijeg 0.6376507456 5.281599e-07
## factor(Munic)S.G.Sarajevo 0.3985323130 2.319904e-03
## factor(Munic)Samac 0.0433033517 7.178220e-01
## factor(Munic)Sanski Most 0.1509256553 2.046390e-01
## factor(Munic)Sokolac -0.1512411976 4.465550e-01
## factor(Munic)Srbac 0.0592705132 7.257771e-01
## factor(Munic)Srebrenica 0.2608570142 2.032899e-01
## factor(Munic)Srebrenik 0.1490481500 4.666420e-01
## factor(Munic)Stolac 0.3843471363 2.856716e-02
## factor(Munic)Tesanj 0.0075293215 9.507196e-01
## factor(Munic)Teslic -0.0099190271 9.403796e-01
## factor(Munic)Tomislavgrad 0.4932929420 4.176143e-03
## factor(Munic)Travnik 0.3400606668 2.553464e-03
## factor(Munic)Trebinje 0.0431626824 7.538227e-01
## factor(Munic)Tuzla 0.0749452916 5.218005e-01
## factor(Munic)Ugljevik 0.2386616896 1.247084e-01
## factor(Munic)V.Kladusa -0.0453415385 7.175464e-01
## factor(Munic)Visegrad -0.0878993434 6.165507e-01
## factor(Munic)Visoko 0.1467760549 2.457181e-01
## factor(Munic)Vitez -0.0493389706 6.825356e-01
## factor(Munic)Vlasenica 0.1194823426 4.871306e-01
## factor(Munic)Vogosca 0.1408064682 3.599401e-01
## factor(Munic)Zavidovici 0.0491332477 6.893731e-01
## factor(Munic)Zenica 0.1282983922 2.460362e-01
## factor(Munic)Zepce 0.1712391781 3.877564e-01
## factor(Munic)Zivinice -0.1073983062 3.885837e-01
## factor(Munic)Zvornik -0.3426426907 5.804936e-03model.coef3 <- model.coef3
model.coef3 <- as.data.frame.array(model.coef3[-c(1:8),]) # da bude dataframe a ne matrix i da mi brise prvih 8 redova koji su drugi koeficijenti
Munic <- rownames(model.coef3)
model.coef3$Munic <- Municdim(model.coef3) #da vidim koliko redova## [1] 100 5rownames(model.coef3) <- 1:100 #nedostaje B.Krupa koje je 0, B.Grahovo nije u modelu
head(model.coef3)Make a new variable with municipal names without
factor(Munic)
Munic1 <- sapply(strsplit(Munic, split=')', fixed=TRUE), function(x) (x[2]))
Munic1## [1] "B.Petrovac" "Banovici" "Banja Luka" "Bihac" "Bijeljina"
## [6] "Bileca" "Bratunac" "Brcko" "Breza" "Brod"
## [11] "Bugojno" "Busovaca" "Buzim" "C.Sarajevo" "Cajnice"
## [16] "Capljina" "Cazin" "Celinac" "Citluk" "D.Vakuf"
## [21] "Derventa" "Doboj" "Doboj-Jug" "Drvar" "Foca - RS"
## [26] "Fojnica" "G.Vakuf" "Gacko" "Glamoc" "Gorazde"
## [31] "Gracanica" "Grad Mostar" "Gradacac" "Gradiska" "Grude"
## [36] "I.Ilidza" "Ilidza" "Ilijas" "Jajce" "K.Dubica"
## [41] "Kakanj" "Kalesija" "Kiseljak" "Kladanj" "Kljuc"
## [46] "Knezevo" "Konjic" "Kotor Varos" "Kresevo" "Kupres"
## [51] "Laktasi" "Livno" "Lopare" "Lukavac" "Ljubuski"
## [56] "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [61] "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad" "Orasje"
## [66] "Pale" "Posusje" "Prijedor" "Prnjavor" "Prozor"
## [71] "Ribnik" "Rogatica" "Rudo" "S.Brijeg" "S.G.Sarajevo"
## [76] "Samac" "Sanski Most" "Sokolac" "Srbac" "Srebrenica"
## [81] "Srebrenik" "Stolac" "Tesanj" "Teslic" "Tomislavgrad"
## [86] "Travnik" "Trebinje" "Tuzla" "Ugljevik" "V.Kladusa"
## [91] "Visegrad" "Visoko" "Vitez" "Vlasenica" "Vogosca"
## [96] "Zavidovici" "Zenica" "Zepce" "Zivinice" "Zvornik"model.coef3$Munic1 <- Munic1sada za model 3a
###WI.3a model
model.coef3a <- summary(WI.3a)$coefficients
model.coef3a # vidi koliko redova su koef.za druge varijable (8redova) i B.Krupa je referentna opstina## Estimate Std. Error t value
## (Intercept) 4.8820174064 1.385390e-01 35.23929966
## Age 0.0410644316 4.938568e-03 8.31504816
## as.numeric(Age^2) -0.0003955788 5.833688e-05 -6.78093837
## factor(Sex_)2 -0.1462233294 1.734289e-02 -8.43131446
## Educ.1elementary 0.1654886912 6.755574e-02 2.44966130
## Educ.1high schl 0.4823290332 6.571441e-02 7.33977534
## Educ.1faculty 0.9292422135 6.791161e-02 13.68311171
## factor(Full.time)part time -0.7410491635 3.014004e-02 -24.58686674
## factor(Munic)B.Petrovac -0.1828358917 1.880676e-01 -0.97218162
## factor(Munic)Banovici 0.3016533953 1.435173e-01 2.10186063
## factor(Munic)Banja Luka 0.1150192556 1.017768e-01 1.13011324
## factor(Munic)Bihac -0.0851187048 1.109684e-01 -0.76705331
## factor(Munic)Bijeljina -0.1147259562 1.011230e-01 -1.13451837
## factor(Munic)Bileca 0.0490915703 1.770603e-01 0.27725901
## factor(Munic)Bratunac 0.3500611443 1.767523e-01 1.98051838
## factor(Munic)Brcko 0.1160503018 1.000743e-01 1.15964185
## factor(Munic)Breza 0.2314714318 1.615308e-01 1.43298605
## factor(Munic)Brod -0.2568216114 1.401847e-01 -1.83202342
## factor(Munic)Bugojno 0.0392603818 1.139786e-01 0.34445398
## factor(Munic)Busovaca 0.0602734344 1.353958e-01 0.44516461
## factor(Munic)Buzim -0.6658529584 1.767191e-01 -3.76786037
## factor(Munic)C.Sarajevo 0.3420448207 1.192847e-01 2.86746574
## factor(Munic)Cajnice -0.1784560884 1.685907e-01 -1.05851665
## factor(Munic)Capljina 0.4760086679 1.399878e-01 3.40035750
## factor(Munic)Cazin -0.1263838686 1.144643e-01 -1.10413341
## factor(Munic)Celinac -0.1167661273 1.880239e-01 -0.62101763
## factor(Munic)Citluk 0.2927611936 1.391035e-01 2.10462823
## factor(Munic)D.Vakuf -0.1137453229 1.258726e-01 -0.90365442
## factor(Munic)Derventa -0.4716639191 1.293800e-01 -3.64556949
## factor(Munic)Doboj 0.1505261578 1.133413e-01 1.32807822
## factor(Munic)Doboj-Jug -0.1086578800 1.949907e-01 -0.55724648
## factor(Munic)Drvar 0.0266899413 1.535047e-01 0.17387054
## factor(Munic)Foca - RS -0.0323988425 1.355439e-01 -0.23902837
## factor(Munic)Fojnica 0.2496832908 1.723464e-01 1.44872951
## factor(Munic)G.Vakuf -0.1004225275 1.326466e-01 -0.75706827
## factor(Munic)Gacko 0.2474449393 1.404322e-01 1.76202422
## factor(Munic)Glamoc 0.2370568654 1.773276e-01 1.33682969
## factor(Munic)Gorazde 0.2352043382 1.288652e-01 1.82519620
## factor(Munic)Gracanica -0.1287612023 1.260310e-01 -1.02166316
## factor(Munic)Grad Mostar 0.3323133995 1.032354e-01 3.21898710
## factor(Munic)Gradacac 0.0714432098 1.237006e-01 0.57754940
## factor(Munic)Gradiska -0.0495593918 1.509196e-01 -0.32838271
## factor(Munic)Grude 0.4015864622 1.354478e-01 2.96487917
## factor(Munic)I.Ilidza -0.0129577300 1.615006e-01 -0.08023330
## factor(Munic)Ilidza 0.5109311837 1.213849e-01 4.20918174
## factor(Munic)Ilijas 0.1765869018 1.646209e-01 1.07268834
## factor(Munic)Jajce 0.2767950564 1.555703e-01 1.77922800
## factor(Munic)K.Dubica -0.1379123331 1.722778e-01 -0.80052296
## factor(Munic)Kakanj 0.0780721742 1.279619e-01 0.61012063
## factor(Munic)Kalesija -0.1258889572 1.436310e-01 -0.87647505
## factor(Munic)Kiseljak 0.2476207118 1.314476e-01 1.88379772
## factor(Munic)Kladanj 0.1331337133 1.767690e-01 0.75315075
## factor(Munic)Kljuc -0.0100623402 1.646436e-01 -0.06111590
## factor(Munic)Knezevo -0.0282840147 1.820768e-01 -0.15534115
## factor(Munic)Konjic 0.2337023837 1.161409e-01 2.01223094
## factor(Munic)Kotor Varos 0.1407311704 1.767694e-01 0.79612880
## factor(Munic)Kresevo 0.3692902596 1.470536e-01 2.51126361
## factor(Munic)Kupres 0.2036694262 1.642973e-01 1.23963968
## factor(Munic)Laktasi 0.0235345614 1.241203e-01 0.18961095
## factor(Munic)Livno 0.4060325482 1.331447e-01 3.04955810
## factor(Munic)Lopare -0.0123681621 1.260554e-01 -0.09811685
## factor(Munic)Lukavac 0.1164707504 1.343077e-01 0.86719366
## factor(Munic)Ljubuski 0.4160130281 1.345058e-01 3.09290034
## factor(Munic)Maglaj 0.0661564022 1.377775e-01 0.48016838
## factor(Munic)Modrica -0.0635310175 1.194994e-01 -0.53164297
## factor(Munic)Mrkonjic 0.2657356976 1.951913e-01 1.36141191
## factor(Munic)N.G.Sarajevo 0.3454167452 1.022333e-01 3.37871201
## factor(Munic)N.Gorazde -0.4082614358 1.949913e-01 -2.09374232
## factor(Munic)N.Sarajevo 0.4298509631 1.193930e-01 3.60030410
## factor(Munic)N.Travnik -0.1673090938 1.125284e-01 -1.48681702
## factor(Munic)Nevesinje -0.0349373647 1.821560e-01 -0.19179918
## factor(Munic)Novi Grad -0.0504538219 1.192999e-01 -0.42291603
## factor(Munic)Orasje 0.3446396132 1.377899e-01 2.50119590
## factor(Munic)Pale 0.0730904827 1.452237e-01 0.50329590
## factor(Munic)Posusje 0.4059994225 1.557602e-01 2.60656645
## factor(Munic)Prijedor 0.1439496058 1.119961e-01 1.28530924
## factor(Munic)Prnjavor 0.0196426833 1.242357e-01 0.15810814
## factor(Munic)Prozor 0.2233714878 1.771515e-01 1.26090636
## factor(Munic)Ribnik -0.0195693403 1.614201e-01 -0.12123238
## factor(Munic)Rogatica 0.1830572232 1.535595e-01 1.19209305
## factor(Munic)Rudo -0.1641534327 1.614626e-01 -1.01666533
## factor(Munic)S.Brijeg 0.6098130173 1.190223e-01 5.12351911
## factor(Munic)S.G.Sarajevo 0.3636204138 1.217854e-01 2.98574672
## factor(Munic)Samac 0.0210317727 1.123612e-01 0.18718009
## factor(Munic)Sanski Most -0.0125448276 1.128992e-01 -0.11111529
## factor(Munic)Sokolac -0.1642980421 1.824111e-01 -0.90070221
## factor(Munic)Srbac 0.0575557836 1.583404e-01 0.36349408
## factor(Munic)Srebrenica 0.3277554536 1.949379e-01 1.68133236
## factor(Munic)Srebrenik 0.1607166511 1.878565e-01 0.85552860
## factor(Munic)Stolac 0.3131976234 1.647674e-01 1.90084684
## factor(Munic)Tesanj 0.0012990188 1.188165e-01 0.01093298
## factor(Munic)Teslic -0.0376860150 1.287540e-01 -0.29269772
## factor(Munic)Tomislavgrad 0.1667336034 1.820880e-01 0.91567581
## factor(Munic)Travnik 0.3328100303 1.056003e-01 3.15160040
## factor(Munic)Trebinje 0.0339378713 1.274372e-01 0.26631046
## factor(Munic)Tuzla 0.1672624447 1.118753e-01 1.49507904
## factor(Munic)Ugljevik 0.1734186954 1.434156e-01 1.20920414
## factor(Munic)V.Kladusa -0.2491723445 1.243046e-01 -2.00453001
## factor(Munic)Visegrad -0.1452941187 1.684744e-01 -0.86241053
## factor(Munic)Visoko 0.1285958545 1.181222e-01 1.08866806
## factor(Munic)Vitez -0.0681471761 1.131371e-01 -0.60234159
## factor(Munic)Vlasenica 0.1152210905 1.582518e-01 0.72808699
## factor(Munic)Vogosca 0.1411544974 1.435292e-01 0.98345500
## factor(Munic)Zavidovici -0.0415413631 1.197557e-01 -0.34688423
## factor(Munic)Zenica 0.1012596903 1.038040e-01 0.97548960
## factor(Munic)Zivinice -0.0541166033 1.208023e-01 -0.44797642
## factor(Munic)Zvornik -0.3264987028 1.163042e-01 -2.80728324
## Pr(>|t|)
## (Intercept) 7.233233e-240
## Age 1.209020e-16
## as.numeric(Age^2) 1.352056e-11
## factor(Sex_)2 4.576044e-17
## Educ.1elementary 1.433774e-02
## Educ.1high schl 2.534592e-13
## Educ.1faculty 9.057415e-42
## factor(Full.time)part time 3.397987e-125
## factor(Munic)B.Petrovac 3.310136e-01
## factor(Munic)Banovici 3.562214e-02
## factor(Munic)Banja Luka 2.584901e-01
## factor(Munic)Bihac 4.430909e-01
## factor(Munic)Bijeljina 2.566389e-01
## factor(Munic)Bileca 7.815942e-01
## factor(Munic)Bratunac 4.770744e-02
## factor(Munic)Brcko 2.462575e-01
## factor(Munic)Breza 1.519328e-01
## factor(Munic)Brod 6.701543e-02
## factor(Munic)Bugojno 7.305213e-01
## factor(Munic)Busovaca 6.562227e-01
## factor(Munic)Buzim 1.668056e-04
## factor(Munic)C.Sarajevo 4.157389e-03
## factor(Munic)Cajnice 2.898780e-01
## factor(Munic)Capljina 6.789631e-04
## factor(Munic)Cazin 2.695956e-01
## factor(Munic)Celinac 5.346202e-01
## factor(Munic)Citluk 3.538020e-02
## factor(Munic)D.Vakuf 3.662281e-01
## factor(Munic)Derventa 2.698804e-04
## factor(Munic)Doboj 1.842211e-01
## factor(Munic)Doboj-Jug 5.773874e-01
## factor(Munic)Drvar 8.619752e-01
## factor(Munic)Foca - RS 8.110947e-01
## factor(Munic)Fojnica 1.474843e-01
## factor(Munic)G.Vakuf 4.490495e-01
## factor(Munic)Gacko 7.813457e-02
## factor(Munic)Glamoc 1.813473e-01
## factor(Munic)Gorazde 6.803913e-02
## factor(Munic)Gracanica 3.069965e-01
## factor(Munic)Grad Mostar 1.295777e-03
## factor(Munic)Gradacac 5.635979e-01
## factor(Munic)Gradiska 7.426379e-01
## factor(Munic)Grude 3.044260e-03
## factor(Munic)I.Ilidza 9.360554e-01
## factor(Munic)Ilidza 2.614068e-05
## factor(Munic)Ilijas 2.834698e-01
## factor(Munic)Jajce 7.527134e-02
## factor(Munic)K.Dubica 4.234510e-01
## factor(Munic)Kakanj 5.418134e-01
## factor(Munic)Kalesija 3.808196e-01
## factor(Munic)Kiseljak 5.965817e-02
## factor(Munic)Kladanj 4.513996e-01
## factor(Munic)Kljuc 9.512697e-01
## factor(Munic)Knezevo 8.765595e-01
## factor(Munic)Konjic 4.425637e-02
## factor(Munic)Kotor Varos 4.260001e-01
## factor(Munic)Kresevo 1.206550e-02
## factor(Munic)Kupres 2.151747e-01
## factor(Munic)Laktasi 8.496227e-01
## factor(Munic)Livno 2.305409e-03
## factor(Munic)Lopare 9.218440e-01
## factor(Munic)Lukavac 3.858832e-01
## factor(Munic)Ljubuski 1.994518e-03
## factor(Munic)Maglaj 6.311315e-01
## factor(Munic)Modrica 5.950001e-01
## factor(Munic)Mrkonjic 1.734532e-01
## factor(Munic)N.G.Sarajevo 7.345870e-04
## factor(Munic)N.Gorazde 3.633998e-02
## factor(Munic)N.Sarajevo 3.213461e-04
## factor(Munic)N.Travnik 1.371347e-01
## factor(Munic)Nevesinje 8.479084e-01
## factor(Munic)Novi Grad 6.723772e-01
## factor(Munic)Orasje 1.241350e-02
## factor(Munic)Pale 6.147814e-01
## factor(Munic)Posusje 9.176328e-03
## factor(Munic)Prijedor 1.987518e-01
## factor(Munic)Prnjavor 8.743788e-01
## factor(Munic)Prozor 2.074094e-01
## factor(Munic)Ribnik 9.035125e-01
## factor(Munic)Rogatica 2.332890e-01
## factor(Munic)Rudo 3.093685e-01
## factor(Munic)S.Brijeg 3.127144e-07
## factor(Munic)S.G.Sarajevo 2.844435e-03
## factor(Munic)Samac 8.515281e-01
## factor(Munic)Sanski Most 9.115300e-01
## factor(Munic)Sokolac 3.677959e-01
## factor(Munic)Srbac 7.162533e-01
## factor(Munic)Srebrenica 9.276928e-02
## factor(Munic)Srebrenik 3.923051e-01
## factor(Munic)Stolac 5.738730e-02
## factor(Munic)Tesanj 9.912774e-01
## factor(Munic)Teslic 7.697670e-01
## factor(Munic)Tomislavgrad 3.598871e-01
## factor(Munic)Travnik 1.634680e-03
## factor(Munic)Trebinje 7.900126e-01
## factor(Munic)Tuzla 1.349655e-01
## factor(Munic)Ugljevik 2.266493e-01
## factor(Munic)V.Kladusa 4.507442e-02
## factor(Munic)Visegrad 3.885086e-01
## factor(Munic)Visoko 2.763599e-01
## factor(Munic)Vitez 5.469778e-01
## factor(Munic)Vlasenica 4.665990e-01
## factor(Munic)Vogosca 3.254376e-01
## factor(Munic)Zavidovici 7.286949e-01
## factor(Munic)Zenica 3.293710e-01
## factor(Munic)Zivinice 6.541922e-01
## factor(Munic)Zvornik 5.018104e-03model.coef3a[,c("Estimate","Pr(>|t|)")]## Estimate Pr(>|t|)
## (Intercept) 4.8820174064 7.233233e-240
## Age 0.0410644316 1.209020e-16
## as.numeric(Age^2) -0.0003955788 1.352056e-11
## factor(Sex_)2 -0.1462233294 4.576044e-17
## Educ.1elementary 0.1654886912 1.433774e-02
## Educ.1high schl 0.4823290332 2.534592e-13
## Educ.1faculty 0.9292422135 9.057415e-42
## factor(Full.time)part time -0.7410491635 3.397987e-125
## factor(Munic)B.Petrovac -0.1828358917 3.310136e-01
## factor(Munic)Banovici 0.3016533953 3.562214e-02
## factor(Munic)Banja Luka 0.1150192556 2.584901e-01
## factor(Munic)Bihac -0.0851187048 4.430909e-01
## factor(Munic)Bijeljina -0.1147259562 2.566389e-01
## factor(Munic)Bileca 0.0490915703 7.815942e-01
## factor(Munic)Bratunac 0.3500611443 4.770744e-02
## factor(Munic)Brcko 0.1160503018 2.462575e-01
## factor(Munic)Breza 0.2314714318 1.519328e-01
## factor(Munic)Brod -0.2568216114 6.701543e-02
## factor(Munic)Bugojno 0.0392603818 7.305213e-01
## factor(Munic)Busovaca 0.0602734344 6.562227e-01
## factor(Munic)Buzim -0.6658529584 1.668056e-04
## factor(Munic)C.Sarajevo 0.3420448207 4.157389e-03
## factor(Munic)Cajnice -0.1784560884 2.898780e-01
## factor(Munic)Capljina 0.4760086679 6.789631e-04
## factor(Munic)Cazin -0.1263838686 2.695956e-01
## factor(Munic)Celinac -0.1167661273 5.346202e-01
## factor(Munic)Citluk 0.2927611936 3.538020e-02
## factor(Munic)D.Vakuf -0.1137453229 3.662281e-01
## factor(Munic)Derventa -0.4716639191 2.698804e-04
## factor(Munic)Doboj 0.1505261578 1.842211e-01
## factor(Munic)Doboj-Jug -0.1086578800 5.773874e-01
## factor(Munic)Drvar 0.0266899413 8.619752e-01
## factor(Munic)Foca - RS -0.0323988425 8.110947e-01
## factor(Munic)Fojnica 0.2496832908 1.474843e-01
## factor(Munic)G.Vakuf -0.1004225275 4.490495e-01
## factor(Munic)Gacko 0.2474449393 7.813457e-02
## factor(Munic)Glamoc 0.2370568654 1.813473e-01
## factor(Munic)Gorazde 0.2352043382 6.803913e-02
## factor(Munic)Gracanica -0.1287612023 3.069965e-01
## factor(Munic)Grad Mostar 0.3323133995 1.295777e-03
## factor(Munic)Gradacac 0.0714432098 5.635979e-01
## factor(Munic)Gradiska -0.0495593918 7.426379e-01
## factor(Munic)Grude 0.4015864622 3.044260e-03
## factor(Munic)I.Ilidza -0.0129577300 9.360554e-01
## factor(Munic)Ilidza 0.5109311837 2.614068e-05
## factor(Munic)Ilijas 0.1765869018 2.834698e-01
## factor(Munic)Jajce 0.2767950564 7.527134e-02
## factor(Munic)K.Dubica -0.1379123331 4.234510e-01
## factor(Munic)Kakanj 0.0780721742 5.418134e-01
## factor(Munic)Kalesija -0.1258889572 3.808196e-01
## factor(Munic)Kiseljak 0.2476207118 5.965817e-02
## factor(Munic)Kladanj 0.1331337133 4.513996e-01
## factor(Munic)Kljuc -0.0100623402 9.512697e-01
## factor(Munic)Knezevo -0.0282840147 8.765595e-01
## factor(Munic)Konjic 0.2337023837 4.425637e-02
## factor(Munic)Kotor Varos 0.1407311704 4.260001e-01
## factor(Munic)Kresevo 0.3692902596 1.206550e-02
## factor(Munic)Kupres 0.2036694262 2.151747e-01
## factor(Munic)Laktasi 0.0235345614 8.496227e-01
## factor(Munic)Livno 0.4060325482 2.305409e-03
## factor(Munic)Lopare -0.0123681621 9.218440e-01
## factor(Munic)Lukavac 0.1164707504 3.858832e-01
## factor(Munic)Ljubuski 0.4160130281 1.994518e-03
## factor(Munic)Maglaj 0.0661564022 6.311315e-01
## factor(Munic)Modrica -0.0635310175 5.950001e-01
## factor(Munic)Mrkonjic 0.2657356976 1.734532e-01
## factor(Munic)N.G.Sarajevo 0.3454167452 7.345870e-04
## factor(Munic)N.Gorazde -0.4082614358 3.633998e-02
## factor(Munic)N.Sarajevo 0.4298509631 3.213461e-04
## factor(Munic)N.Travnik -0.1673090938 1.371347e-01
## factor(Munic)Nevesinje -0.0349373647 8.479084e-01
## factor(Munic)Novi Grad -0.0504538219 6.723772e-01
## factor(Munic)Orasje 0.3446396132 1.241350e-02
## factor(Munic)Pale 0.0730904827 6.147814e-01
## factor(Munic)Posusje 0.4059994225 9.176328e-03
## factor(Munic)Prijedor 0.1439496058 1.987518e-01
## factor(Munic)Prnjavor 0.0196426833 8.743788e-01
## factor(Munic)Prozor 0.2233714878 2.074094e-01
## factor(Munic)Ribnik -0.0195693403 9.035125e-01
## factor(Munic)Rogatica 0.1830572232 2.332890e-01
## factor(Munic)Rudo -0.1641534327 3.093685e-01
## factor(Munic)S.Brijeg 0.6098130173 3.127144e-07
## factor(Munic)S.G.Sarajevo 0.3636204138 2.844435e-03
## factor(Munic)Samac 0.0210317727 8.515281e-01
## factor(Munic)Sanski Most -0.0125448276 9.115300e-01
## factor(Munic)Sokolac -0.1642980421 3.677959e-01
## factor(Munic)Srbac 0.0575557836 7.162533e-01
## factor(Munic)Srebrenica 0.3277554536 9.276928e-02
## factor(Munic)Srebrenik 0.1607166511 3.923051e-01
## factor(Munic)Stolac 0.3131976234 5.738730e-02
## factor(Munic)Tesanj 0.0012990188 9.912774e-01
## factor(Munic)Teslic -0.0376860150 7.697670e-01
## factor(Munic)Tomislavgrad 0.1667336034 3.598871e-01
## factor(Munic)Travnik 0.3328100303 1.634680e-03
## factor(Munic)Trebinje 0.0339378713 7.900126e-01
## factor(Munic)Tuzla 0.1672624447 1.349655e-01
## factor(Munic)Ugljevik 0.1734186954 2.266493e-01
## factor(Munic)V.Kladusa -0.2491723445 4.507442e-02
## factor(Munic)Visegrad -0.1452941187 3.885086e-01
## factor(Munic)Visoko 0.1285958545 2.763599e-01
## factor(Munic)Vitez -0.0681471761 5.469778e-01
## factor(Munic)Vlasenica 0.1152210905 4.665990e-01
## factor(Munic)Vogosca 0.1411544974 3.254376e-01
## factor(Munic)Zavidovici -0.0415413631 7.286949e-01
## factor(Munic)Zenica 0.1012596903 3.293710e-01
## factor(Munic)Zivinice -0.0541166033 6.541922e-01
## factor(Munic)Zvornik -0.3264987028 5.018104e-03model.coef3a <- model.coef3a
model.coef3a <- as.data.frame.array(model.coef3a[-c(1:8),]) # da bude dataframe a ne matrix i da mi brise prvih 8 redova koji su drugi koeficijenti
Munic <- rownames(model.coef3a)
model.coef3a$Munic <- Municza 3a
dim(model.coef3a) #da vidim koliko redova## [1] 99 5rownames(model.coef3a) <- 1:99 #nedostaje B.Krupa koje je 0, B.Grahovo nije u modelu
head(model.coef3a)modela
Munic1 <- sapply(strsplit(Munic, split=')', fixed=TRUE), function(x) (x[2]))
Munic1## [1] "B.Petrovac" "Banovici" "Banja Luka" "Bihac" "Bijeljina"
## [6] "Bileca" "Bratunac" "Brcko" "Breza" "Brod"
## [11] "Bugojno" "Busovaca" "Buzim" "C.Sarajevo" "Cajnice"
## [16] "Capljina" "Cazin" "Celinac" "Citluk" "D.Vakuf"
## [21] "Derventa" "Doboj" "Doboj-Jug" "Drvar" "Foca - RS"
## [26] "Fojnica" "G.Vakuf" "Gacko" "Glamoc" "Gorazde"
## [31] "Gracanica" "Grad Mostar" "Gradacac" "Gradiska" "Grude"
## [36] "I.Ilidza" "Ilidza" "Ilijas" "Jajce" "K.Dubica"
## [41] "Kakanj" "Kalesija" "Kiseljak" "Kladanj" "Kljuc"
## [46] "Knezevo" "Konjic" "Kotor Varos" "Kresevo" "Kupres"
## [51] "Laktasi" "Livno" "Lopare" "Lukavac" "Ljubuski"
## [56] "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [61] "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad" "Orasje"
## [66] "Pale" "Posusje" "Prijedor" "Prnjavor" "Prozor"
## [71] "Ribnik" "Rogatica" "Rudo" "S.Brijeg" "S.G.Sarajevo"
## [76] "Samac" "Sanski Most" "Sokolac" "Srbac" "Srebrenica"
## [81] "Srebrenik" "Stolac" "Tesanj" "Teslic" "Tomislavgrad"
## [86] "Travnik" "Trebinje" "Tuzla" "Ugljevik" "V.Kladusa"
## [91] "Visegrad" "Visoko" "Vitez" "Vlasenica" "Vogosca"
## [96] "Zavidovici" "Zenica" "Zivinice" "Zvornik"model.coef3a$Munic1 <- Munic1add B.Krupa to dataframe
model.coef3[nrow(model.coef3) + 1,] = c(0, NA, NA, NA,"B.Krupa","B.Krupa" )
model.coef3$Estimate <- as.numeric(model.coef3$Estimate)add B.Krupa to dataframe 3a
model.coef3a[nrow(model.coef3a) + 1,] = c(0, NA, NA, NA,"B.Krupa","B.Krupa" )
model.coef3a$Estimate <- as.numeric(model.coef3a$Estimate)top10.m3 <- model.coef3 %>%
dplyr::select(Estimate, Munic1) %>%
arrange (desc(Estimate))%>%
head(10) #top ten municipalities
top10.m3top10.m3a <- model.coef3a %>%
dplyr::select(Estimate, Munic1) %>%
arrange (desc(Estimate))%>%
head(10) #top ten municipalities
top10.m3abot10.m.empl <- model.coef3a %>%
dplyr::select(Estimate, Munic1) %>%
arrange (Estimate)%>%
head(10) #bottom ten municipalities
bot10.m.emplZakljucak za doktorat ovjde da je to sve moguce samo sto model posmatra gdje ljudi zive i moguce je da neko iz recimo Posusja radi u S.Brijeg, ali treba imati na umu to nije bas ispravno. Potrebni su podaci plata prema mjestu gdje neko radi a ne gdje zivi.
Napomena poslala sam 2.5. federalnoj statistici upit na osnovu cega daju procjene plate prebilaista ili sjedista firme kao i o iznosima top.obroka i prevoza po opstinama. U publikaciji https://fzs.ba/index.php/publikacije/saopcenjapriopcenja/trziste-rada-zaposlenost-nezaposlenost-i-place-2/ stoji da je u 2020 godini troskovi rada pod ostalo bili 6km. ostalo znaci prevoz, topli obrok,regres, jubilarne nagrade, naknade clanova upravnog i nadzornog odbora ako su zaposleni u radnom odnosu kod isplatioca. U RS to je na linku https://www.rzs.rs.ba/static/uploads/saopstenja/rad/troskovi_rada/2020/Troskovi_rada_2020.pdf Prema ova dva istrazivanja ostali troskovi u fbih su oko 6km a u rs oko 4 km. Mozda bi mi mogao biti zakljucak da zanemarujem dobivene podatke
MODEL NOT ONLY EMPLOYED - SAME WAGE VARIABLE ************************
library(haven)
library(dplyr)
setwd("C:/Users/Amra/Documents/HBS database inspecting")
HBS_2015_HH_short <- read_sav("~/HBS database inspecting/HBS_2015_HH - short.sav")Ovdje pita prvog clana da li ste prmili i jedan od slijedecih incoma
52% je primilo neku od naknada a 77 ima Naova…
QA01_YN_01_S12
To znaci da od 7,702 domacinstava za 4125, nema podataka a od ovih koji su odgovorili samo 58.9% je reklo da je primilo platu od lokalnog poslodavca. Pitanje se odnosi na prvog clana familije
QA02_YN_01_S12
Od 7702 domacinstava samo na ovo pitanje Da li ste primili platu od poslodavca koji ima sjediste van BiH u zadnjih 12 mjeseci? 4533 nije nista odgovorilo a ovi koji su odgovorili samo su 12.3% su rekli da jesu.
QA03_YN_01_S12 “Did you receive cash (a salary) for work done abroad in the last 12 months?
Na ovo pitanje 4527 nije dalo niakka odgovor a od ovih koji jesu samo 3,7% je odgovorilo da su dobili platu za rad u inostranstvu
QA04_YN_01_S12
Did you receive fee for work done by you for a local employer based on a
contract for services rendered, author”
Od ukupnog broja 4516 nije odgovorilo na ovo pitanja, a ovi koji su odgovorili samo 6% je odgovorilo da su primili.
QA05_YN_01_S12
Did you receive Fee for work done by you for a foreign employer in BiH
based on a contract for services rendere
Od 7702 4538 nije odgovorilo, a ovi sto su odgovorili samo 0.05% je reklo da jeste.
QA06_YN_01_S12 Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
Samo je 6% odgovirilo da jesu a opet oko 4537 je NA
QA07_YN_01_S12 Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
4496 nije odgovorilo, 25,8% je primilo topli obrok
QA08_YN_01_S12
od ovih koji su odgovorili 10% ih je primilo putne troskove.
QA09_YN_01_S12
Od onih koji su odgovorili samo je 0.25% odgovorilo da su prmili nakandnu ya zivto u drugom gradu.
QA10_YN_01_S12
0.09% je primalo naknadu za odvojen zivot.
QA11_YN_01_S12 Did you receive other cash income from employment in the last 12 months?
7,4% je primilo drugu naknadnu od zaposlenosti.
QA12_YN_01_S12 Did you receive in-kind income from employment in the last 12 months?
4,540 je NA a 1.1% je primilo ovu nakandu
QA14_YN_01_S12 Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
19.7% je primalo nakandu za poljoprivredu
QA15_YN_01_S12 id you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
6% ih je primilo ovaj vid nakande
QA16_YN_01_S12 Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
Kamate i dividnede samo 0.9% stanovnika.
QA17_YN_01_S12 Did you receive income from the rent of landin the last 12 months?
0.63% su primili (od odgovorenih)
QA18_YN_01_S12 Did you receive income from the rent of residential premises in the last 12 months?
Samo 0.5% Da
QA19_YN_01_S12 Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?”
Od odgovorenih, samo 0.57% je iydavalo posl.prostore garaze i slicno
QA20_YN_01_S12 Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
0.66% od odgovorenih jesu.
QA21_YN_01_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons in BiH in the last 12 months?
QA22_YN_01_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons abroad (remittances) in the last 12 months?
13.5% jesu
QA23_YN_01_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons abroad (remittances) in the last 12 months?
##SADA IDEMO NA DRUGOG CLANA DOMACINSTVA
02 QA01_YN_02_S12 Did you receive salary of employees
working for a local employer in the last 12 months?
To znaci da od 7702 domacinstava za 5790, nema podataka a od ovih koji su odgovorili samo 68.1% je reklo da je primilo platu od lokalnog poslodavca. Pitanje se odnosi na DRUGOG clana familije
QA02_YN_02_S12
Od 7702 domacinstava samo na ovo pitanje Da li ste primili platu od poslodavca koji ima sjediste van BiH u zadnjih 12 mjeseci? 6036 nije nista odgovorilo a ovi koji su odgovorili samo su 1,4% su rekli da jesu.
QA03_YN_02_S12 “Did you receive cash (a salary) for work done abroad in the last 12 months?
Na ovo pitanje 6036 nije dalo niakka odgovor a od ovih koji jesu samo 0,02% je odgovorilo da su dobili platu za rad u inostranstvu
QA04_YN_02_S12
Did you receive fee for work done by you for a local employer based on a
contract for services rendered, author”
Od ukupnog broja 6032 nije odgovorilo na ovo pitanja, a ovi koji su odgovorili samo 2,9% je odgovorilo da su primili.
QA05_YN_02_S12
Did you receive Fee for work done by you for a foreign employer in BiH
based on a contract for services rendere
Od 7702 6038 nije odgovorilo, a ovi sto su odgovorili samo 0.01% je reklo da jeste.
QA06_YN_02_S12
Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
Samo je 0,6% odgovirilo da jesu a opet oko 6038 je NA
QA07_YN_02_S12 Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
6035 nije odgovorilo, 25,6% je primilo topli obrok
QA08_YN_02_S12
od ovih koji su odgovorili 8,5% ih je primilo putne troskove.
QA09_YN_02_S12
Od onih koji su odgovorili samo je 0.06% odgovorilo da su prmili nakandnu ya zivto u drugom gradu.
QA10_YN_02_S12 Did you receive fees for management/supervisory board mem-bers in the last 12 months?
0.24% je primalo naknadu za odvojen zivot.
QA11_YN_02_S12 Did you receive other cash income from employment in the last 12 months?
7,1% je primilo drugu naknadnu od zaposlenosti.
QA12_YN_02_S12 Did you receive in-kind income from employment in the last 12 months?
6038 je NA a 0,8% je primilo ovu nakandu
QA14_YN_02_S12 Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
18,5% je primalo nakandu za poljoprivredu 5973 IS NA
QA15_YN_02_S12 id you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
3% ih je primilo ovaj vid nakande
QA16_YN_02_S12 Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
Kamate i dividnede samo NIKO
QA17_YN_02_S12 Did you receive income from the rent of landinG the last 12 months?
0.18% su primili (od odgovorenih)
QA18_YN_02_S12 Did you receive income from the rent of residential premises in the last 12 months?
Samo 0.36% Da
QA19_YN_02_S12 Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?”
Od odgovorenih, samo 0.36% je iydavalo posl.prostore garaze i slicno
QA20_YN_02_S12 Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
0.3% od odgovorenih jesu.
QA21_YN_02_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons in BiH in the last 12 months?
2% od odgovorenih
QA22_YN_02_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons abroad (remittances) in the last 12 months?
8,6% jesu
QA23_YN_02_S12 - Did you receive salary of employees working for a local employer in the last 12 months? Detalji oko ove vrste zaposlenosti odnose se na cuvanje djece, prosnja, prevod.. itd
4.25% je priilo ovu nakandu
##SADA IDEMO NA TRECEG CLANA DOMACINSTVA
03
QA01_YN_03_S12 Did you receive salary of employees working for a local employer in the last 12 months?
hbs_short$QA01_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA01_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, N...
## @ label : chr "Did you receive salary of employees working for a local employer in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA01_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 1.000 1.000 1.258 2.000 2.000 6690prop.table(table(hbs_short$QA01_YN_03_S12))*100##
## 1 2
## 74.20949 25.79051To znaci da od 7702 domacinstava za 6690, nema podataka a od ovih koji su odgovorili samo 74,2% je reklo da je primilo platu od lokalnog poslodavca. Pitanje se odnosi na DRUGOG clana familije
QA02_YN_03_S12
Did you receive salary of employees working for a foreign employer in
BiH in the last 12 months?
hbs_short$QA02_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a foreign employer in BiH in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA02_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive salary of employees working for a foreign employer in BiH in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA02_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.988 2.000 2.000 6873prop.table(table(hbs_short$QA02_YN_03_S12))*100##
## 1 2
## 1.206273 98.793727Od 7702 domacinstava samo na ovo pitanje Da li ste primili platu od poslodavca koji ima sjediste van BiH u zadnjih 12 mjeseci? 6873 nije nista odgovorilo a ovi koji su odgovorili samo su 1,2% su rekli da jesu.
QA03_YN_03_S12 “Did you receive cash (a salary) for work done abroad in the last 12 months?
hbs_short$QA03_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive cash (a salary) for work done abroad in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA03_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive cash (a salary) for work done abroad in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA03_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.955 2.000 2.000 6862prop.table(table(hbs_short$QA03_YN_03_S12))##
## 1 2
## 0.0452381 0.9547619Na ovo pitanje 6862 nije dalo niakka odgovor a od ovih koji jesu samo 0,04% je odgovorilo da su dobili platu za rad u inostranstvu
QA04_YN_03_S12
Did you receive fee for work done by you for a local employer based on a
contract for services rendered, author”
hbs_short$QA04_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive fee for work done by you for a local employer based on a contract for services rendered, author-ship contract and occasional and temporary jobs or agreementsin the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA04_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive fee for work done by you for a local employer based on a contract for services rendered, author"| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA04_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.945 2.000 2.000 6868prop.table(table(hbs_short$QA04_YN_03_S12))*100##
## 1 2
## 5.515588 94.484412Od ukupnog broja 6868 nije odgovorilo na ovo pitanja, a ovi koji su odgovorili samo 5,5% je odgovorilo da su primili.
QA05_YN_03_S12
Did you receive Fee for work done by you for a foreign employer in BiH
based on a contract for services rendere
hbs_short$QA05_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive Fee for work done by you for a foreign employer in BiH based on a contract for services rendered, authorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA05_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive Fee for work done by you for a foreign employer in BiH based on a contract for services rendere"| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA05_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.998 2.000 2.000 6871prop.table(table(hbs_short$QA05_YN_03_S12))##
## 1 2
## 0.002406739 0.997593261Od 7702 6,871 nije odgovorilo, a ovi sto su odgovorili samo 0.02% je reklo da jeste.
QA06_YN_03_S12
Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
hbs_short$QA06_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA06_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, "| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA06_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.998 2.000 2.000 6872prop.table(table(hbs_short$QA06_YN_03_S12))*100##
## 1 2
## 0.2409639 99.7590361Samo je 0,2% odgovirilo da jesu a opet oko 6872 je NA
QA07_YN_03_S12 Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
hbs_short$QA07_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA07_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, N...
## @ label : chr "Did you receive meal allowance (excludes coupons and meals) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA07_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.758 2.000 2.000 6858prop.table(table(hbs_short$QA07_YN_03_S12))*100##
## 1 2
## 24.17062 75.829386858 nije odgovorilo, 24,2% je primilo topli obrok
QA08_YN_03_S12
hbs_short$QA08_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive transport allowance to and from work (excludes coupons) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA08_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, N...
## @ label : chr "Did you receive transport allowance to and from work (excludes coupons) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA08_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.915 2.000 2.000 6869prop.table(table(hbs_short$QA08_YN_03_S12))*100##
## 1 2
## 8.523409 91.476591od ovih koji su odgovorili 8,5% ih je primilo putne troskove.
QA09_YN_03_S12
hbs_short$QA09_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive allowance for living in other town in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA09_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive allowance for living in other town in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA09_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 6873prop.table(table(hbs_short$QA09_YN_03_S12))*100##
## 2
## 100Od onih koji su odgovorili NIKO NIJE prmili nakandnu ya zivto u drugom gradu.
QA10_YN_03_S12 Did you receive fees for management/supervisory board mem-bers in the last 12 months?
hbs_short$QA10_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive fees for management/supervisory board mem-bers in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA10_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive fees for management/supervisory board mem-bers in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA10_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.998 2.000 2.000 6871prop.table(table(hbs_short$QA10_YN_03_S12))*100##
## 1 2
## 0.2406739 99.75932610.24% je primalo naknadu za odvojen zivot.
QA11_YN_03_S12 Did you receive other cash income from employment in the last 12 months?
hbs_short$QA11_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive other cash income from employment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA11_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive other cash income from employment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA11_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.00 2.00 2.00 1.96 2.00 2.00 6869prop.table(table(hbs_short$QA11_YN_03_S12))*100##
## 1 2
## 3.961585 96.0384153,4% je primilo drugu naknadnu od zaposlenosti.
QA12_YN_03_S12 Did you receive in-kind income from employment in the last 12 months?
hbs_short$QA12_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive in-kind income from employment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA12_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive in-kind income from employment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA12_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.992 2.000 2.000 6872prop.table(table(hbs_short$QA12_YN_03_S12))*100##
## 1 2
## 0.8433735 99.15662656872 je NA a 0,84% je primilo ovu nakandu
QA14_YN_03_S12 Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
hbs_short$QA14_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA14_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA14_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.852 2.000 2.000 6836prop.table(table(hbs_short$QA14_YN_03_S12))*100##
## 1 2
## 14.7806 85.219414,7% je primalo nakandu za poljoprivredu 6836 IS NA
QA15_YN_03_S12 id you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
hbs_short$QA15_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA15_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA15_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.954 2.000 2.000 6868prop.table(table(hbs_short$QA15_YN_03_S12))*100##
## 1 2
## 4.556355 95.4436454,5% ih je primilo ovaj vid nakande
QA16_YN_03_S12 Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
hbs_short$QA16_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA16_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA16_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 6872prop.table(table(hbs_short$QA16_YN_03_S12))*100##
## 2
## 100Kamate i dividnede samo NIKO
QA17_YN_03_S12 Did you receive income from the rent of landinG the last 12 months?
hbs_short$QA17_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of landin the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA17_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive income from the rent of landin the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA17_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 6872prop.table(table(hbs_short$QA17_YN_03_S12))*100##
## 2
## 100NIKO (od odgovorenih)
QA18_YN_03_S12 Did you receive income from the rent of residential premises in the last 12 months?
hbs_short$QA18_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of residential premises in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA18_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive income from the rent of residential premises in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA18_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 6873prop.table(table(hbs_short$QA18_YN_03_S12))*100##
## 2
## 100NIKO
QA19_YN_03_S12 Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?”
hbs_short$QA19_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA19_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA19_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.999 2.000 2.000 6871prop.table(table(hbs_short$QA19_YN_03_S12))*100##
## 1 2
## 0.1203369 99.8796631Od odgovorenih, samo 0.12% je iydavalo posl.prostore garaze i slicno
QA20_YN_03_S12 Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
hbs_short$QA20_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA20_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA20_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.999 2.000 2.000 6874prop.table(table(hbs_short$QA20_YN_03_S12))*100##
## 1 2
## 0.1207729 99.87922710.12% od odgovorenih jesu.
QA21_YN_03_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons in BiH in the last 12 months?
hbs_short$QA21_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive money from other households or persons in BiH in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA21_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive money from other households or persons in BiH in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA21_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.994 2.000 2.000 6869prop.table(table(hbs_short$QA21_YN_03_S12))*100##
## 1 2
## 0.6002401 99.39975990,6% od odgovorenih
QA22_YN_03_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons abroad (remittances) in the last 12 months?
hbs_short$QA22_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive money from other households or persons abroad (remittances) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA22_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive money from other households or persons abroad (remittances) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA22_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.973 2.000 2.000 6872prop.table(table(hbs_short$QA22_YN_03_S12))*100##
## 1 2
## 2.650602 97.3493982,65% jesu
QA23_YN_03_S12 - Did you receive salary of employees working for a local employer in the last 12 months? Detalji oko ove vrste zaposlenosti odnose se na cuvanje djece, prosnja, prevod.. itd
hbs_short$QA23_YN_03_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA23_YN_03_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, N...
## @ label : chr "Did you receive salary of employees working for a local employer in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA23_YN_03_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.956 2.000 2.000 6869prop.table(table(hbs_short$QA23_YN_03_S12))*100##
## 1 2
## 4.441777 95.5582234.4% je primilo ovu nakandu
##SADA IDEMO NA CETVRTOG CLANA DOMACINSTVA
04
QA01_YN_04_S12 Did you receive salary of employees working for a local employer in the last 12 months?
hbs_short$QA01_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA01_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive salary of employees working for a local employer in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA01_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 1.000 1.000 1.252 1.750 2.000 7384prop.table(table(hbs_short$QA01_YN_04_S12))*100##
## 1 2
## 74.84277 25.15723To znaci da od 7702 domacinstava za 7384, nema podataka a od ovih koji su odgovorili 74,8% je reklo da je primilo platu od lokalnog poslodavca. Pitanje se odnosi na CETVRTOG clana familije
QA02_YN_04_S12
Did you receive salary of employees working for a foreign employer in
BiH in the last 12 months?
hbs_short$QA02_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a foreign employer in BiH in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA02_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive salary of employees working for a foreign employer in BiH in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA02_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.985 2.000 2.000 7441prop.table(table(hbs_short$QA02_YN_04_S12))*100##
## 1 2
## 1.532567 98.467433Od 7702 domacinstava samo na ovo pitanje Da li ste primili platu od poslodavca koji ima sjediste van BiH u zadnjih 12 mjeseci? 7441 nije nista odgovorilo a ovi koji su odgovorili samo su 1,5% su rekli da jesu.
QA03_YN_04_S12 “Did you receive cash (a salary) for work done abroad in the last 12 months?
hbs_short$QA03_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive cash (a salary) for work done abroad in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA03_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive cash (a salary) for work done abroad in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA03_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.00 2.00 2.00 1.95 2.00 2.00 7440prop.table(table(hbs_short$QA03_YN_04_S12))##
## 1 2
## 0.04961832 0.95038168Na ovo pitanje 7440 nije dalo niakka odgovor a od ovih koji jesu samo 0,05% je odgovorilo da su dobili platu za rad u inostranstvu
QA04_YN_04_S12
Did you receive fee for work done by you for a local employer based on a
contract for services rendered, author”
hbs_short$QA04_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive fee for work done by you for a local employer based on a contract for services rendered, author-ship contract and occasional and temporary jobs or agreementsin the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA04_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive fee for work done by you for a local employer based on a contract for services rendered, author"| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA04_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.943 2.000 2.000 7439prop.table(table(hbs_short$QA04_YN_04_S12))*100##
## 1 2
## 5.703422 94.296578Od ukupnog broja 7439 nije odgovorilo na ovo pitanja, a ovi koji su odgovorili samo 5,7% je odgovorilo da su primili.
QA05_YN_04_S12
Did you receive Fee for work done by you for a foreign employer in BiH
based on a contract for services rendere
hbs_short$QA05_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive Fee for work done by you for a foreign employer in BiH based on a contract for services rendered, authorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA05_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive Fee for work done by you for a foreign employer in BiH based on a contract for services rendere"| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA05_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.996 2.000 2.000 7442prop.table(table(hbs_short$QA05_YN_04_S12))##
## 1 2
## 0.003846154 0.996153846Od 7702 7442 nije odgovorilo, a ovi sto su odgovorili samo 0.003% je reklo da jeste.
QA06_YN_04_S12
Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
hbs_short$QA06_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, au-thorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA06_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, "| __truncated__
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA06_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7443prop.table(table(hbs_short$QA06_YN_04_S12))*100##
## 2
## 100NIKO nije primo ovu naknadu a opet oko 7443 je NA
QA07_YN_04_S12 Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
hbs_short$QA07_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive meal allowance (excludes coupons and meals) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA07_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive meal allowance (excludes coupons and meals) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA07_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.776 2.000 2.000 7439prop.table(table(hbs_short$QA07_YN_04_S12))*100##
## 1 2
## 22.43346 77.566547439 nije odgovorilo, 22,4% je primilo topli obrok
QA08_YN_04_S12 Did you receive transport allowance to and from work (excludes coupons) in the last 12 months?
hbs_short$QA08_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive transport allowance to and from work (excludes coupons) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA08_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive transport allowance to and from work (excludes coupons) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA08_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.928 2.000 2.000 7439prop.table(table(hbs_short$QA08_YN_04_S12))*100##
## 1 2
## 7.224335 92.775665od ovih koji su odgovorili 7,2% ih je primilo putne troskove.
QA09_YN_04_S12
hbs_short$QA09_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive allowance for living in other town in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA09_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive allowance for living in other town in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA09_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA09_YN_04_S12))*100##
## 2
## 100Od onih koji su odgovorili NIKO NIJE prmili nakandnu ya zivto u drugom gradu.
QA10_YN_04_S12 Did you receive fees for management/supervisory board mem-bers in the last 12 months?
hbs_short$QA10_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive fees for management/supervisory board mem-bers in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA10_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive fees for management/supervisory board mem-bers in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA10_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.996 2.000 2.000 7443prop.table(table(hbs_short$QA10_YN_04_S12))*100##
## 1 2
## 0.3861004 99.61389960.36% je primalo naknadu za odvojen zivot.
QA11_YN_04_S12 Did you receive other cash income from employment in the last 12 months?
hbs_short$QA11_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive other cash income from employment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA11_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive other cash income from employment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA11_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.992 2.000 2.000 7442prop.table(table(hbs_short$QA11_YN_04_S12))*100##
## 1 2
## 0.7692308 99.23076920,76% je primilo drugu naknadnu od zaposlenosti.
QA12_YN_04_S12 Did you receive in-kind income from employment in the last 12 months?
hbs_short$QA12_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive in-kind income from employment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA12_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive in-kind income from employment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA12_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.992 2.000 2.000 7442prop.table(table(hbs_short$QA12_YN_04_S12))*100##
## 1 2
## 0.7692308 99.23076927442 je NA a 0,77% je primilo ovu nakandu
QA14_YN_04_S12 Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
hbs_short$QA14_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA14_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive earnings for work done on your own agricultural holding/s in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA14_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.809 2.000 2.000 7425prop.table(table(hbs_short$QA14_YN_04_S12))*100##
## 1 2
## 19.13357 80.8664319,1% je primalo nakandu za poljoprivredu 7425 IS NA
QA15_YN_04_S12 id you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
hbs_short$QA15_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA15_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA15_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.977 2.000 2.000 7443prop.table(table(hbs_short$QA15_YN_04_S12))*100##
## 1 2
## 2.316602 97.6833982,3% ih je primilo ovaj vid nakande
QA16_YN_04_S12 Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
hbs_short$QA16_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA16_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA16_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA16_YN_04_S12))*100##
## 2
## 100Kamate i dividnede samo NIKO
QA17_YN_04_S12 Did you receive income from the rent of landinG the last 12 months?
hbs_short$QA17_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of landin the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA17_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive income from the rent of landin the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA17_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA17_YN_04_S12))*100##
## 2
## 100NIKO (od odgovorenih)
QA18_YN_04_S12 Did you receive income from the rent of residential premises in the last 12 months?
hbs_short$QA18_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of residential premises in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA18_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive income from the rent of residential premises in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA18_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA18_YN_04_S12))*100##
## 2
## 100NIKO
QA19_YN_04_S12 Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?”
hbs_short$QA19_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA19_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA19_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA19_YN_04_S12))*100##
## 2
## 100NIKO OD odgovorenih iydavalo posl.prostore garaze i slicno
QA20_YN_04_S12 Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
hbs_short$QA20_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA20_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive income from the rent of equipment, cattle, etc. in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA20_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA20_YN_04_S12))*100##
## 2
## 100NIKO
QA21_YN_04_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons in BiH in the last 12 months?
hbs_short$QA21_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive money from other households or persons in BiH in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA21_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive money from other households or persons in BiH in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA21_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 2 2 2 2 2 2 7442prop.table(table(hbs_short$QA21_YN_04_S12))*100##
## 2
## 100NIKO
QA22_YN_04_S12 - OVO VJEROVATNO NE JER NIJE OD POSLA NEGO NEKA DOYNAKA Did you receive money from other households or persons abroad (remittances) in the last 12 months?
hbs_short$QA22_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive money from other households or persons abroad (remittances) in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA22_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive money from other households or persons abroad (remittances) in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA22_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.969 2.000 2.000 7442prop.table(table(hbs_short$QA22_YN_04_S12))*100##
## 1 2
## 3.076923 96.9230773% jesu
QA23_YN_04_S12 - Did you receive salary of employees working for a local employer in the last 12 months? Detalji oko ove vrste zaposlenosti odnose se na cuvanje djece, prosnja, prevod.. itd
hbs_short$QA23_YN_04_S12 [[2]]## <labelled<double>[1]>: Did you receive salary of employees working for a local employer in the last 12 months?
## [1] NA
##
## Labels:
## value label
## 1 da
## 2 ne
## 8 Refusal
## 9 Don't Knowstr(hbs_short$QA23_YN_04_S12)## dbl+lbl [1:7702] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N...
## @ label : chr "Did you receive salary of employees working for a local employer in the last 12 months?"
## @ format.spss : chr "F1.0"
## @ display_width: int 17
## @ labels : Named num [1:4] 1 2 8 9
## ..- attr(*, "names")= chr [1:4] "da" "ne" "Refusal" "Don't Know"summary(hbs_short$QA23_YN_04_S12)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 2.000 2.000 1.954 2.000 2.000 7439prop.table(table(hbs_short$QA23_YN_04_S12))*100##
## 1 2
## 4.562738 95.4372624.5% je primilo ovu nakandu
Sada cu sabrati za svakog clana domacinstva koji su rekli da su primili neku od nakanda i vidjeti koliko mi to pokriva opstina
hbs_short$amr.NEWINCOM <- rowSums(hbs_short[,c("Q02_YN_01_S12","Q02_YN_02_S12","Q02_YN_03_S12","Q02_YN_04_S12","Q02_YN_05_S12","Q02_YN_06_S12", "Q02_YN_07_S12", "Q02_YN_08_S12", "Q02_YN_09_S12","Q02_YN_10_S12","Q02_YN_11_S12","Q02_YN_12_S12", "Q02_YN_13_S12")],na.rm = T)
table(hbs_short$amr.NEWINCOM)##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## 44 592 1583 1297 1598 900 697 500 231 134 63 39 11 7 1 3
## 18
## 2Prema ovoma samo u 44 domacinstava ni jedan clan ne dobiva nsita sto je navedeno u piatanjama QA01 - QA23.
Plan za dalje: 1. Za svaku varijablu koja ima neki inkom izracunati mjesecne izdatke i za svakog clana. jer imaju i iznos a ima i koliko mjesecno je primao, tako da to treba mnoziti sa kolonom broj mjeseci pa dijeli sa brojem 12. 2. Nakon toga cu da izracunam mjesecna primanja za svakog clana domacinstva 3. Necu racunati allowance jer to nije zarada niti cu stavljati iznamljivanje zemlje, garaze i slicen rente jer i to mi nije zarada. Ali cu prije svega PITATI ISMIRA, KOJE VARIJABLE DA IZBACIM 4. Onda cu to sve sabrati i imacu mjesecnu zaradu po domacinstvu.
ZA PLATE UZIMAM SVAKOG CLANA PORODICE POSEBNO
- _IZBACUJEM S2, _S6, _S7, _S10, COICOP, Samo prvih osam clanova izdvajati, jer npr za 9-og clana QA01_YN_09_S12 samo je jedan primio remitencices, 10 nije nisa, _S11 brisati to su penzije, QBizbaciti to su penzije, a ostaviti QA, to je income, izbaciti QC, QD,
library(dplyr)
hbs_short <- as.data.frame(hbs_short)
hbs_wage <- hbs_short %>% dplyr::select(contains(c( "SifraDom","Entity","Canton","naziv_opcine","RurUrb","ncomp","finweight","Relat","Sex","Age", "Educ","Activ", "HH_Monthly", "QA")))
##815 varijabla#remove additional unnecessary varialbles
hbs_wage <- hbs_wage %>% dplyr::select(-c(M_Entity, M_Canton_Region, Relat_9, Relat_10, Relat_11, Relat_12, Relat_13, Sex_9, Sex_10, Sex_11, Sex_12, Sex_13, Age_9, Age_10, Age_11, Age_12, Age_13, Educ_9, Educ_10, Educ_11, Educ_12,Educ_13))
#794 varijablihbs_wage <- hbs_wage %>% dplyr::select(!contains(c("Class","now","Level")))
##754 varijablihbs_wage <- hbs_wage %>% dplyr::select(-c(Activ_9, Activ_10, Activ_11, Activ_12, Activ_13, HH_Monthly_Consumption, HH_Monthly_Consumption_Equilized))
#748hbs_wage <- hbs_wage %>% dplyr::select(-contains(c("QA16","QA17","QA18", "QA19", "QA20", "QA22", "QA21","_09_S12", "_10_S12")))
#440FAZA 2
SADA PRVO FORMIRAM WAGE ZA SVAKOG CLANA DOMACINSTVA ZA INCOME
Uzimam samo one stavke pod JESAM #### Mjesecno all wage for 1st
household QA01_YN_04_S12 Did you receive salary of
employees working for a local employer in the last 12 months? JESAM
QA02_YN_04_S12
Did you receive salary of employees working for a foreign employer in
BiH in the last 12 months? JESAM QA03_YN_04_S12 “Did
you receive cash (a salary) for work done abroad in the last 12 months?
NISAM
QA04_YN_04_S12
“Did you receive fee for work done by you for a local employer based on
a contract for services rendered, author-ship contract and occasional
and temporary jobs or agreementsin the last 12 months?” NISAM
QA05_YN_04_S12
Did you receive Fee for work done by you for a foreign employer in BiH
based on a contract for services rendere NISAM
QA06_YN_04_S12 Did you receive fee for work done by you for an employer abroad BiH based on a contract for services rendered, authorship contract and occasional and temporary jobs or agreements with a local employer in the last 12 months? NISAM
QA07_YN_04_S12 Did you receive meal allowance (excludes coupons and meals) in the last 12 months? JESAM
QA08_YN_04_S12 Did you receive transport allowance to and from work (excludes coupons) in the last 12 months? JESAM
QA09_YN_04_S12 Did you receive allowance for living in other town in the last 12 months? JESAM
QA10_YN_04_S12 Did you receive fees for management/supervisory board mem-bers in the last 12 months? NISAM
QA11_YN_04_S12 Did you receive other cash income from employment in the last 12 months? NISAM
QA12_YN_04_S12 Did you receive in-kind income from employment in the last 12 months? NISAM
QA14_YN_04_S12 Did you receive earnings for work done on your own agricultural holding/s in the last 12 months? JESAM
QA15_YN_04_S12
Did you receive earnings for trade and free professions (lawyers, painters, singers, etc.) in the last 12 months? JESAM
QA16_YN_04_S12 Did you receive income from interest, savings, dividends or profit from capital investment in the last 12 months? NISAM
QA17_YN_04_S12 Did you receive income from the rent of landinG the last 12 months? NISAM
QA18_YN_04_S12 Did you receive income from the rent of residential premises in the last 12 months? NISAM
QA19_YN_04_S12 Did you receive income from the rent of business premises, gar-ages, etc. in the last 12 months?” NISAM
QA20_YN_04_S12 Did you receive income from the rent of equipment, cattle, etc. in the last 12 months? NISAM
QA21_YN_04_S12 - Did you receive money from other households or persons in BiH in the last 12 months? (NISAM)OVU SU KAO DOMACE DOZNAKE
QA22_YN_04_S12 - Did you receive money from other households or persons abroad (remittances) in the last 12 months? (NISAM) -
QA23_YN_04_S12 - Did you receive salary of employees working for a local employer in the last 12 months? (NISAM): odgovori su:cijepanje drva, cuvanje djece..itd
library(haven)
hbs_wage$QA01_01_mj <- (hbs_wage$QA01_IN_01_S12*hbs_wage$QA01_NM_01_S12)/12
hbs_wage$QA02_01_mj <- (hbs_wage$QA02_IN_01_S12*hbs_wage$QA02_NM_01_S12)/12
hbs_wage$QA07_01_mj <- (hbs_wage$QA07_IN_01_S12*hbs_wage$QA07_NM_01_S12)/12
hbs_wage$QA08_01_mj <- (hbs_wage$QA08_IN_01_S12*hbs_wage$QA08_NM_01_S12)/12
hbs_wage$QA09_01_mj <- (hbs_wage$QA09_IN_01_S12*hbs_wage$QA09_NM_01_S12)/12
hbs_wage$QA14_01_mj <- (hbs_wage$QA14_IN_01_S12*hbs_wage$QA14_NM_01_S12)/12
hbs_wage$QA15_01_mj <- (hbs_wage$QA15_IN_01_S12*hbs_wage$QA15_NM_01_S12)/12Mjesecno sva primanja za prvog householda
hbs_wage$QA_01_all_mj <- rowSums(hbs_wage[,c("QA01_01_mj","QA02_01_mj","QA07_01_mj", "QA08_01_mj", "QA09_01_mj", "QA14_01_mj", "QA15_01_mj")],na.rm = T)
summary(hbs_wage$QA_01_all_mj)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 0.0 244.1 369.2 18350.0mjesecno all wage for 2nd household
Mjesecno sva primanja za drugog householda
mjesecno all wage for 3nd household
Mjesecno sva primanja za treci householda
mjesecno all wage for 4th household
Mjesecno sva primanja za cetvrta householda
mjesecno all wage for 5th household
Mjesecno sva primanja za petog householda
mjesecno all wage for 6th household
Mjesecno sva primanja za sesti householda
mjesecno all wage for 7th household
Mjesecno sva primanja za sedmog householda
mjesecno all wage for 8th household
Mjesecno sva primanja za osmog householda
#ovaj dio zanemarujem sada jer je samo vezan za topl obrok i prevoz
hbs_wage$QA07_mj_all <- rowSums(hbs_wage[,c("QA07_01_mj","QA07_02_mj","QA07_03_mj","QA07_04_mj","QA07_05_mj","QA07_06_mj", "QA07_07_mj", "QA07_08_mj")],na.rm = T) #topli obrok
hbs_wage$QA08_mj_all <- rowSums(hbs_wage[,c("QA08_01_mj","QA08_02_mj","QA08_03_mj","QA08_04_mj","QA08_05_mj","QA08_06_mj", "QA08_07_mj", "QA08_08_mj")],na.rm = T) #prevoztapply (hbs_wage$QA07_mj_all, hbs_wage$Entity, summary)## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 44.89 0.00 1000.00
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 8.143 0.000 800.000
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.7301 0.0000 100.0000tapply (hbs_wage$QA08_mj_all, hbs_wage$Entity, summary)## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 6.261 0.000 500.000
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 2.239 0.000 400.000
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.2212 0.0000 100.0000hbs_wage %>% group_by(Entity) %>% summarise(mean07= mean(QA07_mj_all, na.rm=T), mean08 = mean(QA08_mj_all,na.rm=T) , n())NOVI FRAME SAMO SA _mj VARIJABLAMA I SOCIO-EK
hbs_wage.NEW <- hbs_wage %>% dplyr::select(contains(c("SifraDom", "Entity", "naziv_Opcine", "Relat", "Age", "Activ", "Educ","Rur","Sex", "all_mj")))FAZA 3- FROM WIDE TO LONG
to summarize specific variables - code
library(tidyr)
hbs_wage.NEW.long <- hbs_wage.NEW %>% pivot_longer(cols = c(starts_with("Age"), starts_with("Relat"), starts_with("Activ"),starts_with("Educ"),starts_with ("Sex") ,contains("_mj")), names_to = c(".value", "Relat"), names_pattern = "(\\w+).*?(\\d)")dim(hbs_wage.NEW.long)## [1] 61616 11names(hbs_wage.NEW.long)## [1] "SifraDom" "Entity" "naziv_Opcine" "RurUrb" "Relat"
## [6] "Age_" "Relat_" "Activ_" "Educ_" "Sex_"
## [11] "QA_0"prvo izbaci godine NA i sve ispod 15 godina i preko 80
hbs_wage.NEW.long.1 <- hbs_wage.NEW.long %>% filter(14 < Age_ & Age_<80)
#18548 obseryvacijatable (hbs_wage.NEW.long.1$Activ_)##
## 1 2 3 4 5 6 7 8 9
## 5676 753 1189 1600 3729 1918 433 3066 184tapply(hbs_wage.NEW.long.1$QA_0, hbs_wage.NEW.long.1$Activ_, summary)## $`1`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 50.0 520.0 580.6 850.0 18350.0
##
## $`2`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0 0.0 100.0 192.8 285.0 3000.0
##
## $`3`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 41.38 0.00 2193.33
##
## $`4`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 5.628 0.000 1000.000
##
## $`5`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 8.912 0.000 1800.000
##
## $`6`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.521 0.000 1200.000
##
## $`7`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 0.000 1.186 0.000 266.667
##
## $`8`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 10.35 0.00 3333.33
##
## $`9`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 0.00 0.00 28.38 0.00 1500.00table (hbs_wage.NEW.long.1$QA_0>0)##
## FALSE TRUE
## 13268 5280#5280 je vise od 0Km zaradilo u mjesec dana a ukupno je 18548 obs#FAZA 4 SREDI QA_0 ### Remove zeros
hbs_wage.NEW.long.2 <- hbs_wage.NEW.long.1 %>% filter(QA_0>0)
summary(hbs_wage.NEW.long.2$QA_0)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 4.0 350.0 600.0 676.6 900.0 18350.0#5280 , samo da je vece od 0BRISATI PERCENTILE
dim(hbs_wage.NEW.long.2)#5163## [1] 5163 11hbs_wage.NEW.long.2 %>%
dplyr::select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange (desc(n))%>%
print(n=137) #izlistalo 28 opstina koje imaju manje od 10 obs## # A tibble: 131 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Brcko 308
## 2 Bijeljina 229
## 3 N.G.Sarajevo 226
## 4 Banja Luka 225
## 5 Grad Mostar 188
## 6 Zenica 182
## 7 Travnik 132
## 8 Doboj 108
## 9 Bihac 96
## 10 Samac 90
## 11 Tuzla 90
## 12 Bugojno 85
## 13 Prijedor 83
## 14 Cazin 80
## 15 N.Travnik 79
## 16 Vitez 79
## 17 Sanski Most 77
## 18 Prnjavor 76
## 19 Zvornik 67
## 20 Konjic 66
## 21 Modrica 61
## 22 Novi Grad 61
## 23 Visoko 61
## 24 Tesanj 59
## 25 C.Sarajevo 58
## 26 V.Kladusa 58
## 27 N.Sarajevo 57
## 28 S.Brijeg 57
## 29 Derventa 56
## 30 Zavidovici 56
## 31 Zivinice 55
## 32 S.G.Sarajevo 52
## 33 D.Vakuf 51
## 34 Ilidza 51
## 35 Lopare 49
## 36 Teslic 49
## 37 Gradacac 48
## 38 G.Vakuf 45
## 39 Laktasi 45
## 40 Gracanica 43
## 41 Kakanj 43
## 42 Trebinje 42
## 43 Gorazde 41
## 44 Livno 41
## 45 Kiseljak 37
## 46 Foca - RS 36
## 47 B.Krupa 35
## 48 Ljubuski 35
## 49 Brod 34
## 50 Busovaca 34
## 51 Grude 34
## 52 Capljina 33
## 53 Lukavac 33
## 54 Orasje 31
## 55 Citluk 30
## 56 Maglaj 30
## 57 Kalesija 29
## 58 Ugljevik 28
## 59 Banovici 27
## 60 Gacko 27
## 61 Kresevo 26
## 62 Jajce 25
## 63 Pale 25
## 64 Rudo 25
## 65 Vogosca 25
## 66 Drvar 24
## 67 Gradiska 23
## 68 Rogatica 21
## 69 Posusje 20
## 70 Visegrad 20
## 71 Breza 19
## 72 Ilijas 19
## 73 Cajnice 18
## 74 Hadzici 18
## 75 N.Gorazde 18
## 76 Ribnik 18
## 77 Srbac 18
## 78 Vlasenica 18
## 79 I.Ilidza 17
## 80 Stolac 17
## 81 B.Petrovac 16
## 82 Kljuc 16
## 83 Kupres 16
## 84 Buzim 15
## 85 K.Dubica 15
## 86 Kotor Varos 15
## 87 Prozor 15
## 88 Bratunac 14
## 89 Fojnica 14
## 90 Kladanj 14
## 91 Knezevo 14
## 92 Bileca 13
## 93 Celinac 13
## 94 Glamoc 13
## 95 Nevesinje 13
## 96 Sokolac 13
## 97 Tomislavgrad 12
## 98 Srebrenik 11
## 99 Doboj-Jug 10
## 100 Mrkonjic 10
## 101 Olovo 10
## 102 Srebrenica 10
## 103 Teocak 10
## 104 Doboj-Istok 9
## 105 B.Grahovo 8
## 106 Han Pijesak 8
## 107 Kostajnica 7
## 108 Milici 7
## 109 Odzak 7
## 110 Vukosavlje 7
## 111 Zepce 7
## 112 Celic 6
## 113 D-Samac 6
## 114 Pelagicevo 6
## 115 Trnovo 6
## 116 Vares 6
## 117 Ostra Luka 5
## 118 Sekovici 5
## 119 Usora 4
## 120 Berkovici 3
## 121 Donji Zabar 3
## 122 Jablanica 3
## 123 Kalinovik 3
## 124 Petrovo 3
## 125 Sipovo 3
## 126 Osmaci 2
## 127 Krupa na Uni 1
## 128 Ljubinje 1
## 129 Neum 1
## 130 Ravno 1
## 131 Sapna 1unique(hbs_wage$naziv_Opcine) #137 opcina## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Dobretici"
## [31] "Donji Zabar" "Drvar" "Foca" "Foca - RS" "Fojnica"
## [36] "G.Vakuf" "Gacko" "Glamoc" "Gorazde" "Gracanica"
## [41] "Grad Mostar" "Gradacac" "Gradiska" "Grude" "Hadzici"
## [46] "Han Pijesak" "I.Ilidza" "I.N.Sarajevo" "I.Stari Grad" "Ilidza"
## [51] "Ilijas" "Jablanica" "Jajce" "Jezero" "K.Dubica"
## [56] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [61] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [66] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [71] "Lopare" "Lukavac" "Ljubinje" "Ljubuski" "Maglaj"
## [76] "Milici" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [81] "N.Sarajevo" "N.Travnik" "Neum" "Nevesinje" "Novi Grad"
## [86] "Odzak" "Olovo" "Orasje" "Osmaci" "Ostra Luka"
## [91] "Pale" "Pale-FBiH" "Pelagicevo" "Petrovo" "Posusje"
## [96] "Prijedor" "Prnjavor" "Prozor" "Ravno" "Ribnik"
## [101] "Rogatica" "Rudo" "S.Brijeg" "S.G.Sarajevo" "Samac"
## [106] "Sanski Most" "Sapna" "Sekovici" "Sipovo" "Sokolac"
## [111] "Srbac" "Srebrenica" "Srebrenik" "Stolac" "Teocak"
## [116] "Tesanj" "Teslic" "Tomislavgrad" "Travnik" "Trebinje"
## [121] "Trnovo" "Tuzla" "Ugljevik" "Usora" "V.Kladusa"
## [126] "Vares" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [131] "Vogosca" "Vukosavlje" "Zavidovici" "Zenica" "Zepce"
## [136] "Zivinice" "Zvornik"unique(hbs_wage.NEW.long.2$naziv_Opcine) #131 ## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Donji Zabar"
## [31] "Drvar" "Foca - RS" "Fojnica" "G.Vakuf" "Gacko"
## [36] "Glamoc" "Gorazde" "Gracanica" "Grad Mostar" "Gradacac"
## [41] "Gradiska" "Grude" "Hadzici" "Han Pijesak" "I.Ilidza"
## [46] "Ilidza" "Ilijas" "Jablanica" "Jajce" "K.Dubica"
## [51] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [56] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [61] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [66] "Lopare" "Lukavac" "Ljubinje" "Ljubuski" "Maglaj"
## [71] "Milici" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [76] "N.Sarajevo" "N.Travnik" "Neum" "Nevesinje" "Novi Grad"
## [81] "Odzak" "Olovo" "Orasje" "Osmaci" "Ostra Luka"
## [86] "Pale" "Pelagicevo" "Petrovo" "Posusje" "Prijedor"
## [91] "Prnjavor" "Prozor" "Ravno" "Ribnik" "Rogatica"
## [96] "Rudo" "S.Brijeg" "S.G.Sarajevo" "Samac" "Sanski Most"
## [101] "Sapna" "Sekovici" "Sipovo" "Sokolac" "Srbac"
## [106] "Srebrenica" "Srebrenik" "Stolac" "Teocak" "Tesanj"
## [111] "Teslic" "Tomislavgrad" "Travnik" "Trebinje" "Trnovo"
## [116] "Tuzla" "Ugljevik" "Usora" "V.Kladusa" "Vares"
## [121] "Visegrad" "Visoko" "Vitez" "Vlasenica" "Vogosca"
## [126] "Vukosavlje" "Zavidovici" "Zenica" "Zepce" "Zivinice"
## [131] "Zvornik"#6 se ne nalaye u hbs_wage.NEW.long.2 jer vec su izbacene dakle 28+5 = 33 opstine manje#FAZA 5 BRISATI OPSTINE SA MANJE OD 10 OBZERVACIJA
Delete low frequency obs (<10) ne mozemo ih stavljati u model
hbs_wage.NEW.long.3 %>%
dplyr::select(naziv_Opcine) %>%
group_by(naziv_Opcine) %>%
summarise (
n = n()
)%>%
arrange (desc(n))%>%
print(n=137) #sve su izbrisane ukupno 103 opstine## # A tibble: 103 × 2
## naziv_Opcine n
## <chr> <int>
## 1 Brcko 308
## 2 Bijeljina 229
## 3 N.G.Sarajevo 226
## 4 Banja Luka 225
## 5 Grad Mostar 188
## 6 Zenica 182
## 7 Travnik 132
## 8 Doboj 108
## 9 Bihac 96
## 10 Samac 90
## 11 Tuzla 90
## 12 Bugojno 85
## 13 Prijedor 83
## 14 Cazin 80
## 15 N.Travnik 79
## 16 Vitez 79
## 17 Sanski Most 77
## 18 Prnjavor 76
## 19 Zvornik 67
## 20 Konjic 66
## 21 Modrica 61
## 22 Novi Grad 61
## 23 Visoko 61
## 24 Tesanj 59
## 25 C.Sarajevo 58
## 26 V.Kladusa 58
## 27 N.Sarajevo 57
## 28 S.Brijeg 57
## 29 Derventa 56
## 30 Zavidovici 56
## 31 Zivinice 55
## 32 S.G.Sarajevo 52
## 33 D.Vakuf 51
## 34 Ilidza 51
## 35 Lopare 49
## 36 Teslic 49
## 37 Gradacac 48
## 38 G.Vakuf 45
## 39 Laktasi 45
## 40 Gracanica 43
## 41 Kakanj 43
## 42 Trebinje 42
## 43 Gorazde 41
## 44 Livno 41
## 45 Kiseljak 37
## 46 Foca - RS 36
## 47 B.Krupa 35
## 48 Ljubuski 35
## 49 Brod 34
## 50 Busovaca 34
## 51 Grude 34
## 52 Capljina 33
## 53 Lukavac 33
## 54 Orasje 31
## 55 Citluk 30
## 56 Maglaj 30
## 57 Kalesija 29
## 58 Ugljevik 28
## 59 Banovici 27
## 60 Gacko 27
## 61 Kresevo 26
## 62 Jajce 25
## 63 Pale 25
## 64 Rudo 25
## 65 Vogosca 25
## 66 Drvar 24
## 67 Gradiska 23
## 68 Rogatica 21
## 69 Posusje 20
## 70 Visegrad 20
## 71 Breza 19
## 72 Ilijas 19
## 73 Cajnice 18
## 74 Hadzici 18
## 75 N.Gorazde 18
## 76 Ribnik 18
## 77 Srbac 18
## 78 Vlasenica 18
## 79 I.Ilidza 17
## 80 Stolac 17
## 81 B.Petrovac 16
## 82 Kljuc 16
## 83 Kupres 16
## 84 Buzim 15
## 85 K.Dubica 15
## 86 Kotor Varos 15
## 87 Prozor 15
## 88 Bratunac 14
## 89 Fojnica 14
## 90 Kladanj 14
## 91 Knezevo 14
## 92 Bileca 13
## 93 Celinac 13
## 94 Glamoc 13
## 95 Nevesinje 13
## 96 Sokolac 13
## 97 Tomislavgrad 12
## 98 Srebrenik 11
## 99 Doboj-Jug 10
## 100 Mrkonjic 10
## 101 Olovo 10
## 102 Srebrenica 10
## 103 Teocak 10unique(hbs_wage.NEW.long.3$naziv_Opcine)## [1] "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka" "Bihac"
## [6] "Bijeljina" "Bileca" "Bratunac" "Brcko" "Breza"
## [11] "Brod" "Bugojno" "Busovaca" "Buzim" "C.Sarajevo"
## [16] "Cajnice" "Capljina" "Cazin" "Celinac" "Citluk"
## [21] "D.Vakuf" "Derventa" "Doboj" "Doboj-Jug" "Drvar"
## [26] "Foca - RS" "Fojnica" "G.Vakuf" "Gacko" "Glamoc"
## [31] "Gorazde" "Gracanica" "Grad Mostar" "Gradacac" "Gradiska"
## [36] "Grude" "Hadzici" "I.Ilidza" "Ilidza" "Ilijas"
## [41] "Jajce" "K.Dubica" "Kakanj" "Kalesija" "Kiseljak"
## [46] "Kladanj" "Kljuc" "Knezevo" "Konjic" "Kotor Varos"
## [51] "Kresevo" "Kupres" "Laktasi" "Livno" "Lopare"
## [56] "Lukavac" "Ljubuski" "Maglaj" "Modrica" "Mrkonjic"
## [61] "N.G.Sarajevo" "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje"
## [66] "Novi Grad" "Olovo" "Orasje" "Pale" "Posusje"
## [71] "Prijedor" "Prnjavor" "Prozor" "Ribnik" "Rogatica"
## [76] "Rudo" "S.Brijeg" "S.G.Sarajevo" "Samac" "Sanski Most"
## [81] "Sokolac" "Srbac" "Srebrenica" "Srebrenik" "Stolac"
## [86] "Teocak" "Tesanj" "Teslic" "Tomislavgrad" "Travnik"
## [91] "Trebinje" "Tuzla" "Ugljevik" "V.Kladusa" "Visegrad"
## [96] "Visoko" "Vitez" "Vlasenica" "Vogosca" "Zavidovici"
## [101] "Zenica" "Zivinice" "Zvornik"#104 opcine od ukupno 137 koje su u HBS, dakle u wage- imam manje 33 opstine
unique(hbs_short$naziv_Opcine)## [1] "B.Grahovo" "B.Krupa" "B.Petrovac" "Banovici" "Banja Luka"
## [6] "Berkovici" "Bihac" "Bijeljina" "Bileca" "Bratunac"
## [11] "Brcko" "Breza" "Brod" "Bugojno" "Busovaca"
## [16] "Buzim" "C.Sarajevo" "Cajnice" "Capljina" "Cazin"
## [21] "Celic" "Celinac" "Citluk" "D-Samac" "D.Vakuf"
## [26] "Derventa" "Doboj" "Doboj-Istok" "Doboj-Jug" "Dobretici"
## [31] "Donji Zabar" "Drvar" "Foca" "Foca - RS" "Fojnica"
## [36] "G.Vakuf" "Gacko" "Glamoc" "Gorazde" "Gracanica"
## [41] "Grad Mostar" "Gradacac" "Gradiska" "Grude" "Hadzici"
## [46] "Han Pijesak" "I.Ilidza" "I.N.Sarajevo" "I.Stari Grad" "Ilidza"
## [51] "Ilijas" "Jablanica" "Jajce" "Jezero" "K.Dubica"
## [56] "Kakanj" "Kalesija" "Kalinovik" "Kiseljak" "Kladanj"
## [61] "Kljuc" "Knezevo" "Konjic" "Kostajnica" "Kotor Varos"
## [66] "Kresevo" "Krupa na Uni" "Kupres" "Laktasi" "Livno"
## [71] "Lopare" "Lukavac" "Ljubinje" "Ljubuski" "Maglaj"
## [76] "Milici" "Modrica" "Mrkonjic" "N.G.Sarajevo" "N.Gorazde"
## [81] "N.Sarajevo" "N.Travnik" "Neum" "Nevesinje" "Novi Grad"
## [86] "Odzak" "Olovo" "Orasje" "Osmaci" "Ostra Luka"
## [91] "Pale" "Pale-FBiH" "Pelagicevo" "Petrovo" "Posusje"
## [96] "Prijedor" "Prnjavor" "Prozor" "Ravno" "Ribnik"
## [101] "Rogatica" "Rudo" "S.Brijeg" "S.G.Sarajevo" "Samac"
## [106] "Sanski Most" "Sapna" "Sekovici" "Sipovo" "Sokolac"
## [111] "Srbac" "Srebrenica" "Srebrenik" "Stolac" "Teocak"
## [116] "Tesanj" "Teslic" "Tomislavgrad" "Travnik" "Trebinje"
## [121] "Trnovo" "Tuzla" "Ugljevik" "Usora" "V.Kladusa"
## [126] "Vares" "Visegrad" "Visoko" "Vitez" "Vlasenica"
## [131] "Vogosca" "Vukosavlje" "Zavidovici" "Zenica" "Zepce"
## [136] "Zivinice" "Zvornik"FAZA 6 ISPITAJ VARIJABLE
Rename varijables
#PRAVIM MODEL NA BAZI OD 5034OBSERVACIJA
library(dplyr)
WI.df.allactive <- hbs_wage.NEW.long.3
WI.df.allactive <- rename(WI.df.allactive, c(wages = QA_0, Age = Age_, Activ = Activ_, Educ = Educ_, Munic = naziv_Opcine))
WI.df.allactive$Munic## [1] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [5] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [9] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [13] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [17] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [21] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [25] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [29] "B.Krupa" "B.Krupa" "B.Krupa" "B.Krupa"
## [33] "B.Krupa" "B.Krupa" "B.Krupa" "B.Petrovac"
## [37] "B.Petrovac" "B.Petrovac" "B.Petrovac" "B.Petrovac"
## [41] "B.Petrovac" "B.Petrovac" "B.Petrovac" "B.Petrovac"
## [45] "B.Petrovac" "B.Petrovac" "B.Petrovac" "B.Petrovac"
## [49] "B.Petrovac" "B.Petrovac" "B.Petrovac" "Banovici"
## [53] "Banovici" "Banovici" "Banovici" "Banovici"
## [57] "Banovici" "Banovici" "Banovici" "Banovici"
## [61] "Banovici" "Banovici" "Banovici" "Banovici"
## [65] "Banovici" "Banovici" "Banovici" "Banovici"
## [69] "Banovici" "Banovici" "Banovici" "Banovici"
## [73] "Banovici" "Banovici" "Banovici" "Banovici"
## [77] "Banovici" "Banovici" "Banja Luka" "Banja Luka"
## [81] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [85] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [89] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [93] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [97] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [101] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [105] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [109] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [113] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [117] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [121] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [125] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [129] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [133] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [137] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [141] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [145] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [149] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [153] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [157] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [161] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [165] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [169] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [173] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [177] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [181] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [185] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [189] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [193] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [197] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [201] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [205] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [209] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [213] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [217] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [221] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [225] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [229] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [233] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [237] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [241] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [245] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [249] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [253] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [257] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [261] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [265] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [269] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [273] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [277] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [281] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [285] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [289] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [293] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [297] "Banja Luka" "Banja Luka" "Banja Luka" "Banja Luka"
## [301] "Banja Luka" "Banja Luka" "Banja Luka" "Bihac"
## [305] "Bihac" "Bihac" "Bihac" "Bihac"
## [309] "Bihac" "Bihac" "Bihac" "Bihac"
## [313] "Bihac" "Bihac" "Bihac" "Bihac"
## [317] "Bihac" "Bihac" "Bihac" "Bihac"
## [321] "Bihac" "Bihac" "Bihac" "Bihac"
## [325] "Bihac" "Bihac" "Bihac" "Bihac"
## [329] "Bihac" "Bihac" "Bihac" "Bihac"
## [333] "Bihac" "Bihac" "Bihac" "Bihac"
## [337] "Bihac" "Bihac" "Bihac" "Bihac"
## [341] "Bihac" "Bihac" "Bihac" "Bihac"
## [345] "Bihac" "Bihac" "Bihac" "Bihac"
## [349] "Bihac" "Bihac" "Bihac" "Bihac"
## [353] "Bihac" "Bihac" "Bihac" "Bihac"
## [357] "Bihac" "Bihac" "Bihac" "Bihac"
## [361] "Bihac" "Bihac" "Bihac" "Bihac"
## [365] "Bihac" "Bihac" "Bihac" "Bihac"
## [369] "Bihac" "Bihac" "Bihac" "Bihac"
## [373] "Bihac" "Bihac" "Bihac" "Bihac"
## [377] "Bihac" "Bihac" "Bihac" "Bihac"
## [381] "Bihac" "Bihac" "Bihac" "Bihac"
## [385] "Bihac" "Bihac" "Bihac" "Bihac"
## [389] "Bihac" "Bihac" "Bihac" "Bihac"
## [393] "Bihac" "Bihac" "Bihac" "Bihac"
## [397] "Bihac" "Bihac" "Bihac" "Bijeljina"
## [401] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [405] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [409] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [413] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [417] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [421] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [425] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [429] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [433] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [437] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [441] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [445] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [449] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [453] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [457] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [461] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [465] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [469] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [473] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [477] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [481] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [485] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [489] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [493] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [497] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [501] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [505] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [509] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [513] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [517] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [521] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [525] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [529] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [533] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [537] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [541] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [545] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [549] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [553] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [557] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [561] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [565] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [569] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [573] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [577] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [581] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [585] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [589] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [593] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [597] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [601] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [605] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [609] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [613] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [617] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [621] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [625] "Bijeljina" "Bijeljina" "Bijeljina" "Bijeljina"
## [629] "Bileca" "Bileca" "Bileca" "Bileca"
## [633] "Bileca" "Bileca" "Bileca" "Bileca"
## [637] "Bileca" "Bileca" "Bileca" "Bileca"
## [641] "Bileca" "Bratunac" "Bratunac" "Bratunac"
## [645] "Bratunac" "Bratunac" "Bratunac" "Bratunac"
## [649] "Bratunac" "Bratunac" "Bratunac" "Bratunac"
## [653] "Bratunac" "Bratunac" "Bratunac" "Brcko"
## [657] "Brcko" "Brcko" "Brcko" "Brcko"
## [661] "Brcko" "Brcko" "Brcko" "Brcko"
## [665] "Brcko" "Brcko" "Brcko" "Brcko"
## [669] "Brcko" "Brcko" "Brcko" "Brcko"
## [673] "Brcko" "Brcko" "Brcko" "Brcko"
## [677] "Brcko" "Brcko" "Brcko" "Brcko"
## [681] "Brcko" "Brcko" "Brcko" "Brcko"
## [685] "Brcko" "Brcko" "Brcko" "Brcko"
## [689] "Brcko" "Brcko" "Brcko" "Brcko"
## [693] "Brcko" "Brcko" "Brcko" "Brcko"
## [697] "Brcko" "Brcko" "Brcko" "Brcko"
## [701] "Brcko" "Brcko" "Brcko" "Brcko"
## [705] "Brcko" "Brcko" "Brcko" "Brcko"
## [709] "Brcko" "Brcko" "Brcko" "Brcko"
## [713] "Brcko" "Brcko" "Brcko" "Brcko"
## [717] "Brcko" "Brcko" "Brcko" "Brcko"
## [721] "Brcko" "Brcko" "Brcko" "Brcko"
## [725] "Brcko" "Brcko" "Brcko" "Brcko"
## [729] "Brcko" "Brcko" "Brcko" "Brcko"
## [733] "Brcko" "Brcko" "Brcko" "Brcko"
## [737] "Brcko" "Brcko" "Brcko" "Brcko"
## [741] "Brcko" "Brcko" "Brcko" "Brcko"
## [745] "Brcko" "Brcko" "Brcko" "Brcko"
## [749] "Brcko" "Brcko" "Brcko" "Brcko"
## [753] "Brcko" "Brcko" "Brcko" "Brcko"
## [757] "Brcko" "Brcko" "Brcko" "Brcko"
## [761] "Brcko" "Brcko" "Brcko" "Brcko"
## [765] "Brcko" "Brcko" "Brcko" "Brcko"
## [769] "Brcko" "Brcko" "Brcko" "Brcko"
## [773] "Brcko" "Brcko" "Brcko" "Brcko"
## [777] "Brcko" "Brcko" "Brcko" "Brcko"
## [781] "Brcko" "Brcko" "Brcko" "Brcko"
## [785] "Brcko" "Brcko" "Brcko" "Brcko"
## [789] "Brcko" "Brcko" "Brcko" "Brcko"
## [793] "Brcko" "Brcko" "Brcko" "Brcko"
## [797] "Brcko" "Brcko" "Brcko" "Brcko"
## [801] "Brcko" "Brcko" "Brcko" "Brcko"
## [805] "Brcko" "Brcko" "Brcko" "Brcko"
## [809] "Brcko" "Brcko" "Brcko" "Brcko"
## [813] "Brcko" "Brcko" "Brcko" "Brcko"
## [817] "Brcko" "Brcko" "Brcko" "Brcko"
## [821] "Brcko" "Brcko" "Brcko" "Brcko"
## [825] "Brcko" "Brcko" "Brcko" "Brcko"
## [829] "Brcko" "Brcko" "Brcko" "Brcko"
## [833] "Brcko" "Brcko" "Brcko" "Brcko"
## [837] "Brcko" "Brcko" "Brcko" "Brcko"
## [841] "Brcko" "Brcko" "Brcko" "Brcko"
## [845] "Brcko" "Brcko" "Brcko" "Brcko"
## [849] "Brcko" "Brcko" "Brcko" "Brcko"
## [853] "Brcko" "Brcko" "Brcko" "Brcko"
## [857] "Brcko" "Brcko" "Brcko" "Brcko"
## [861] "Brcko" "Brcko" "Brcko" "Brcko"
## [865] "Brcko" "Brcko" "Brcko" "Brcko"
## [869] "Brcko" "Brcko" "Brcko" "Brcko"
## [873] "Brcko" "Brcko" "Brcko" "Brcko"
## [877] "Brcko" "Brcko" "Brcko" "Brcko"
## [881] "Brcko" "Brcko" "Brcko" "Brcko"
## [885] "Brcko" "Brcko" "Brcko" "Brcko"
## [889] "Brcko" "Brcko" "Brcko" "Brcko"
## [893] "Brcko" "Brcko" "Brcko" "Brcko"
## [897] "Brcko" "Brcko" "Brcko" "Brcko"
## [901] "Brcko" "Brcko" "Brcko" "Brcko"
## [905] "Brcko" "Brcko" "Brcko" "Brcko"
## [909] "Brcko" "Brcko" "Brcko" "Brcko"
## [913] "Brcko" "Brcko" "Brcko" "Brcko"
## [917] "Brcko" "Brcko" "Brcko" "Brcko"
## [921] "Brcko" "Brcko" "Brcko" "Brcko"
## [925] "Brcko" "Brcko" "Brcko" "Brcko"
## [929] "Brcko" "Brcko" "Brcko" "Brcko"
## [933] "Brcko" "Brcko" "Brcko" "Brcko"
## [937] "Brcko" "Brcko" "Brcko" "Brcko"
## [941] "Brcko" "Brcko" "Brcko" "Brcko"
## [945] "Brcko" "Brcko" "Brcko" "Brcko"
## [949] "Brcko" "Brcko" "Brcko" "Brcko"
## [953] "Brcko" "Brcko" "Brcko" "Brcko"
## [957] "Brcko" "Brcko" "Brcko" "Brcko"
## [961] "Brcko" "Brcko" "Brcko" "Breza"
## [965] "Breza" "Breza" "Breza" "Breza"
## [969] "Breza" "Breza" "Breza" "Breza"
## [973] "Breza" "Breza" "Breza" "Breza"
## [977] "Breza" "Breza" "Breza" "Breza"
## [981] "Breza" "Breza" "Brod" "Brod"
## [985] "Brod" "Brod" "Brod" "Brod"
## [989] "Brod" "Brod" "Brod" "Brod"
## [993] "Brod" "Brod" "Brod" "Brod"
## [997] "Brod" "Brod" "Brod" "Brod"
## [1001] "Brod" "Brod" "Brod" "Brod"
## [1005] "Brod" "Brod" "Brod" "Brod"
## [1009] "Brod" "Brod" "Brod" "Brod"
## [1013] "Brod" "Brod" "Brod" "Brod"
## [1017] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1021] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1025] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1029] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1033] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1037] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1041] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1045] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1049] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1053] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1057] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1061] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1065] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1069] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1073] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1077] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1081] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1085] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1089] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1093] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1097] "Bugojno" "Bugojno" "Bugojno" "Bugojno"
## [1101] "Bugojno" "Busovaca" "Busovaca" "Busovaca"
## [1105] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1109] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1113] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1117] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1121] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1125] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1129] "Busovaca" "Busovaca" "Busovaca" "Busovaca"
## [1133] "Busovaca" "Busovaca" "Busovaca" "Buzim"
## [1137] "Buzim" "Buzim" "Buzim" "Buzim"
## [1141] "Buzim" "Buzim" "Buzim" "Buzim"
## [1145] "Buzim" "Buzim" "Buzim" "Buzim"
## [1149] "Buzim" "Buzim" "C.Sarajevo" "C.Sarajevo"
## [1153] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1157] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1161] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1165] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1169] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1173] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1177] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1181] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1185] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1189] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1193] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1197] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1201] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1205] "C.Sarajevo" "C.Sarajevo" "C.Sarajevo" "C.Sarajevo"
## [1209] "Cajnice" "Cajnice" "Cajnice" "Cajnice"
## [1213] "Cajnice" "Cajnice" "Cajnice" "Cajnice"
## [1217] "Cajnice" "Cajnice" "Cajnice" "Cajnice"
## [1221] "Cajnice" "Cajnice" "Cajnice" "Cajnice"
## [1225] "Cajnice" "Cajnice" "Capljina" "Capljina"
## [1229] "Capljina" "Capljina" "Capljina" "Capljina"
## [1233] "Capljina" "Capljina" "Capljina" "Capljina"
## [1237] "Capljina" "Capljina" "Capljina" "Capljina"
## [1241] "Capljina" "Capljina" "Capljina" "Capljina"
## [1245] "Capljina" "Capljina" "Capljina" "Capljina"
## [1249] "Capljina" "Capljina" "Capljina" "Capljina"
## [1253] "Capljina" "Capljina" "Capljina" "Capljina"
## [1257] "Capljina" "Capljina" "Capljina" "Cazin"
## [1261] "Cazin" "Cazin" "Cazin" "Cazin"
## [1265] "Cazin" "Cazin" "Cazin" "Cazin"
## [1269] "Cazin" "Cazin" "Cazin" "Cazin"
## [1273] "Cazin" "Cazin" "Cazin" "Cazin"
## [1277] "Cazin" "Cazin" "Cazin" "Cazin"
## [1281] "Cazin" "Cazin" "Cazin" "Cazin"
## [1285] "Cazin" "Cazin" "Cazin" "Cazin"
## [1289] "Cazin" "Cazin" "Cazin" "Cazin"
## [1293] "Cazin" "Cazin" "Cazin" "Cazin"
## [1297] "Cazin" "Cazin" "Cazin" "Cazin"
## [1301] "Cazin" "Cazin" "Cazin" "Cazin"
## [1305] "Cazin" "Cazin" "Cazin" "Cazin"
## [1309] "Cazin" "Cazin" "Cazin" "Cazin"
## [1313] "Cazin" "Cazin" "Cazin" "Cazin"
## [1317] "Cazin" "Cazin" "Cazin" "Cazin"
## [1321] "Cazin" "Cazin" "Cazin" "Cazin"
## [1325] "Cazin" "Cazin" "Cazin" "Cazin"
## [1329] "Cazin" "Cazin" "Cazin" "Cazin"
## [1333] "Cazin" "Cazin" "Cazin" "Cazin"
## [1337] "Cazin" "Cazin" "Cazin" "Celinac"
## [1341] "Celinac" "Celinac" "Celinac" "Celinac"
## [1345] "Celinac" "Celinac" "Celinac" "Celinac"
## [1349] "Celinac" "Celinac" "Celinac" "Celinac"
## [1353] "Citluk" "Citluk" "Citluk" "Citluk"
## [1357] "Citluk" "Citluk" "Citluk" "Citluk"
## [1361] "Citluk" "Citluk" "Citluk" "Citluk"
## [1365] "Citluk" "Citluk" "Citluk" "Citluk"
## [1369] "Citluk" "Citluk" "Citluk" "Citluk"
## [1373] "Citluk" "Citluk" "Citluk" "Citluk"
## [1377] "Citluk" "Citluk" "Citluk" "Citluk"
## [1381] "Citluk" "Citluk" "D.Vakuf" "D.Vakuf"
## [1385] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1389] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1393] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1397] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1401] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1405] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1409] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1413] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1417] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1421] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1425] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1429] "D.Vakuf" "D.Vakuf" "D.Vakuf" "D.Vakuf"
## [1433] "D.Vakuf" "Derventa" "Derventa" "Derventa"
## [1437] "Derventa" "Derventa" "Derventa" "Derventa"
## [1441] "Derventa" "Derventa" "Derventa" "Derventa"
## [1445] "Derventa" "Derventa" "Derventa" "Derventa"
## [1449] "Derventa" "Derventa" "Derventa" "Derventa"
## [1453] "Derventa" "Derventa" "Derventa" "Derventa"
## [1457] "Derventa" "Derventa" "Derventa" "Derventa"
## [1461] "Derventa" "Derventa" "Derventa" "Derventa"
## [1465] "Derventa" "Derventa" "Derventa" "Derventa"
## [1469] "Derventa" "Derventa" "Derventa" "Derventa"
## [1473] "Derventa" "Derventa" "Derventa" "Derventa"
## [1477] "Derventa" "Derventa" "Derventa" "Derventa"
## [1481] "Derventa" "Derventa" "Derventa" "Derventa"
## [1485] "Derventa" "Derventa" "Derventa" "Derventa"
## [1489] "Derventa" "Doboj" "Doboj" "Doboj"
## [1493] "Doboj" "Doboj" "Doboj" "Doboj"
## [1497] "Doboj" "Doboj" "Doboj" "Doboj"
## [1501] "Doboj" "Doboj" "Doboj" "Doboj"
## [1505] "Doboj" "Doboj" "Doboj" "Doboj"
## [1509] "Doboj" "Doboj" "Doboj" "Doboj"
## [1513] "Doboj" "Doboj" "Doboj" "Doboj"
## [1517] "Doboj" "Doboj" "Doboj" "Doboj"
## [1521] "Doboj" "Doboj" "Doboj" "Doboj"
## [1525] "Doboj" "Doboj" "Doboj" "Doboj"
## [1529] "Doboj" "Doboj" "Doboj" "Doboj"
## [1533] "Doboj" "Doboj" "Doboj" "Doboj"
## [1537] "Doboj" "Doboj" "Doboj" "Doboj"
## [1541] "Doboj" "Doboj" "Doboj" "Doboj"
## [1545] "Doboj" "Doboj" "Doboj" "Doboj"
## [1549] "Doboj" "Doboj" "Doboj" "Doboj"
## [1553] "Doboj" "Doboj" "Doboj" "Doboj"
## [1557] "Doboj" "Doboj" "Doboj" "Doboj"
## [1561] "Doboj" "Doboj" "Doboj" "Doboj"
## [1565] "Doboj" "Doboj" "Doboj" "Doboj"
## [1569] "Doboj" "Doboj" "Doboj" "Doboj"
## [1573] "Doboj" "Doboj" "Doboj" "Doboj"
## [1577] "Doboj" "Doboj" "Doboj" "Doboj"
## [1581] "Doboj" "Doboj" "Doboj" "Doboj"
## [1585] "Doboj" "Doboj" "Doboj" "Doboj"
## [1589] "Doboj" "Doboj" "Doboj" "Doboj"
## [1593] "Doboj" "Doboj" "Doboj" "Doboj"
## [1597] "Doboj" "Doboj-Jug" "Doboj-Jug" "Doboj-Jug"
## [1601] "Doboj-Jug" "Doboj-Jug" "Doboj-Jug" "Doboj-Jug"
## [1605] "Doboj-Jug" "Doboj-Jug" "Doboj-Jug" "Drvar"
## [1609] "Drvar" "Drvar" "Drvar" "Drvar"
## [1613] "Drvar" "Drvar" "Drvar" "Drvar"
## [1617] "Drvar" "Drvar" "Drvar" "Drvar"
## [1621] "Drvar" "Drvar" "Drvar" "Drvar"
## [1625] "Drvar" "Drvar" "Drvar" "Drvar"
## [1629] "Drvar" "Drvar" "Drvar" "Foca - RS"
## [1633] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1637] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1641] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1645] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1649] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1653] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1657] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1661] "Foca - RS" "Foca - RS" "Foca - RS" "Foca - RS"
## [1665] "Foca - RS" "Foca - RS" "Foca - RS" "Fojnica"
## [1669] "Fojnica" "Fojnica" "Fojnica" "Fojnica"
## [1673] "Fojnica" "Fojnica" "Fojnica" "Fojnica"
## [1677] "Fojnica" "Fojnica" "Fojnica" "Fojnica"
## [1681] "Fojnica" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1685] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1689] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1693] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1697] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1701] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1705] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1709] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1713] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1717] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1721] "G.Vakuf" "G.Vakuf" "G.Vakuf" "G.Vakuf"
## [1725] "G.Vakuf" "G.Vakuf" "Gacko" "Gacko"
## [1729] "Gacko" "Gacko" "Gacko" "Gacko"
## [1733] "Gacko" "Gacko" "Gacko" "Gacko"
## [1737] "Gacko" "Gacko" "Gacko" "Gacko"
## [1741] "Gacko" "Gacko" "Gacko" "Gacko"
## [1745] "Gacko" "Gacko" "Gacko" "Gacko"
## [1749] "Gacko" "Gacko" "Gacko" "Gacko"
## [1753] "Gacko" "Glamoc" "Glamoc" "Glamoc"
## [1757] "Glamoc" "Glamoc" "Glamoc" "Glamoc"
## [1761] "Glamoc" "Glamoc" "Glamoc" "Glamoc"
## [1765] "Glamoc" "Glamoc" "Gorazde" "Gorazde"
## [1769] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1773] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1777] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1781] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1785] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1789] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1793] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1797] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1801] "Gorazde" "Gorazde" "Gorazde" "Gorazde"
## [1805] "Gorazde" "Gorazde" "Gorazde" "Gracanica"
## [1809] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1813] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1817] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1821] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1825] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1829] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1833] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1837] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1841] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1845] "Gracanica" "Gracanica" "Gracanica" "Gracanica"
## [1849] "Gracanica" "Gracanica" "Grad Mostar" "Grad Mostar"
## [1853] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1857] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1861] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1865] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1869] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1873] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1877] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1881] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1885] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1889] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1893] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1897] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1901] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1905] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1909] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1913] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1917] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1921] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1925] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1929] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1933] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1937] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1941] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1945] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1949] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1953] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1957] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1961] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1965] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1969] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1973] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1977] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1981] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1985] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1989] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1993] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [1997] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2001] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2005] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2009] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2013] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2017] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2021] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2025] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2029] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2033] "Grad Mostar" "Grad Mostar" "Grad Mostar" "Grad Mostar"
## [2037] "Grad Mostar" "Grad Mostar" "Gradacac" "Gradacac"
## [2041] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2045] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2049] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2053] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2057] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2061] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2065] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2069] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2073] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2077] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2081] "Gradacac" "Gradacac" "Gradacac" "Gradacac"
## [2085] "Gradacac" "Gradacac" "Gradiska" "Gradiska"
## [2089] "Gradiska" "Gradiska" "Gradiska" "Gradiska"
## [2093] "Gradiska" "Gradiska" "Gradiska" "Gradiska"
## [2097] "Gradiska" "Gradiska" "Gradiska" "Gradiska"
## [2101] "Gradiska" "Gradiska" "Gradiska" "Gradiska"
## [2105] "Gradiska" "Gradiska" "Gradiska" "Gradiska"
## [2109] "Gradiska" "Grude" "Grude" "Grude"
## [2113] "Grude" "Grude" "Grude" "Grude"
## [2117] "Grude" "Grude" "Grude" "Grude"
## [2121] "Grude" "Grude" "Grude" "Grude"
## [2125] "Grude" "Grude" "Grude" "Grude"
## [2129] "Grude" "Grude" "Grude" "Grude"
## [2133] "Grude" "Grude" "Grude" "Grude"
## [2137] "Grude" "Grude" "Grude" "Grude"
## [2141] "Grude" "Grude" "Grude" "Hadzici"
## [2145] "Hadzici" "Hadzici" "Hadzici" "Hadzici"
## [2149] "Hadzici" "Hadzici" "Hadzici" "Hadzici"
## [2153] "Hadzici" "Hadzici" "Hadzici" "Hadzici"
## [2157] "Hadzici" "Hadzici" "Hadzici" "Hadzici"
## [2161] "Hadzici" "I.Ilidza" "I.Ilidza" "I.Ilidza"
## [2165] "I.Ilidza" "I.Ilidza" "I.Ilidza" "I.Ilidza"
## [2169] "I.Ilidza" "I.Ilidza" "I.Ilidza" "I.Ilidza"
## [2173] "I.Ilidza" "I.Ilidza" "I.Ilidza" "I.Ilidza"
## [2177] "I.Ilidza" "I.Ilidza" "Ilidza" "Ilidza"
## [2181] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2185] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2189] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2193] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2197] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2201] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2205] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2209] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2213] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2217] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2221] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2225] "Ilidza" "Ilidza" "Ilidza" "Ilidza"
## [2229] "Ilidza" "Ilijas" "Ilijas" "Ilijas"
## [2233] "Ilijas" "Ilijas" "Ilijas" "Ilijas"
## [2237] "Ilijas" "Ilijas" "Ilijas" "Ilijas"
## [2241] "Ilijas" "Ilijas" "Ilijas" "Ilijas"
## [2245] "Ilijas" "Ilijas" "Ilijas" "Ilijas"
## [2249] "Jajce" "Jajce" "Jajce" "Jajce"
## [2253] "Jajce" "Jajce" "Jajce" "Jajce"
## [2257] "Jajce" "Jajce" "Jajce" "Jajce"
## [2261] "Jajce" "Jajce" "Jajce" "Jajce"
## [2265] "Jajce" "Jajce" "Jajce" "Jajce"
## [2269] "Jajce" "Jajce" "Jajce" "Jajce"
## [2273] "Jajce" "K.Dubica" "K.Dubica" "K.Dubica"
## [2277] "K.Dubica" "K.Dubica" "K.Dubica" "K.Dubica"
## [2281] "K.Dubica" "K.Dubica" "K.Dubica" "K.Dubica"
## [2285] "K.Dubica" "K.Dubica" "K.Dubica" "K.Dubica"
## [2289] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2293] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2297] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2301] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2305] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2309] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2313] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2317] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2321] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2325] "Kakanj" "Kakanj" "Kakanj" "Kakanj"
## [2329] "Kakanj" "Kakanj" "Kakanj" "Kalesija"
## [2333] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2337] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2341] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2345] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2349] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2353] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2357] "Kalesija" "Kalesija" "Kalesija" "Kalesija"
## [2361] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2365] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2369] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2373] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2377] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2381] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2385] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2389] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2393] "Kiseljak" "Kiseljak" "Kiseljak" "Kiseljak"
## [2397] "Kiseljak" "Kladanj" "Kladanj" "Kladanj"
## [2401] "Kladanj" "Kladanj" "Kladanj" "Kladanj"
## [2405] "Kladanj" "Kladanj" "Kladanj" "Kladanj"
## [2409] "Kladanj" "Kladanj" "Kladanj" "Kljuc"
## [2413] "Kljuc" "Kljuc" "Kljuc" "Kljuc"
## [2417] "Kljuc" "Kljuc" "Kljuc" "Kljuc"
## [2421] "Kljuc" "Kljuc" "Kljuc" "Kljuc"
## [2425] "Kljuc" "Kljuc" "Kljuc" "Knezevo"
## [2429] "Knezevo" "Knezevo" "Knezevo" "Knezevo"
## [2433] "Knezevo" "Knezevo" "Knezevo" "Knezevo"
## [2437] "Knezevo" "Knezevo" "Knezevo" "Knezevo"
## [2441] "Knezevo" "Konjic" "Konjic" "Konjic"
## [2445] "Konjic" "Konjic" "Konjic" "Konjic"
## [2449] "Konjic" "Konjic" "Konjic" "Konjic"
## [2453] "Konjic" "Konjic" "Konjic" "Konjic"
## [2457] "Konjic" "Konjic" "Konjic" "Konjic"
## [2461] "Konjic" "Konjic" "Konjic" "Konjic"
## [2465] "Konjic" "Konjic" "Konjic" "Konjic"
## [2469] "Konjic" "Konjic" "Konjic" "Konjic"
## [2473] "Konjic" "Konjic" "Konjic" "Konjic"
## [2477] "Konjic" "Konjic" "Konjic" "Konjic"
## [2481] "Konjic" "Konjic" "Konjic" "Konjic"
## [2485] "Konjic" "Konjic" "Konjic" "Konjic"
## [2489] "Konjic" "Konjic" "Konjic" "Konjic"
## [2493] "Konjic" "Konjic" "Konjic" "Konjic"
## [2497] "Konjic" "Konjic" "Konjic" "Konjic"
## [2501] "Konjic" "Konjic" "Konjic" "Konjic"
## [2505] "Konjic" "Konjic" "Konjic" "Kotor Varos"
## [2509] "Kotor Varos" "Kotor Varos" "Kotor Varos" "Kotor Varos"
## [2513] "Kotor Varos" "Kotor Varos" "Kotor Varos" "Kotor Varos"
## [2517] "Kotor Varos" "Kotor Varos" "Kotor Varos" "Kotor Varos"
## [2521] "Kotor Varos" "Kotor Varos" "Kresevo" "Kresevo"
## [2525] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2529] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2533] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2537] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2541] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2545] "Kresevo" "Kresevo" "Kresevo" "Kresevo"
## [2549] "Kupres" "Kupres" "Kupres" "Kupres"
## [2553] "Kupres" "Kupres" "Kupres" "Kupres"
## [2557] "Kupres" "Kupres" "Kupres" "Kupres"
## [2561] "Kupres" "Kupres" "Kupres" "Kupres"
## [2565] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2569] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2573] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2577] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2581] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2585] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2589] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2593] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2597] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2601] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2605] "Laktasi" "Laktasi" "Laktasi" "Laktasi"
## [2609] "Laktasi" "Livno" "Livno" "Livno"
## [2613] "Livno" "Livno" "Livno" "Livno"
## [2617] "Livno" "Livno" "Livno" "Livno"
## [2621] "Livno" "Livno" "Livno" "Livno"
## [2625] "Livno" "Livno" "Livno" "Livno"
## [2629] "Livno" "Livno" "Livno" "Livno"
## [2633] "Livno" "Livno" "Livno" "Livno"
## [2637] "Livno" "Livno" "Livno" "Livno"
## [2641] "Livno" "Livno" "Livno" "Livno"
## [2645] "Livno" "Livno" "Livno" "Livno"
## [2649] "Livno" "Livno" "Lopare" "Lopare"
## [2653] "Lopare" "Lopare" "Lopare" "Lopare"
## [2657] "Lopare" "Lopare" "Lopare" "Lopare"
## [2661] "Lopare" "Lopare" "Lopare" "Lopare"
## [2665] "Lopare" "Lopare" "Lopare" "Lopare"
## [2669] "Lopare" "Lopare" "Lopare" "Lopare"
## [2673] "Lopare" "Lopare" "Lopare" "Lopare"
## [2677] "Lopare" "Lopare" "Lopare" "Lopare"
## [2681] "Lopare" "Lopare" "Lopare" "Lopare"
## [2685] "Lopare" "Lopare" "Lopare" "Lopare"
## [2689] "Lopare" "Lopare" "Lopare" "Lopare"
## [2693] "Lopare" "Lopare" "Lopare" "Lopare"
## [2697] "Lopare" "Lopare" "Lopare" "Lukavac"
## [2701] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2705] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2709] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2713] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2717] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2721] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2725] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2729] "Lukavac" "Lukavac" "Lukavac" "Lukavac"
## [2733] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2737] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2741] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2745] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2749] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2753] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2757] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2761] "Ljubuski" "Ljubuski" "Ljubuski" "Ljubuski"
## [2765] "Ljubuski" "Ljubuski" "Ljubuski" "Maglaj"
## [2769] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2773] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2777] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2781] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2785] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2789] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2793] "Maglaj" "Maglaj" "Maglaj" "Maglaj"
## [2797] "Maglaj" "Modrica" "Modrica" "Modrica"
## [2801] "Modrica" "Modrica" "Modrica" "Modrica"
## [2805] "Modrica" "Modrica" "Modrica" "Modrica"
## [2809] "Modrica" "Modrica" "Modrica" "Modrica"
## [2813] "Modrica" "Modrica" "Modrica" "Modrica"
## [2817] "Modrica" "Modrica" "Modrica" "Modrica"
## [2821] "Modrica" "Modrica" "Modrica" "Modrica"
## [2825] "Modrica" "Modrica" "Modrica" "Modrica"
## [2829] "Modrica" "Modrica" "Modrica" "Modrica"
## [2833] "Modrica" "Modrica" "Modrica" "Modrica"
## [2837] "Modrica" "Modrica" "Modrica" "Modrica"
## [2841] "Modrica" "Modrica" "Modrica" "Modrica"
## [2845] "Modrica" "Modrica" "Modrica" "Modrica"
## [2849] "Modrica" "Modrica" "Modrica" "Modrica"
## [2853] "Modrica" "Modrica" "Modrica" "Modrica"
## [2857] "Modrica" "Modrica" "Mrkonjic" "Mrkonjic"
## [2861] "Mrkonjic" "Mrkonjic" "Mrkonjic" "Mrkonjic"
## [2865] "Mrkonjic" "Mrkonjic" "Mrkonjic" "Mrkonjic"
## [2869] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2873] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2877] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2881] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2885] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2889] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2893] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2897] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2901] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2905] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2909] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2913] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2917] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2921] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2925] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2929] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2933] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2937] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2941] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2945] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2949] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2953] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2957] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2961] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2965] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2969] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2973] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2977] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2981] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2985] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2989] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2993] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [2997] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3001] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3005] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3009] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3013] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3017] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3021] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3025] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3029] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3033] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3037] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3041] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3045] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3049] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3053] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3057] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3061] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3065] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3069] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3073] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3077] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3081] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3085] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3089] "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo" "N.G.Sarajevo"
## [3093] "N.G.Sarajevo" "N.G.Sarajevo" "N.Gorazde" "N.Gorazde"
## [3097] "N.Gorazde" "N.Gorazde" "N.Gorazde" "N.Gorazde"
## [3101] "N.Gorazde" "N.Gorazde" "N.Gorazde" "N.Gorazde"
## [3105] "N.Gorazde" "N.Gorazde" "N.Gorazde" "N.Gorazde"
## [3109] "N.Gorazde" "N.Gorazde" "N.Gorazde" "N.Gorazde"
## [3113] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3117] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3121] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3125] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3129] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3133] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3137] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3141] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3145] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3149] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3153] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3157] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3161] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3165] "N.Sarajevo" "N.Sarajevo" "N.Sarajevo" "N.Sarajevo"
## [3169] "N.Sarajevo" "N.Travnik" "N.Travnik" "N.Travnik"
## [3173] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3177] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3181] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3185] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3189] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3193] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3197] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3201] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3205] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3209] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3213] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3217] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3221] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3225] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3229] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3233] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3237] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3241] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3245] "N.Travnik" "N.Travnik" "N.Travnik" "N.Travnik"
## [3249] "Nevesinje" "Nevesinje" "Nevesinje" "Nevesinje"
## [3253] "Nevesinje" "Nevesinje" "Nevesinje" "Nevesinje"
## [3257] "Nevesinje" "Nevesinje" "Nevesinje" "Nevesinje"
## [3261] "Nevesinje" "Novi Grad" "Novi Grad" "Novi Grad"
## [3265] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3269] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3273] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3277] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3281] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3285] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3289] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3293] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3297] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3301] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3305] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3309] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3313] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3317] "Novi Grad" "Novi Grad" "Novi Grad" "Novi Grad"
## [3321] "Novi Grad" "Novi Grad" "Olovo" "Olovo"
## [3325] "Olovo" "Olovo" "Olovo" "Olovo"
## [3329] "Olovo" "Olovo" "Olovo" "Olovo"
## [3333] "Orasje" "Orasje" "Orasje" "Orasje"
## [3337] "Orasje" "Orasje" "Orasje" "Orasje"
## [3341] "Orasje" "Orasje" "Orasje" "Orasje"
## [3345] "Orasje" "Orasje" "Orasje" "Orasje"
## [3349] "Orasje" "Orasje" "Orasje" "Orasje"
## [3353] "Orasje" "Orasje" "Orasje" "Orasje"
## [3357] "Orasje" "Orasje" "Orasje" "Orasje"
## [3361] "Orasje" "Orasje" "Orasje" "Pale"
## [3365] "Pale" "Pale" "Pale" "Pale"
## [3369] "Pale" "Pale" "Pale" "Pale"
## [3373] "Pale" "Pale" "Pale" "Pale"
## [3377] "Pale" "Pale" "Pale" "Pale"
## [3381] "Pale" "Pale" "Pale" "Pale"
## [3385] "Pale" "Pale" "Pale" "Pale"
## [3389] "Posusje" "Posusje" "Posusje" "Posusje"
## [3393] "Posusje" "Posusje" "Posusje" "Posusje"
## [3397] "Posusje" "Posusje" "Posusje" "Posusje"
## [3401] "Posusje" "Posusje" "Posusje" "Posusje"
## [3405] "Posusje" "Posusje" "Posusje" "Posusje"
## [3409] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3413] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3417] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3421] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3425] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3429] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3433] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3437] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3441] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3445] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3449] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3453] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3457] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3461] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3465] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3469] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3473] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3477] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3481] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3485] "Prijedor" "Prijedor" "Prijedor" "Prijedor"
## [3489] "Prijedor" "Prijedor" "Prijedor" "Prnjavor"
## [3493] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3497] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3501] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3505] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3509] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3513] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3517] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3521] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3525] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3529] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3533] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3537] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3541] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3545] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3549] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3553] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3557] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3561] "Prnjavor" "Prnjavor" "Prnjavor" "Prnjavor"
## [3565] "Prnjavor" "Prnjavor" "Prnjavor" "Prozor"
## [3569] "Prozor" "Prozor" "Prozor" "Prozor"
## [3573] "Prozor" "Prozor" "Prozor" "Prozor"
## [3577] "Prozor" "Prozor" "Prozor" "Prozor"
## [3581] "Prozor" "Prozor" "Ribnik" "Ribnik"
## [3585] "Ribnik" "Ribnik" "Ribnik" "Ribnik"
## [3589] "Ribnik" "Ribnik" "Ribnik" "Ribnik"
## [3593] "Ribnik" "Ribnik" "Ribnik" "Ribnik"
## [3597] "Ribnik" "Ribnik" "Ribnik" "Ribnik"
## [3601] "Rogatica" "Rogatica" "Rogatica" "Rogatica"
## [3605] "Rogatica" "Rogatica" "Rogatica" "Rogatica"
## [3609] "Rogatica" "Rogatica" "Rogatica" "Rogatica"
## [3613] "Rogatica" "Rogatica" "Rogatica" "Rogatica"
## [3617] "Rogatica" "Rogatica" "Rogatica" "Rogatica"
## [3621] "Rogatica" "Rudo" "Rudo" "Rudo"
## [3625] "Rudo" "Rudo" "Rudo" "Rudo"
## [3629] "Rudo" "Rudo" "Rudo" "Rudo"
## [3633] "Rudo" "Rudo" "Rudo" "Rudo"
## [3637] "Rudo" "Rudo" "Rudo" "Rudo"
## [3641] "Rudo" "Rudo" "Rudo" "Rudo"
## [3645] "Rudo" "Rudo" "S.Brijeg" "S.Brijeg"
## [3649] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3653] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3657] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3661] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3665] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3669] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3673] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3677] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3681] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3685] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3689] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3693] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3697] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.Brijeg"
## [3701] "S.Brijeg" "S.Brijeg" "S.Brijeg" "S.G.Sarajevo"
## [3705] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3709] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3713] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3717] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3721] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3725] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3729] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3733] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3737] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3741] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3745] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3749] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo"
## [3753] "S.G.Sarajevo" "S.G.Sarajevo" "S.G.Sarajevo" "Samac"
## [3757] "Samac" "Samac" "Samac" "Samac"
## [3761] "Samac" "Samac" "Samac" "Samac"
## [3765] "Samac" "Samac" "Samac" "Samac"
## [3769] "Samac" "Samac" "Samac" "Samac"
## [3773] "Samac" "Samac" "Samac" "Samac"
## [3777] "Samac" "Samac" "Samac" "Samac"
## [3781] "Samac" "Samac" "Samac" "Samac"
## [3785] "Samac" "Samac" "Samac" "Samac"
## [3789] "Samac" "Samac" "Samac" "Samac"
## [3793] "Samac" "Samac" "Samac" "Samac"
## [3797] "Samac" "Samac" "Samac" "Samac"
## [3801] "Samac" "Samac" "Samac" "Samac"
## [3805] "Samac" "Samac" "Samac" "Samac"
## [3809] "Samac" "Samac" "Samac" "Samac"
## [3813] "Samac" "Samac" "Samac" "Samac"
## [3817] "Samac" "Samac" "Samac" "Samac"
## [3821] "Samac" "Samac" "Samac" "Samac"
## [3825] "Samac" "Samac" "Samac" "Samac"
## [3829] "Samac" "Samac" "Samac" "Samac"
## [3833] "Samac" "Samac" "Samac" "Samac"
## [3837] "Samac" "Samac" "Samac" "Samac"
## [3841] "Samac" "Samac" "Samac" "Samac"
## [3845] "Samac" "Sanski Most" "Sanski Most" "Sanski Most"
## [3849] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3853] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3857] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3861] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3865] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3869] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3873] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3877] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3881] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3885] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3889] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3893] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3897] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3901] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3905] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3909] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3913] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3917] "Sanski Most" "Sanski Most" "Sanski Most" "Sanski Most"
## [3921] "Sanski Most" "Sanski Most" "Sokolac" "Sokolac"
## [3925] "Sokolac" "Sokolac" "Sokolac" "Sokolac"
## [3929] "Sokolac" "Sokolac" "Sokolac" "Sokolac"
## [3933] "Sokolac" "Sokolac" "Sokolac" "Srbac"
## [3937] "Srbac" "Srbac" "Srbac" "Srbac"
## [3941] "Srbac" "Srbac" "Srbac" "Srbac"
## [3945] "Srbac" "Srbac" "Srbac" "Srbac"
## [3949] "Srbac" "Srbac" "Srbac" "Srbac"
## [3953] "Srbac" "Srebrenica" "Srebrenica" "Srebrenica"
## [3957] "Srebrenica" "Srebrenica" "Srebrenica" "Srebrenica"
## [3961] "Srebrenica" "Srebrenica" "Srebrenica" "Srebrenik"
## [3965] "Srebrenik" "Srebrenik" "Srebrenik" "Srebrenik"
## [3969] "Srebrenik" "Srebrenik" "Srebrenik" "Srebrenik"
## [3973] "Srebrenik" "Srebrenik" "Stolac" "Stolac"
## [3977] "Stolac" "Stolac" "Stolac" "Stolac"
## [3981] "Stolac" "Stolac" "Stolac" "Stolac"
## [3985] "Stolac" "Stolac" "Stolac" "Stolac"
## [3989] "Stolac" "Stolac" "Stolac" "Teocak"
## [3993] "Teocak" "Teocak" "Teocak" "Teocak"
## [3997] "Teocak" "Teocak" "Teocak" "Teocak"
## [4001] "Teocak" "Tesanj" "Tesanj" "Tesanj"
## [4005] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4009] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4013] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4017] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4021] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4025] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4029] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4033] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4037] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4041] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4045] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4049] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4053] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4057] "Tesanj" "Tesanj" "Tesanj" "Tesanj"
## [4061] "Teslic" "Teslic" "Teslic" "Teslic"
## [4065] "Teslic" "Teslic" "Teslic" "Teslic"
## [4069] "Teslic" "Teslic" "Teslic" "Teslic"
## [4073] "Teslic" "Teslic" "Teslic" "Teslic"
## [4077] "Teslic" "Teslic" "Teslic" "Teslic"
## [4081] "Teslic" "Teslic" "Teslic" "Teslic"
## [4085] "Teslic" "Teslic" "Teslic" "Teslic"
## [4089] "Teslic" "Teslic" "Teslic" "Teslic"
## [4093] "Teslic" "Teslic" "Teslic" "Teslic"
## [4097] "Teslic" "Teslic" "Teslic" "Teslic"
## [4101] "Teslic" "Teslic" "Teslic" "Teslic"
## [4105] "Teslic" "Teslic" "Teslic" "Teslic"
## [4109] "Teslic" "Tomislavgrad" "Tomislavgrad" "Tomislavgrad"
## [4113] "Tomislavgrad" "Tomislavgrad" "Tomislavgrad" "Tomislavgrad"
## [4117] "Tomislavgrad" "Tomislavgrad" "Tomislavgrad" "Tomislavgrad"
## [4121] "Tomislavgrad" "Travnik" "Travnik" "Travnik"
## [4125] "Travnik" "Travnik" "Travnik" "Travnik"
## [4129] "Travnik" "Travnik" "Travnik" "Travnik"
## [4133] "Travnik" "Travnik" "Travnik" "Travnik"
## [4137] "Travnik" "Travnik" "Travnik" "Travnik"
## [4141] "Travnik" "Travnik" "Travnik" "Travnik"
## [4145] "Travnik" "Travnik" "Travnik" "Travnik"
## [4149] "Travnik" "Travnik" "Travnik" "Travnik"
## [4153] "Travnik" "Travnik" "Travnik" "Travnik"
## [4157] "Travnik" "Travnik" "Travnik" "Travnik"
## [4161] "Travnik" "Travnik" "Travnik" "Travnik"
## [4165] "Travnik" "Travnik" "Travnik" "Travnik"
## [4169] "Travnik" "Travnik" "Travnik" "Travnik"
## [4173] "Travnik" "Travnik" "Travnik" "Travnik"
## [4177] "Travnik" "Travnik" "Travnik" "Travnik"
## [4181] "Travnik" "Travnik" "Travnik" "Travnik"
## [4185] "Travnik" "Travnik" "Travnik" "Travnik"
## [4189] "Travnik" "Travnik" "Travnik" "Travnik"
## [4193] "Travnik" "Travnik" "Travnik" "Travnik"
## [4197] "Travnik" "Travnik" "Travnik" "Travnik"
## [4201] "Travnik" "Travnik" "Travnik" "Travnik"
## [4205] "Travnik" "Travnik" "Travnik" "Travnik"
## [4209] "Travnik" "Travnik" "Travnik" "Travnik"
## [4213] "Travnik" "Travnik" "Travnik" "Travnik"
## [4217] "Travnik" "Travnik" "Travnik" "Travnik"
## [4221] "Travnik" "Travnik" "Travnik" "Travnik"
## [4225] "Travnik" "Travnik" "Travnik" "Travnik"
## [4229] "Travnik" "Travnik" "Travnik" "Travnik"
## [4233] "Travnik" "Travnik" "Travnik" "Travnik"
## [4237] "Travnik" "Travnik" "Travnik" "Travnik"
## [4241] "Travnik" "Travnik" "Travnik" "Travnik"
## [4245] "Travnik" "Travnik" "Travnik" "Travnik"
## [4249] "Travnik" "Travnik" "Travnik" "Travnik"
## [4253] "Travnik" "Trebinje" "Trebinje" "Trebinje"
## [4257] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4261] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4265] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4269] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4273] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4277] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4281] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4285] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4289] "Trebinje" "Trebinje" "Trebinje" "Trebinje"
## [4293] "Trebinje" "Trebinje" "Trebinje" "Tuzla"
## [4297] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4301] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4305] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4309] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4313] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4317] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4321] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4325] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4329] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4333] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4337] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4341] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4345] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4349] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4353] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4357] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4361] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4365] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4369] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4373] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4377] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4381] "Tuzla" "Tuzla" "Tuzla" "Tuzla"
## [4385] "Tuzla" "Ugljevik" "Ugljevik" "Ugljevik"
## [4389] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4393] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4397] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4401] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4405] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4409] "Ugljevik" "Ugljevik" "Ugljevik" "Ugljevik"
## [4413] "Ugljevik" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4417] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4421] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4425] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4429] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4433] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4437] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4441] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4445] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4449] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4453] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4457] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4461] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4465] "V.Kladusa" "V.Kladusa" "V.Kladusa" "V.Kladusa"
## [4469] "V.Kladusa" "V.Kladusa" "V.Kladusa" "Visegrad"
## [4473] "Visegrad" "Visegrad" "Visegrad" "Visegrad"
## [4477] "Visegrad" "Visegrad" "Visegrad" "Visegrad"
## [4481] "Visegrad" "Visegrad" "Visegrad" "Visegrad"
## [4485] "Visegrad" "Visegrad" "Visegrad" "Visegrad"
## [4489] "Visegrad" "Visegrad" "Visegrad" "Visoko"
## [4493] "Visoko" "Visoko" "Visoko" "Visoko"
## [4497] "Visoko" "Visoko" "Visoko" "Visoko"
## [4501] "Visoko" "Visoko" "Visoko" "Visoko"
## [4505] "Visoko" "Visoko" "Visoko" "Visoko"
## [4509] "Visoko" "Visoko" "Visoko" "Visoko"
## [4513] "Visoko" "Visoko" "Visoko" "Visoko"
## [4517] "Visoko" "Visoko" "Visoko" "Visoko"
## [4521] "Visoko" "Visoko" "Visoko" "Visoko"
## [4525] "Visoko" "Visoko" "Visoko" "Visoko"
## [4529] "Visoko" "Visoko" "Visoko" "Visoko"
## [4533] "Visoko" "Visoko" "Visoko" "Visoko"
## [4537] "Visoko" "Visoko" "Visoko" "Visoko"
## [4541] "Visoko" "Visoko" "Visoko" "Visoko"
## [4545] "Visoko" "Visoko" "Visoko" "Visoko"
## [4549] "Visoko" "Visoko" "Visoko" "Visoko"
## [4553] "Vitez" "Vitez" "Vitez" "Vitez"
## [4557] "Vitez" "Vitez" "Vitez" "Vitez"
## [4561] "Vitez" "Vitez" "Vitez" "Vitez"
## [4565] "Vitez" "Vitez" "Vitez" "Vitez"
## [4569] "Vitez" "Vitez" "Vitez" "Vitez"
## [4573] "Vitez" "Vitez" "Vitez" "Vitez"
## [4577] "Vitez" "Vitez" "Vitez" "Vitez"
## [4581] "Vitez" "Vitez" "Vitez" "Vitez"
## [4585] "Vitez" "Vitez" "Vitez" "Vitez"
## [4589] "Vitez" "Vitez" "Vitez" "Vitez"
## [4593] "Vitez" "Vitez" "Vitez" "Vitez"
## [4597] "Vitez" "Vitez" "Vitez" "Vitez"
## [4601] "Vitez" "Vitez" "Vitez" "Vitez"
## [4605] "Vitez" "Vitez" "Vitez" "Vitez"
## [4609] "Vitez" "Vitez" "Vitez" "Vitez"
## [4613] "Vitez" "Vitez" "Vitez" "Vitez"
## [4617] "Vitez" "Vitez" "Vitez" "Vitez"
## [4621] "Vitez" "Vitez" "Vitez" "Vitez"
## [4625] "Vitez" "Vitez" "Vitez" "Vitez"
## [4629] "Vitez" "Vitez" "Vitez" "Vlasenica"
## [4633] "Vlasenica" "Vlasenica" "Vlasenica" "Vlasenica"
## [4637] "Vlasenica" "Vlasenica" "Vlasenica" "Vlasenica"
## [4641] "Vlasenica" "Vlasenica" "Vlasenica" "Vlasenica"
## [4645] "Vlasenica" "Vlasenica" "Vlasenica" "Vlasenica"
## [4649] "Vlasenica" "Vogosca" "Vogosca" "Vogosca"
## [4653] "Vogosca" "Vogosca" "Vogosca" "Vogosca"
## [4657] "Vogosca" "Vogosca" "Vogosca" "Vogosca"
## [4661] "Vogosca" "Vogosca" "Vogosca" "Vogosca"
## [4665] "Vogosca" "Vogosca" "Vogosca" "Vogosca"
## [4669] "Vogosca" "Vogosca" "Vogosca" "Vogosca"
## [4673] "Vogosca" "Vogosca" "Zavidovici" "Zavidovici"
## [4677] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4681] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4685] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4689] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4693] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4697] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4701] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4705] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4709] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4713] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4717] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4721] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4725] "Zavidovici" "Zavidovici" "Zavidovici" "Zavidovici"
## [4729] "Zavidovici" "Zavidovici" "Zenica" "Zenica"
## [4733] "Zenica" "Zenica" "Zenica" "Zenica"
## [4737] "Zenica" "Zenica" "Zenica" "Zenica"
## [4741] "Zenica" "Zenica" "Zenica" "Zenica"
## [4745] "Zenica" "Zenica" "Zenica" "Zenica"
## [4749] "Zenica" "Zenica" "Zenica" "Zenica"
## [4753] "Zenica" "Zenica" "Zenica" "Zenica"
## [4757] "Zenica" "Zenica" "Zenica" "Zenica"
## [4761] "Zenica" "Zenica" "Zenica" "Zenica"
## [4765] "Zenica" "Zenica" "Zenica" "Zenica"
## [4769] "Zenica" "Zenica" "Zenica" "Zenica"
## [4773] "Zenica" "Zenica" "Zenica" "Zenica"
## [4777] "Zenica" "Zenica" "Zenica" "Zenica"
## [4781] "Zenica" "Zenica" "Zenica" "Zenica"
## [4785] "Zenica" "Zenica" "Zenica" "Zenica"
## [4789] "Zenica" "Zenica" "Zenica" "Zenica"
## [4793] "Zenica" "Zenica" "Zenica" "Zenica"
## [4797] "Zenica" "Zenica" "Zenica" "Zenica"
## [4801] "Zenica" "Zenica" "Zenica" "Zenica"
## [4805] "Zenica" "Zenica" "Zenica" "Zenica"
## [4809] "Zenica" "Zenica" "Zenica" "Zenica"
## [4813] "Zenica" "Zenica" "Zenica" "Zenica"
## [4817] "Zenica" "Zenica" "Zenica" "Zenica"
## [4821] "Zenica" "Zenica" "Zenica" "Zenica"
## [4825] "Zenica" "Zenica" "Zenica" "Zenica"
## [4829] "Zenica" "Zenica" "Zenica" "Zenica"
## [4833] "Zenica" "Zenica" "Zenica" "Zenica"
## [4837] "Zenica" "Zenica" "Zenica" "Zenica"
## [4841] "Zenica" "Zenica" "Zenica" "Zenica"
## [4845] "Zenica" "Zenica" "Zenica" "Zenica"
## [4849] "Zenica" "Zenica" "Zenica" "Zenica"
## [4853] "Zenica" "Zenica" "Zenica" "Zenica"
## [4857] "Zenica" "Zenica" "Zenica" "Zenica"
## [4861] "Zenica" "Zenica" "Zenica" "Zenica"
## [4865] "Zenica" "Zenica" "Zenica" "Zenica"
## [4869] "Zenica" "Zenica" "Zenica" "Zenica"
## [4873] "Zenica" "Zenica" "Zenica" "Zenica"
## [4877] "Zenica" "Zenica" "Zenica" "Zenica"
## [4881] "Zenica" "Zenica" "Zenica" "Zenica"
## [4885] "Zenica" "Zenica" "Zenica" "Zenica"
## [4889] "Zenica" "Zenica" "Zenica" "Zenica"
## [4893] "Zenica" "Zenica" "Zenica" "Zenica"
## [4897] "Zenica" "Zenica" "Zenica" "Zenica"
## [4901] "Zenica" "Zenica" "Zenica" "Zenica"
## [4905] "Zenica" "Zenica" "Zenica" "Zenica"
## [4909] "Zenica" "Zenica" "Zenica" "Zenica"
## [4913] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4917] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4921] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4925] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4929] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4933] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4937] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4941] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4945] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4949] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4953] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4957] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4961] "Zivinice" "Zivinice" "Zivinice" "Zivinice"
## [4965] "Zivinice" "Zivinice" "Zivinice" "Zvornik"
## [4969] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4973] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4977] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4981] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4985] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4989] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4993] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [4997] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5001] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5005] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5009] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5013] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5017] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5021] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5025] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5029] "Zvornik" "Zvornik" "Zvornik" "Zvornik"
## [5033] "Zvornik" "Zvornik"
## attr(,"label")
## [1] "Naziv opcine"
## attr(,"format.spss")
## [1] "A12"dim(WI.df.allactive)## [1] 5034 11wages
plot(density(WI.df.allactive$wages))
summary(WI.df.allactive$wages)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 37.5 360.0 600.0 655.5 900.0 2268.0sd (WI.df.allactive$wages)## [1] 414.364Age
plot(density(WI.df.allactive$Age))
summary(WI.df.allactive$Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 17.00 33.00 44.00 43.18 52.00 79.00sd (WI.df.allactive$Age)## [1] 12.10303Activ
Status tekuce zaposlenosti: 1. puno radno vrijeme 2. pola radnog vremena 3. nezaposlen 4 - trazi prvo zaposlenje 5 - domacica 6 - student 7 - nesposoban za rad 8 - penzioner 9 - ostalo
table(WI.df.allactive$Activ)##
## 1 2 3 4 5 6 7 8 9
## 4125 451 172 46 114 7 5 105 9Po svom nahodjenju ovu cu varijablu objediniti u 5 nivoa: puno r.v., pola r.v, nezaposlen (3,4,5,6,7),penzioner, ostalo. Ali probacu i da napravim model bez ove varijable jer mi se i nije spominjala u modelu. (probala sam i gubim na signifikantnosit)
Educ
Steceno obrazovanje: 1 - bez skole; 2- nepotpuna osnovna 8.g.skola 3 - nepotpuna osnovna 9.g. skola; 4-osnovna skola, 5-srednja skola, 6-specijalizacia poslije s.s; 7 - Visa skola; 8 - Fakultet; 9 - Master; 10 - Doktorat
table(WI.df.allactive$Educ)##
## 1 2 3 4 5 6 7 8 9 10
## 53 74 5 705 3283 26 181 629 72 6Od ove varijable napravicu bez osnovne skole (1,2,3), osnovna skola (4), srednja skola (5,6), fakultet (7,8,9,10)
WI.df.allactive <- WI.df.allactive %>% mutate(Activ.1 = case_when(Activ == 1 ~"full time", Activ == 2 ~"part time", Activ %in% c(3,4,5,6,7) ~ "unemployed", Activ == 8 ~ "pension", Activ == 9 ~ "Other"), Educ.1 = case_when(Educ %in% c(1,2,3) ~ "no elementary", Educ == 4 ~ "elementary", Educ %in% c(5,6) ~ "high schl", Educ %in% c(7,8,9,10) ~ "faculty")) #check if it is ok ## Activ
table (WI.df.allactive$Activ)##
## 1 2 3 4 5 6 7 8 9
## 4125 451 172 46 114 7 5 105 9table (WI.df.allactive$Activ.1)##
## full time Other part time pension unemployed
## 4125 9 451 105 344round (prop.table(table(WI.df.allactive$Activ.1))*100,1)##
## full time Other part time pension unemployed
## 81.9 0.2 9.0 2.1 6.8##Educ
table (WI.df.allactive$Educ)##
## 1 2 3 4 5 6 7 8 9 10
## 53 74 5 705 3283 26 181 629 72 6table (WI.df.allactive$Educ.1)##
## elementary faculty high schl no elementary
## 705 888 3309 132round (prop.table(table(WI.df.allactive$Educ.1))*100,1)##
## elementary faculty high schl no elementary
## 14.0 17.6 65.7 2.6Relevel
Active
Sada treba relevel varijablu da full time bude
referentna vrijednost
Educ
Sada treba relevel varijablu da full time bude
referentna vrijednost
Sex
round (prop.table(table(WI.df.allactive$Sex_))*100,1)##
## 1 2
## 64.1 35.9#FAZA 7 BUILD UP A MODEL
Mincer earnings function log(wages)
library(texreg)
WI.1 <- lm (log(wages)~ Age + as.numeric(Age^2) + factor(Sex_) + factor(Educ.1) + factor(Munic), data = WI.df.allactive)
WI.2 <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor(Sex_) + factor(Educ.1) + RurUrb + factor(Activ.1) + factor (Munic) , data = WI.df.allactive) #add Activ.1 and rural urban
#Ismirov prijedlog on 20th 11 2023
WI.3.fulactivity <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor(Sex_) + factor (Educ.1) + factor (Activ.1) + factor (Munic) , data = WI.df.allactive) # No rur urb THE WINNING MODEL#diagnostic of not weighted
par(mfrow=c(2,2))
plot(WI.3.fulactivity)
texreg::screenreg(WI.3.fulactivity)##
## ======================================
## Model 1
## --------------------------------------
## (Intercept) 4.81 ***
## (0.14)
## Age 0.05 ***
## (0.00)
## as.numeric(Age^2) -0.00 ***
## (0.00)
## factor(Sex_)2 -0.15 ***
## (0.02)
## factor(Educ.1)elementary 0.05
## (0.06)
## factor(Educ.1)high schl 0.39 ***
## (0.06)
## factor(Educ.1)faculty 0.83 ***
## (0.06)
## factor(Activ.1)Other -0.58 **
## (0.20)
## factor(Activ.1)part time -0.77 ***
## (0.03)
## factor(Activ.1)pension -1.04 ***
## (0.07)
## factor(Activ.1)unemployed -0.90 ***
## (0.04)
## factor(Munic)B.Petrovac -0.16
## (0.18)
## factor(Munic)Banovici 0.21
## (0.15)
## factor(Munic)Banja Luka 0.11
## (0.11)
## factor(Munic)Bihac -0.11
## (0.12)
## factor(Munic)Bijeljina -0.17
## (0.11)
## factor(Munic)Bileca 0.05
## (0.19)
## factor(Munic)Bratunac 0.32
## (0.19)
## factor(Munic)Brcko 0.09
## (0.11)
## factor(Munic)Breza 0.14
## (0.17)
## factor(Munic)Brod -0.52 ***
## (0.14)
## factor(Munic)Bugojno 0.01
## (0.12)
## factor(Munic)Busovaca 0.11
## (0.14)
## factor(Munic)Buzim -0.51 **
## (0.19)
## factor(Munic)C.Sarajevo 0.32 *
## (0.13)
## factor(Munic)Cajnice -0.25
## (0.17)
## factor(Munic)Capljina 0.47 **
## (0.15)
## factor(Munic)Cazin -0.09
## (0.12)
## factor(Munic)Celinac -0.16
## (0.19)
## factor(Munic)Citluk 0.27
## (0.15)
## factor(Munic)D.Vakuf -0.22
## (0.13)
## factor(Munic)Derventa -0.58 ***
## (0.13)
## factor(Munic)Doboj 0.07
## (0.12)
## factor(Munic)Doboj-Jug -0.12
## (0.21)
## factor(Munic)Drvar 0.06
## (0.16)
## factor(Munic)Foca - RS 0.02
## (0.14)
## factor(Munic)Fojnica 0.26
## (0.19)
## factor(Munic)G.Vakuf -0.14
## (0.14)
## factor(Munic)Gacko 0.24
## (0.15)
## factor(Munic)Glamoc 0.25
## (0.19)
## factor(Munic)Gorazde 0.22
## (0.14)
## factor(Munic)Gracanica -0.13
## (0.14)
## factor(Munic)Grad Mostar 0.32 **
## (0.11)
## factor(Munic)Gradacac -0.04
## (0.13)
## factor(Munic)Gradiska 0.01
## (0.16)
## factor(Munic)Grude 0.42 **
## (0.14)
## factor(Munic)Hadzici -0.08
## (0.17)
## factor(Munic)I.Ilidza -0.01
## (0.18)
## factor(Munic)Ilidza 0.53 ***
## (0.13)
## factor(Munic)Ilijas 0.15
## (0.17)
## factor(Munic)Jajce 0.21
## (0.16)
## factor(Munic)K.Dubica -0.10
## (0.18)
## factor(Munic)Kakanj 0.03
## (0.14)
## factor(Munic)Kalesija -0.19
## (0.15)
## factor(Munic)Kiseljak 0.23
## (0.14)
## factor(Munic)Kladanj 0.10
## (0.19)
## factor(Munic)Kljuc -0.02
## (0.18)
## factor(Munic)Knezevo -0.16
## (0.19)
## factor(Munic)Konjic 0.23
## (0.13)
## factor(Munic)Kotor Varos 0.04
## (0.18)
## factor(Munic)Kresevo 0.24
## (0.16)
## factor(Munic)Kupres 0.19
## (0.18)
## factor(Munic)Laktasi 0.03
## (0.14)
## factor(Munic)Livno 0.45 **
## (0.14)
## factor(Munic)Lopare -0.14
## (0.13)
## factor(Munic)Lukavac 0.14
## (0.15)
## factor(Munic)Ljubuski 0.34 *
## (0.14)
## factor(Munic)Maglaj 0.01
## (0.15)
## factor(Munic)Modrica -0.06
## (0.13)
## factor(Munic)Mrkonjic 0.27
## (0.21)
## factor(Munic)N.G.Sarajevo 0.29 **
## (0.11)
## factor(Munic)N.Gorazde -0.50 **
## (0.17)
## factor(Munic)N.Sarajevo 0.40 **
## (0.13)
## factor(Munic)N.Travnik -0.15
## (0.12)
## factor(Munic)Nevesinje 0.06
## (0.19)
## factor(Munic)Novi Grad -0.10
## (0.13)
## factor(Munic)Olovo 0.17
## (0.22)
## factor(Munic)Orasje 0.36 *
## (0.15)
## factor(Munic)Pale 0.11
## (0.16)
## factor(Munic)Posusje 0.42 *
## (0.17)
## factor(Munic)Prijedor 0.12
## (0.12)
## factor(Munic)Prnjavor -0.29 *
## (0.12)
## factor(Munic)Prozor 0.26
## (0.18)
## factor(Munic)Ribnik 0.01
## (0.17)
## factor(Munic)Rogatica 0.06
## (0.17)
## factor(Munic)Rudo -0.10
## (0.16)
## factor(Munic)S.Brijeg 0.63 ***
## (0.13)
## factor(Munic)S.G.Sarajevo 0.35 **
## (0.13)
## factor(Munic)Samac -0.02
## (0.12)
## factor(Munic)Sanski Most -0.02
## (0.12)
## factor(Munic)Sokolac -0.06
## (0.19)
## factor(Munic)Srbac 0.06
## (0.17)
## factor(Munic)Srebrenica 0.33
## (0.21)
## factor(Munic)Srebrenik 0.16
## (0.21)
## factor(Munic)Stolac 0.38 *
## (0.18)
## factor(Munic)Teocak 0.23
## (0.22)
## factor(Munic)Tesanj -0.01
## (0.13)
## factor(Munic)Teslic 0.01
## (0.13)
## factor(Munic)Tomislavgrad 0.16
## (0.20)
## factor(Munic)Travnik 0.32 **
## (0.11)
## factor(Munic)Trebinje 0.02
## (0.14)
## factor(Munic)Tuzla 0.12
## (0.12)
## factor(Munic)Ugljevik 0.16
## (0.15)
## factor(Munic)V.Kladusa -0.24
## (0.13)
## factor(Munic)Visegrad -0.03
## (0.17)
## factor(Munic)Visoko 0.10
## (0.13)
## factor(Munic)Vitez -0.07
## (0.12)
## factor(Munic)Vlasenica 0.12
## (0.17)
## factor(Munic)Vogosca 0.14
## (0.16)
## factor(Munic)Zavidovici -0.01
## (0.13)
## factor(Munic)Zenica 0.10
## (0.11)
## factor(Munic)Zivinice -0.02
## (0.13)
## factor(Munic)Zvornik -0.33 **
## (0.12)
## --------------------------------------
## R^2 0.46
## Adj. R^2 0.44
## Num. obs. 5034
## ======================================
## *** p < 0.001; ** p < 0.01; * p < 0.05summary (WI.3.fulactivity)##
## Call:
## lm(formula = log(wages) ~ Age + as.numeric(Age^2) + factor(Sex_) +
## factor(Educ.1) + factor(Activ.1) + factor(Munic), data = WI.df.allactive)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.05197 -0.26577 0.07266 0.35754 2.37288
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.813e+00 1.421e-01 33.880 < 2e-16 ***
## Age 4.970e-02 4.823e-03 10.304 < 2e-16 ***
## as.numeric(Age^2) -4.961e-04 5.642e-05 -8.793 < 2e-16 ***
## factor(Sex_)2 -1.451e-01 1.822e-02 -7.962 2.08e-15 ***
## factor(Educ.1)elementary 5.463e-02 6.065e-02 0.901 0.367792
## factor(Educ.1)high schl 3.851e-01 5.948e-02 6.474 1.05e-10 ***
## factor(Educ.1)faculty 8.261e-01 6.247e-02 13.224 < 2e-16 ***
## factor(Activ.1)Other -5.827e-01 2.018e-01 -2.887 0.003902 **
## factor(Activ.1)part time -7.664e-01 3.254e-02 -23.549 < 2e-16 ***
## factor(Activ.1)pension -1.045e+00 6.538e-02 -15.976 < 2e-16 ***
## factor(Activ.1)unemployed -8.995e-01 3.597e-02 -25.007 < 2e-16 ***
## factor(Munic)B.Petrovac -1.580e-01 1.813e-01 -0.872 0.383379
## factor(Munic)Banovici 2.050e-01 1.535e-01 1.335 0.181791
## factor(Munic)Banja Luka 1.093e-01 1.094e-01 0.999 0.317829
## factor(Munic)Bihac -1.126e-01 1.185e-01 -0.951 0.341847
## factor(Munic)Bijeljina -1.651e-01 1.086e-01 -1.520 0.128561
## factor(Munic)Bileca 4.557e-02 1.945e-01 0.234 0.814756
## factor(Munic)Bratunac 3.171e-01 1.891e-01 1.677 0.093601 .
## factor(Munic)Brcko 9.378e-02 1.070e-01 0.877 0.380796
## factor(Munic)Breza 1.386e-01 1.708e-01 0.811 0.417197
## factor(Munic)Brod -5.237e-01 1.442e-01 -3.631 0.000285 ***
## factor(Munic)Bugojno 5.272e-03 1.206e-01 0.044 0.965142
## factor(Munic)Busovaca 1.101e-01 1.443e-01 0.763 0.445584
## factor(Munic)Buzim -5.067e-01 1.850e-01 -2.738 0.006196 **
## factor(Munic)C.Sarajevo 3.244e-01 1.291e-01 2.512 0.012027 *
## factor(Munic)Cajnice -2.521e-01 1.741e-01 -1.448 0.147558
## factor(Munic)Capljina 4.689e-01 1.452e-01 3.231 0.001244 **
## factor(Munic)Cazin -9.359e-02 1.211e-01 -0.773 0.439567
## factor(Munic)Celinac -1.641e-01 1.944e-01 -0.844 0.398653
## factor(Munic)Citluk 2.675e-01 1.491e-01 1.794 0.072893 .
## factor(Munic)D.Vakuf -2.169e-01 1.322e-01 -1.640 0.100974
## factor(Munic)Derventa -5.773e-01 1.295e-01 -4.460 8.39e-06 ***
## factor(Munic)Doboj 7.086e-02 1.173e-01 0.604 0.545825
## factor(Munic)Doboj-Jug -1.187e-01 2.145e-01 -0.553 0.580230
## factor(Munic)Drvar 6.112e-02 1.591e-01 0.384 0.700952
## factor(Munic)Foca - RS 1.731e-02 1.423e-01 0.122 0.903231
## factor(Munic)Fojnica 2.559e-01 1.892e-01 1.352 0.176374
## factor(Munic)G.Vakuf -1.396e-01 1.356e-01 -1.030 0.303109
## factor(Munic)Gacko 2.416e-01 1.534e-01 1.574 0.115455
## factor(Munic)Glamoc 2.475e-01 1.948e-01 1.271 0.203805
## factor(Munic)Gorazde 2.208e-01 1.380e-01 1.600 0.109632
## factor(Munic)Gracanica -1.311e-01 1.365e-01 -0.960 0.336910
## factor(Munic)Grad Mostar 3.217e-01 1.108e-01 2.902 0.003723 **
## factor(Munic)Gradacac -4.396e-02 1.329e-01 -0.331 0.740834
## factor(Munic)Gradiska 1.338e-02 1.607e-01 0.083 0.933646
## factor(Munic)Grude 4.232e-01 1.445e-01 2.929 0.003412 **
## factor(Munic)Hadzici -8.176e-02 1.742e-01 -0.469 0.638874
## factor(Munic)I.Ilidza -1.322e-02 1.771e-01 -0.075 0.940499
## factor(Munic)Ilidza 5.279e-01 1.315e-01 4.015 6.05e-05 ***
## factor(Munic)Ilijas 1.505e-01 1.705e-01 0.883 0.377230
## factor(Munic)Jajce 2.143e-01 1.567e-01 1.368 0.171481
## factor(Munic)K.Dubica -1.045e-01 1.847e-01 -0.566 0.571592
## factor(Munic)Kakanj 3.408e-02 1.364e-01 0.250 0.802662
## factor(Munic)Kalesija -1.902e-01 1.507e-01 -1.262 0.206862
## factor(Munic)Kiseljak 2.254e-01 1.413e-01 1.595 0.110859
## factor(Munic)Kladanj 1.025e-01 1.892e-01 0.542 0.587803
## factor(Munic)Kljuc -1.749e-02 1.806e-01 -0.097 0.922872
## factor(Munic)Knezevo -1.596e-01 1.893e-01 -0.843 0.399024
## factor(Munic)Konjic 2.272e-01 1.254e-01 1.811 0.070134 .
## factor(Munic)Kotor Varos 3.984e-02 1.845e-01 0.216 0.829005
## factor(Munic)Kresevo 2.441e-01 1.553e-01 1.572 0.115926
## factor(Munic)Kupres 1.931e-01 1.804e-01 1.071 0.284438
## factor(Munic)Laktasi 2.535e-02 1.351e-01 0.188 0.851143
## factor(Munic)Livno 4.523e-01 1.382e-01 3.274 0.001068 **
## factor(Munic)Lopare -1.371e-01 1.334e-01 -1.028 0.304140
## factor(Munic)Lukavac 1.410e-01 1.453e-01 0.971 0.331702
## factor(Munic)Ljubuski 3.419e-01 1.436e-01 2.382 0.017273 *
## factor(Munic)Maglaj 1.060e-02 1.491e-01 0.071 0.943326
## factor(Munic)Modrica -5.734e-02 1.273e-01 -0.450 0.652457
## factor(Munic)Mrkonjic 2.716e-01 2.147e-01 1.265 0.205967
## factor(Munic)N.G.Sarajevo 2.869e-01 1.093e-01 2.625 0.008688 **
## factor(Munic)N.Gorazde -5.041e-01 1.741e-01 -2.895 0.003812 **
## factor(Munic)N.Sarajevo 3.969e-01 1.292e-01 3.072 0.002139 **
## factor(Munic)N.Travnik -1.533e-01 1.218e-01 -1.259 0.208100
## factor(Munic)Nevesinje 5.820e-02 1.944e-01 0.299 0.764638
## factor(Munic)Novi Grad -1.029e-01 1.272e-01 -0.809 0.418454
## factor(Munic)Olovo 1.701e-01 2.156e-01 0.789 0.430133
## factor(Munic)Orasje 3.577e-01 1.478e-01 2.420 0.015573 *
## factor(Munic)Pale 1.137e-01 1.570e-01 0.724 0.468895
## factor(Munic)Posusje 4.200e-01 1.679e-01 2.501 0.012408 *
## factor(Munic)Prijedor 1.173e-01 1.209e-01 0.970 0.332009
## factor(Munic)Prnjavor -2.851e-01 1.231e-01 -2.315 0.020636 *
## factor(Munic)Prozor 2.634e-01 1.849e-01 1.424 0.154407
## factor(Munic)Ribnik 9.579e-03 1.737e-01 0.055 0.956030
## factor(Munic)Rogatica 5.620e-02 1.656e-01 0.339 0.734280
## factor(Munic)Rudo -9.756e-02 1.572e-01 -0.621 0.534791
## factor(Munic)S.Brijeg 6.275e-01 1.289e-01 4.870 1.15e-06 ***
## factor(Munic)S.G.Sarajevo 3.499e-01 1.314e-01 2.664 0.007751 **
## factor(Munic)Samac -2.376e-02 1.198e-01 -0.198 0.842755
## factor(Munic)Sanski Most -2.477e-02 1.222e-01 -0.203 0.839325
## factor(Munic)Sokolac -6.158e-02 1.946e-01 -0.316 0.751681
## factor(Munic)Srbac 5.625e-02 1.736e-01 0.324 0.745868
## factor(Munic)Srebrenica 3.257e-01 2.145e-01 1.519 0.128935
## factor(Munic)Srebrenik 1.554e-01 2.066e-01 0.752 0.451958
## factor(Munic)Stolac 3.778e-01 1.771e-01 2.133 0.032978 *
## factor(Munic)Teocak 2.287e-01 2.152e-01 1.063 0.287913
## factor(Munic)Tesanj -8.572e-03 1.279e-01 -0.067 0.946552
## factor(Munic)Teslic 6.655e-03 1.325e-01 0.050 0.959937
## factor(Munic)Tomislavgrad 1.558e-01 2.001e-01 0.779 0.436260
## factor(Munic)Travnik 3.234e-01 1.139e-01 2.839 0.004549 **
## factor(Munic)Trebinje 1.617e-02 1.374e-01 0.118 0.906335
## factor(Munic)Tuzla 1.211e-01 1.196e-01 1.013 0.310999
## factor(Munic)Ugljevik 1.607e-01 1.519e-01 1.058 0.290229
## factor(Munic)V.Kladusa -2.388e-01 1.282e-01 -1.863 0.062547 .
## factor(Munic)Visegrad -2.932e-02 1.682e-01 -0.174 0.861623
## factor(Munic)Visoko 1.000e-01 1.272e-01 0.787 0.431581
## factor(Munic)Vitez -6.840e-02 1.219e-01 -0.561 0.574742
## factor(Munic)Vlasenica 1.155e-01 1.735e-01 0.666 0.505465
## factor(Munic)Vogosca 1.404e-01 1.569e-01 0.895 0.370999
## factor(Munic)Zavidovici -1.319e-02 1.292e-01 -0.102 0.918675
## factor(Munic)Zenica 1.005e-01 1.110e-01 0.905 0.365259
## factor(Munic)Zivinice -2.251e-02 1.295e-01 -0.174 0.861986
## factor(Munic)Zvornik -3.348e-01 1.249e-01 -2.681 0.007358 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.597 on 4921 degrees of freedom
## Multiple R-squared: 0.4561, Adjusted R-squared: 0.4437
## F-statistic: 36.84 on 112 and 4921 DF, p-value: < 2.2e-16texreg::screenreg(list(WI.3a, WI.3.fulactivity))##
## ====================================================
## Model 1 Model 2
## ----------------------------------------------------
## (Intercept) 4.88 *** 4.81 ***
## (0.14) (0.14)
## Age 0.04 *** 0.05 ***
## (0.00) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.15 *** -0.15 ***
## (0.02) (0.02)
## Educ.1elementary 0.17 *
## (0.07)
## Educ.1high schl 0.48 ***
## (0.07)
## Educ.1faculty 0.93 ***
## (0.07)
## factor(Full.time)part time -0.74 ***
## (0.03)
## factor(Munic)B.Petrovac -0.18 -0.16
## (0.19) (0.18)
## factor(Munic)Banovici 0.30 * 0.21
## (0.14) (0.15)
## factor(Munic)Banja Luka 0.12 0.11
## (0.10) (0.11)
## factor(Munic)Bihac -0.09 -0.11
## (0.11) (0.12)
## factor(Munic)Bijeljina -0.11 -0.17
## (0.10) (0.11)
## factor(Munic)Bileca 0.05 0.05
## (0.18) (0.19)
## factor(Munic)Bratunac 0.35 * 0.32
## (0.18) (0.19)
## factor(Munic)Brcko 0.12 0.09
## (0.10) (0.11)
## factor(Munic)Breza 0.23 0.14
## (0.16) (0.17)
## factor(Munic)Brod -0.26 -0.52 ***
## (0.14) (0.14)
## factor(Munic)Bugojno 0.04 0.01
## (0.11) (0.12)
## factor(Munic)Busovaca 0.06 0.11
## (0.14) (0.14)
## factor(Munic)Buzim -0.67 *** -0.51 **
## (0.18) (0.19)
## factor(Munic)C.Sarajevo 0.34 ** 0.32 *
## (0.12) (0.13)
## factor(Munic)Cajnice -0.18 -0.25
## (0.17) (0.17)
## factor(Munic)Capljina 0.48 *** 0.47 **
## (0.14) (0.15)
## factor(Munic)Cazin -0.13 -0.09
## (0.11) (0.12)
## factor(Munic)Celinac -0.12 -0.16
## (0.19) (0.19)
## factor(Munic)Citluk 0.29 * 0.27
## (0.14) (0.15)
## factor(Munic)D.Vakuf -0.11 -0.22
## (0.13) (0.13)
## factor(Munic)Derventa -0.47 *** -0.58 ***
## (0.13) (0.13)
## factor(Munic)Doboj 0.15 0.07
## (0.11) (0.12)
## factor(Munic)Doboj-Jug -0.11 -0.12
## (0.19) (0.21)
## factor(Munic)Drvar 0.03 0.06
## (0.15) (0.16)
## factor(Munic)Foca - RS -0.03 0.02
## (0.14) (0.14)
## factor(Munic)Fojnica 0.25 0.26
## (0.17) (0.19)
## factor(Munic)G.Vakuf -0.10 -0.14
## (0.13) (0.14)
## factor(Munic)Gacko 0.25 0.24
## (0.14) (0.15)
## factor(Munic)Glamoc 0.24 0.25
## (0.18) (0.19)
## factor(Munic)Gorazde 0.24 0.22
## (0.13) (0.14)
## factor(Munic)Gracanica -0.13 -0.13
## (0.13) (0.14)
## factor(Munic)Grad Mostar 0.33 ** 0.32 **
## (0.10) (0.11)
## factor(Munic)Gradacac 0.07 -0.04
## (0.12) (0.13)
## factor(Munic)Gradiska -0.05 0.01
## (0.15) (0.16)
## factor(Munic)Grude 0.40 ** 0.42 **
## (0.14) (0.14)
## factor(Munic)I.Ilidza -0.01 -0.01
## (0.16) (0.18)
## factor(Munic)Ilidza 0.51 *** 0.53 ***
## (0.12) (0.13)
## factor(Munic)Ilijas 0.18 0.15
## (0.16) (0.17)
## factor(Munic)Jajce 0.28 0.21
## (0.16) (0.16)
## factor(Munic)K.Dubica -0.14 -0.10
## (0.17) (0.18)
## factor(Munic)Kakanj 0.08 0.03
## (0.13) (0.14)
## factor(Munic)Kalesija -0.13 -0.19
## (0.14) (0.15)
## factor(Munic)Kiseljak 0.25 0.23
## (0.13) (0.14)
## factor(Munic)Kladanj 0.13 0.10
## (0.18) (0.19)
## factor(Munic)Kljuc -0.01 -0.02
## (0.16) (0.18)
## factor(Munic)Knezevo -0.03 -0.16
## (0.18) (0.19)
## factor(Munic)Konjic 0.23 * 0.23
## (0.12) (0.13)
## factor(Munic)Kotor Varos 0.14 0.04
## (0.18) (0.18)
## factor(Munic)Kresevo 0.37 * 0.24
## (0.15) (0.16)
## factor(Munic)Kupres 0.20 0.19
## (0.16) (0.18)
## factor(Munic)Laktasi 0.02 0.03
## (0.12) (0.14)
## factor(Munic)Livno 0.41 ** 0.45 **
## (0.13) (0.14)
## factor(Munic)Lopare -0.01 -0.14
## (0.13) (0.13)
## factor(Munic)Lukavac 0.12 0.14
## (0.13) (0.15)
## factor(Munic)Ljubuski 0.42 ** 0.34 *
## (0.13) (0.14)
## factor(Munic)Maglaj 0.07 0.01
## (0.14) (0.15)
## factor(Munic)Modrica -0.06 -0.06
## (0.12) (0.13)
## factor(Munic)Mrkonjic 0.27 0.27
## (0.20) (0.21)
## factor(Munic)N.G.Sarajevo 0.35 *** 0.29 **
## (0.10) (0.11)
## factor(Munic)N.Gorazde -0.41 * -0.50 **
## (0.19) (0.17)
## factor(Munic)N.Sarajevo 0.43 *** 0.40 **
## (0.12) (0.13)
## factor(Munic)N.Travnik -0.17 -0.15
## (0.11) (0.12)
## factor(Munic)Nevesinje -0.03 0.06
## (0.18) (0.19)
## factor(Munic)Novi Grad -0.05 -0.10
## (0.12) (0.13)
## factor(Munic)Orasje 0.34 * 0.36 *
## (0.14) (0.15)
## factor(Munic)Pale 0.07 0.11
## (0.15) (0.16)
## factor(Munic)Posusje 0.41 ** 0.42 *
## (0.16) (0.17)
## factor(Munic)Prijedor 0.14 0.12
## (0.11) (0.12)
## factor(Munic)Prnjavor 0.02 -0.29 *
## (0.12) (0.12)
## factor(Munic)Prozor 0.22 0.26
## (0.18) (0.18)
## factor(Munic)Ribnik -0.02 0.01
## (0.16) (0.17)
## factor(Munic)Rogatica 0.18 0.06
## (0.15) (0.17)
## factor(Munic)Rudo -0.16 -0.10
## (0.16) (0.16)
## factor(Munic)S.Brijeg 0.61 *** 0.63 ***
## (0.12) (0.13)
## factor(Munic)S.G.Sarajevo 0.36 ** 0.35 **
## (0.12) (0.13)
## factor(Munic)Samac 0.02 -0.02
## (0.11) (0.12)
## factor(Munic)Sanski Most -0.01 -0.02
## (0.11) (0.12)
## factor(Munic)Sokolac -0.16 -0.06
## (0.18) (0.19)
## factor(Munic)Srbac 0.06 0.06
## (0.16) (0.17)
## factor(Munic)Srebrenica 0.33 0.33
## (0.19) (0.21)
## factor(Munic)Srebrenik 0.16 0.16
## (0.19) (0.21)
## factor(Munic)Stolac 0.31 0.38 *
## (0.16) (0.18)
## factor(Munic)Tesanj 0.00 -0.01
## (0.12) (0.13)
## factor(Munic)Teslic -0.04 0.01
## (0.13) (0.13)
## factor(Munic)Tomislavgrad 0.17 0.16
## (0.18) (0.20)
## factor(Munic)Travnik 0.33 ** 0.32 **
## (0.11) (0.11)
## factor(Munic)Trebinje 0.03 0.02
## (0.13) (0.14)
## factor(Munic)Tuzla 0.17 0.12
## (0.11) (0.12)
## factor(Munic)Ugljevik 0.17 0.16
## (0.14) (0.15)
## factor(Munic)V.Kladusa -0.25 * -0.24
## (0.12) (0.13)
## factor(Munic)Visegrad -0.15 -0.03
## (0.17) (0.17)
## factor(Munic)Visoko 0.13 0.10
## (0.12) (0.13)
## factor(Munic)Vitez -0.07 -0.07
## (0.11) (0.12)
## factor(Munic)Vlasenica 0.12 0.12
## (0.16) (0.17)
## factor(Munic)Vogosca 0.14 0.14
## (0.14) (0.16)
## factor(Munic)Zavidovici -0.04 -0.01
## (0.12) (0.13)
## factor(Munic)Zenica 0.10 0.10
## (0.10) (0.11)
## factor(Munic)Zivinice -0.05 -0.02
## (0.12) (0.13)
## factor(Munic)Zvornik -0.33 ** -0.33 **
## (0.12) (0.12)
## factor(Educ.1)elementary 0.05
## (0.06)
## factor(Educ.1)high schl 0.39 ***
## (0.06)
## factor(Educ.1)faculty 0.83 ***
## (0.06)
## factor(Activ.1)Other -0.58 **
## (0.20)
## factor(Activ.1)part time -0.77 ***
## (0.03)
## factor(Activ.1)pension -1.04 ***
## (0.07)
## factor(Activ.1)unemployed -0.90 ***
## (0.04)
## factor(Munic)Hadzici -0.08
## (0.17)
## factor(Munic)Olovo 0.17
## (0.22)
## factor(Munic)Teocak 0.23
## (0.22)
## ----------------------------------------------------
## R^2 0.40 0.46
## Adj. R^2 0.39 0.44
## Num. obs. 4511 5034
## ====================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05##NUMBER OF MUNICIPAL WITH SIGNIF. KOEF 24 municipalities are significant in the model WI.3a and 21 in the model WI.3.fullactivity
##DO WEIGHTED MODEL ON WI.3.allactive
#dodaj sada ovome residual
WI.df.allactive$resi <- WI.3.fulactivity$residuals
var.func.ols <- lm(log(resi^2) ~ Age + as.numeric(Age^2)+ factor(Sex_) + factor (Educ.1) + factor (Activ.1) + factor (Munic) , data = WI.df.allactive)
WI.df.allactive$varfunc <- exp(var.func.ols$fitted.values)#sada ponderisani model
WI.3.gls <- lm (log(wages)~ Age + as.numeric(Age^2)+ factor(Sex_) + factor (Educ.1) + factor (Activ.1) + factor (Munic),weights = 1/sqrt(varfunc), data = WI.df.allactive) #short diagnostic on weighted model
par(mfrow=c(2,2))
plot(WI.3.fulactivity) #plots before weights
par(mfrow=c(2,2))
plot(WI.3.gls) #plots after weights full model
texreg::screenreg(list(WI.3.fulactivity, WI.3.gls)) #uporedni prikaz daje da je non weighed model bolji model. Dakle i u ovom slucaju uzimam non weights##
## ===================================================
## Model 1 Model 2
## ---------------------------------------------------
## (Intercept) 4.81 *** 4.85 ***
## (0.14) (0.16)
## Age 0.05 *** 0.05 ***
## (0.00) (0.00)
## as.numeric(Age^2) -0.00 *** -0.00 ***
## (0.00) (0.00)
## factor(Sex_)2 -0.15 *** -0.15 ***
## (0.02) (0.02)
## factor(Educ.1)elementary 0.05 0.10
## (0.06) (0.07)
## factor(Educ.1)high schl 0.39 *** 0.40 ***
## (0.06) (0.07)
## factor(Educ.1)faculty 0.83 *** 0.85 ***
## (0.06) (0.07)
## factor(Activ.1)Other -0.58 ** -0.61 *
## (0.20) (0.26)
## factor(Activ.1)part time -0.77 *** -0.77 ***
## (0.03) (0.03)
## factor(Activ.1)pension -1.04 *** -1.11 ***
## (0.07) (0.08)
## factor(Activ.1)unemployed -0.90 *** -0.90 ***
## (0.04) (0.04)
## factor(Munic)B.Petrovac -0.16 -0.17
## (0.18) (0.22)
## factor(Munic)Banovici 0.21 0.21
## (0.15) (0.16)
## factor(Munic)Banja Luka 0.11 0.12
## (0.11) (0.13)
## factor(Munic)Bihac -0.11 -0.10
## (0.12) (0.14)
## factor(Munic)Bijeljina -0.17 -0.15
## (0.11) (0.13)
## factor(Munic)Bileca 0.05 0.06
## (0.19) (0.19)
## factor(Munic)Bratunac 0.32 0.34 *
## (0.19) (0.17)
## factor(Munic)Brcko 0.09 0.10
## (0.11) (0.13)
## factor(Munic)Breza 0.14 0.20
## (0.17) (0.21)
## factor(Munic)Brod -0.52 *** -0.49 *
## (0.14) (0.19)
## factor(Munic)Bugojno 0.01 0.01
## (0.12) (0.14)
## factor(Munic)Busovaca 0.11 0.13
## (0.14) (0.16)
## factor(Munic)Buzim -0.51 ** -0.56 *
## (0.19) (0.27)
## factor(Munic)C.Sarajevo 0.32 * 0.35 *
## (0.13) (0.14)
## factor(Munic)Cajnice -0.25 -0.19
## (0.17) (0.18)
## factor(Munic)Capljina 0.47 ** 0.49 **
## (0.15) (0.16)
## factor(Munic)Cazin -0.09 -0.11
## (0.12) (0.14)
## factor(Munic)Celinac -0.16 -0.14
## (0.19) (0.19)
## factor(Munic)Citluk 0.27 0.30
## (0.15) (0.17)
## factor(Munic)D.Vakuf -0.22 -0.17
## (0.13) (0.15)
## factor(Munic)Derventa -0.58 *** -0.60 ***
## (0.13) (0.15)
## factor(Munic)Doboj 0.07 0.11
## (0.12) (0.13)
## factor(Munic)Doboj-Jug -0.12 -0.11
## (0.21) (0.19)
## factor(Munic)Drvar 0.06 0.06
## (0.16) (0.15)
## factor(Munic)Foca - RS 0.02 0.01
## (0.14) (0.15)
## factor(Munic)Fojnica 0.26 0.26
## (0.19) (0.18)
## factor(Munic)G.Vakuf -0.14 -0.12
## (0.14) (0.16)
## factor(Munic)Gacko 0.24 0.25
## (0.15) (0.14)
## factor(Munic)Glamoc 0.25 0.23
## (0.19) (0.21)
## factor(Munic)Gorazde 0.22 0.23
## (0.14) (0.14)
## factor(Munic)Gracanica -0.13 -0.13
## (0.14) (0.15)
## factor(Munic)Grad Mostar 0.32 ** 0.34 **
## (0.11) (0.13)
## factor(Munic)Gradacac -0.04 -0.05
## (0.13) (0.15)
## factor(Munic)Gradiska 0.01 0.00
## (0.16) (0.16)
## factor(Munic)Grude 0.42 ** 0.43 **
## (0.14) (0.14)
## factor(Munic)Hadzici -0.08 0.00
## (0.17) (0.19)
## factor(Munic)I.Ilidza -0.01 -0.01
## (0.18) (0.17)
## factor(Munic)Ilidza 0.53 *** 0.54 ***
## (0.13) (0.14)
## factor(Munic)Ilijas 0.15 0.18
## (0.17) (0.18)
## factor(Munic)Jajce 0.21 0.25
## (0.16) (0.15)
## factor(Munic)K.Dubica -0.10 -0.11
## (0.18) (0.18)
## factor(Munic)Kakanj 0.03 0.06
## (0.14) (0.17)
## factor(Munic)Kalesija -0.19 -0.16
## (0.15) (0.18)
## factor(Munic)Kiseljak 0.23 0.24
## (0.14) (0.14)
## factor(Munic)Kladanj 0.10 0.12
## (0.19) (0.17)
## factor(Munic)Kljuc -0.02 0.02
## (0.18) (0.20)
## factor(Munic)Knezevo -0.16 -0.10
## (0.19) (0.19)
## factor(Munic)Konjic 0.23 0.24
## (0.13) (0.14)
## factor(Munic)Kotor Varos 0.04 0.09
## (0.18) (0.18)
## factor(Munic)Kresevo 0.24 0.26
## (0.16) (0.16)
## factor(Munic)Kupres 0.19 0.23
## (0.18) (0.20)
## factor(Munic)Laktasi 0.03 0.04
## (0.14) (0.15)
## factor(Munic)Livno 0.45 ** 0.46 ***
## (0.14) (0.14)
## factor(Munic)Lopare -0.14 -0.14
## (0.13) (0.16)
## factor(Munic)Lukavac 0.14 0.17
## (0.15) (0.15)
## factor(Munic)Ljubuski 0.34 * 0.37 *
## (0.14) (0.16)
## factor(Munic)Maglaj 0.01 0.04
## (0.15) (0.15)
## factor(Munic)Modrica -0.06 -0.06
## (0.13) (0.14)
## factor(Munic)Mrkonjic 0.27 0.26
## (0.21) (0.20)
## factor(Munic)N.G.Sarajevo 0.29 ** 0.31 *
## (0.11) (0.13)
## factor(Munic)N.Gorazde -0.50 ** -0.51 **
## (0.17) (0.19)
## factor(Munic)N.Sarajevo 0.40 ** 0.40 **
## (0.13) (0.14)
## factor(Munic)N.Travnik -0.15 -0.15
## (0.12) (0.14)
## factor(Munic)Nevesinje 0.06 0.03
## (0.19) (0.20)
## factor(Munic)Novi Grad -0.10 -0.08
## (0.13) (0.14)
## factor(Munic)Olovo 0.17 0.32
## (0.22) (0.22)
## factor(Munic)Orasje 0.36 * 0.35 *
## (0.15) (0.15)
## factor(Munic)Pale 0.11 0.10
## (0.16) (0.17)
## factor(Munic)Posusje 0.42 * 0.42 **
## (0.17) (0.15)
## factor(Munic)Prijedor 0.12 0.13
## (0.12) (0.13)
## factor(Munic)Prnjavor -0.29 * -0.20
## (0.12) (0.14)
## factor(Munic)Prozor 0.26 0.27
## (0.18) (0.19)
## factor(Munic)Ribnik 0.01 -0.00
## (0.17) (0.18)
## factor(Munic)Rogatica 0.06 0.06
## (0.17) (0.18)
## factor(Munic)Rudo -0.10 -0.10
## (0.16) (0.17)
## factor(Munic)S.Brijeg 0.63 *** 0.63 ***
## (0.13) (0.13)
## factor(Munic)S.G.Sarajevo 0.35 ** 0.37 **
## (0.13) (0.14)
## factor(Munic)Samac -0.02 -0.01
## (0.12) (0.14)
## factor(Munic)Sanski Most -0.02 -0.01
## (0.12) (0.14)
## factor(Munic)Sokolac -0.06 -0.07
## (0.19) (0.24)
## factor(Munic)Srbac 0.06 0.07
## (0.17) (0.17)
## factor(Munic)Srebrenica 0.33 0.34
## (0.21) (0.20)
## factor(Munic)Srebrenik 0.16 0.16
## (0.21) (0.17)
## factor(Munic)Stolac 0.38 * 0.38 *
## (0.18) (0.19)
## factor(Munic)Teocak 0.23 0.27
## (0.22) (0.24)
## factor(Munic)Tesanj -0.01 0.01
## (0.13) (0.14)
## factor(Munic)Teslic 0.01 0.00
## (0.13) (0.14)
## factor(Munic)Tomislavgrad 0.16 0.17
## (0.20) (0.19)
## factor(Munic)Travnik 0.32 ** 0.33 **
## (0.11) (0.13)
## factor(Munic)Trebinje 0.02 0.03
## (0.14) (0.15)
## factor(Munic)Tuzla 0.12 0.11
## (0.12) (0.14)
## factor(Munic)Ugljevik 0.16 0.19
## (0.15) (0.17)
## factor(Munic)V.Kladusa -0.24 -0.24
## (0.13) (0.15)
## factor(Munic)Visegrad -0.03 -0.06
## (0.17) (0.18)
## factor(Munic)Visoko 0.10 0.13
## (0.13) (0.14)
## factor(Munic)Vitez -0.07 -0.05
## (0.12) (0.14)
## factor(Munic)Vlasenica 0.12 0.12
## (0.17) (0.18)
## factor(Munic)Vogosca 0.14 0.15
## (0.16) (0.17)
## factor(Munic)Zavidovici -0.01 -0.02
## (0.13) (0.14)
## factor(Munic)Zenica 0.10 0.11
## (0.11) (0.13)
## factor(Munic)Zivinice -0.02 -0.01
## (0.13) (0.16)
## factor(Munic)Zvornik -0.33 ** -0.32 *
## (0.12) (0.15)
## ---------------------------------------------------
## R^2 0.46 0.44
## Adj. R^2 0.44 0.43
## Num. obs. 5034 5034
## ===================================================
## *** p < 0.001; ** p < 0.01; * p < 0.05##EXTRACT COEFFICINTES MODELA ALL.ACTIVITY
FAZA 9: Extracting the coefficients from WINNING model
model.coef.fulac <- summary(WI.3.fulactivity)$coefficients
model.coef.fulac # vidi koliko redova su koef.za druge varijable (11redova) i B.Krupa je referentna opstina## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.8133964856 1.420711e-01 33.88018621 2.388496e-226
## Age 0.0496996971 4.823173e-03 10.30435664 1.197063e-24
## as.numeric(Age^2) -0.0004961016 5.641839e-05 -8.79325943 1.977520e-18
## factor(Sex_)2 -0.1450792659 1.822044e-02 -7.96244433 2.078447e-15
## factor(Educ.1)elementary 0.0546300158 6.065291e-02 0.90069904 3.677924e-01
## factor(Educ.1)high schl 0.3850542305 5.947853e-02 6.47383536 1.048506e-10
## factor(Educ.1)faculty 0.8260812276 6.246980e-02 13.22368955 2.972516e-39
## factor(Activ.1)Other -0.5827047568 2.018159e-01 -2.88730896 3.902457e-03
## factor(Activ.1)part time -0.7663672490 3.254366e-02 -23.54889574 2.806000e-116
## factor(Activ.1)pension -1.0445327394 6.538236e-02 -15.97575678 4.739703e-56
## factor(Activ.1)unemployed -0.8994895119 3.596997e-02 -25.00667762 5.007898e-130
## factor(Munic)B.Petrovac -0.1580286543 1.812743e-01 -0.87176531 3.833790e-01
## factor(Munic)Banovici 0.2050326367 1.535309e-01 1.33544847 1.817914e-01
## factor(Munic)Banja Luka 0.1093385898 1.094448e-01 0.99902976 3.178294e-01
## factor(Munic)Bihac -0.1126442162 1.184962e-01 -0.95061420 3.418469e-01
## factor(Munic)Bijeljina -0.1651133277 1.086233e-01 -1.52005509 1.285614e-01
## factor(Munic)Bileca 0.0455691250 1.944842e-01 0.23430756 8.147560e-01
## factor(Munic)Bratunac 0.3170981924 1.890840e-01 1.67702302 9.360149e-02
## factor(Munic)Brcko 0.0937837470 1.069970e-01 0.87650847 3.807965e-01
## factor(Munic)Breza 0.1385843257 1.708046e-01 0.81136198 4.171971e-01
## factor(Munic)Brod -0.5236753568 1.442213e-01 -3.63105443 2.851373e-04
## factor(Munic)Bugojno 0.0052723205 1.206353e-01 0.04370461 9.651416e-01
## factor(Munic)Busovaca 0.1100989397 1.443242e-01 0.76285849 4.455844e-01
## factor(Munic)Buzim -0.5067313958 1.850449e-01 -2.73842396 6.195660e-03
## factor(Munic)C.Sarajevo 0.3244346230 1.291397e-01 2.51227600 1.202726e-02
## factor(Munic)Cajnice -0.2521244180 1.740661e-01 -1.44844082 1.475575e-01
## factor(Munic)Capljina 0.4689132860 1.451518e-01 3.23050268 1.243856e-03
## factor(Munic)Cazin -0.0935910892 1.210771e-01 -0.77298752 4.395669e-01
## factor(Munic)Celinac -0.1640892858 1.943948e-01 -0.84410347 3.986526e-01
## factor(Munic)Citluk 0.2674781185 1.491054e-01 1.79388596 7.289274e-02
## factor(Munic)D.Vakuf -0.2168535124 1.321910e-01 -1.64045568 1.009744e-01
## factor(Munic)Derventa -0.5773490761 1.294626e-01 -4.45958350 8.394744e-06
## factor(Munic)Doboj 0.0708550778 1.172961e-01 0.60406998 5.458250e-01
## factor(Munic)Doboj-Jug -0.1186564456 2.145356e-01 -0.55308500 5.802303e-01
## factor(Munic)Drvar 0.0611151856 1.591301e-01 0.38405804 7.009520e-01
## factor(Munic)Foca - RS 0.0173061437 1.423350e-01 0.12158738 9.032308e-01
## factor(Munic)Fojnica 0.2558736438 1.892277e-01 1.35219943 1.763737e-01
## factor(Munic)G.Vakuf -0.1396494368 1.355955e-01 -1.02989746 3.031088e-01
## factor(Munic)Gacko 0.2415921553 1.534484e-01 1.57441987 1.154547e-01
## factor(Munic)Glamoc 0.2475272795 1.947571e-01 1.27095369 2.038052e-01
## factor(Munic)Gorazde 0.2207809501 1.379762e-01 1.60013739 1.096323e-01
## factor(Munic)Gracanica -0.1310760546 1.364831e-01 -0.96038305 3.369096e-01
## factor(Munic)Grad Mostar 0.3216628442 1.108383e-01 2.90209166 3.723257e-03
## factor(Munic)Gradacac -0.0439634066 1.329131e-01 -0.33076799 7.408338e-01
## factor(Munic)Gradiska 0.0133816985 1.607172e-01 0.08326240 9.336463e-01
## factor(Munic)Grude 0.4231729883 1.444596e-01 2.92935154 3.412302e-03
## factor(Munic)Hadzici -0.0817582333 1.742120e-01 -0.46930310 6.388738e-01
## factor(Munic)I.Ilidza -0.0132185634 1.770830e-01 -0.07464615 9.404993e-01
## factor(Munic)Ilidza 0.5279051535 1.314989e-01 4.01452070 6.045292e-05
## factor(Munic)Ilijas 0.1505291806 1.704571e-01 0.88309119 3.772301e-01
## factor(Munic)Jajce 0.2143119379 1.566997e-01 1.36765998 1.714810e-01
## factor(Munic)K.Dubica -0.1044704339 1.846596e-01 -0.56574609 5.715922e-01
## factor(Munic)Kakanj 0.0340772724 1.363541e-01 0.24991751 8.026616e-01
## factor(Munic)Kalesija -0.1901854250 1.506530e-01 -1.26240681 2.068623e-01
## factor(Munic)Kiseljak 0.2253719933 1.413316e-01 1.59463256 1.108586e-01
## factor(Munic)Kladanj 0.1025499749 1.891863e-01 0.54205827 5.878029e-01
## factor(Munic)Kljuc -0.0174879414 1.806206e-01 -0.09682143 9.228721e-01
## factor(Munic)Knezevo -0.1596288101 1.892594e-01 -0.84343911 3.990239e-01
## factor(Munic)Konjic 0.2272359939 1.254452e-01 1.81143706 7.013417e-02
## factor(Munic)Kotor Varos 0.0398426397 1.844656e-01 0.21598955 8.290048e-01
## factor(Munic)Kresevo 0.2441266657 1.552590e-01 1.57238320 1.159260e-01
## factor(Munic)Kupres 0.1931235769 1.804018e-01 1.07051937 2.844381e-01
## factor(Munic)Laktasi 0.0253472910 1.350629e-01 0.18767031 8.511428e-01
## factor(Munic)Livno 0.4523270156 1.381554e-01 3.27404601 1.067522e-03
## factor(Munic)Lopare -0.1370584819 1.333638e-01 -1.02770386 3.041397e-01
## factor(Munic)Lukavac 0.1410432403 1.452876e-01 0.97078650 3.317023e-01
## factor(Munic)Ljubuski 0.3418915749 1.435518e-01 2.38165929 1.727263e-02
## factor(Munic)Maglaj 0.0105979229 1.490709e-01 0.07109319 9.433265e-01
## factor(Munic)Modrica -0.0573377889 1.273099e-01 -0.45037969 6.524565e-01
## factor(Munic)Mrkonjic 0.2716242028 2.147396e-01 1.26490066 2.059668e-01
## factor(Munic)N.G.Sarajevo 0.2869216585 1.092971e-01 2.62515326 8.687787e-03
## factor(Munic)N.Gorazde -0.5040874761 1.741406e-01 -2.89471569 3.811714e-03
## factor(Munic)N.Sarajevo 0.3969185454 1.292135e-01 3.07180318 2.139325e-03
## factor(Munic)N.Travnik -0.1533198986 1.217817e-01 -1.25897296 2.080998e-01
## factor(Munic)Nevesinje 0.0581969666 1.943709e-01 0.29941187 7.646385e-01
## factor(Munic)Novi Grad -0.1029458923 1.272233e-01 -0.80917477 4.184537e-01
## factor(Munic)Olovo 0.1701495921 2.156443e-01 0.78902895 4.301331e-01
## factor(Munic)Orasje 0.3576724504 1.478221e-01 2.41961359 1.557302e-02
## factor(Munic)Pale 0.1136967144 1.569670e-01 0.72433500 4.688945e-01
## factor(Munic)Posusje 0.4199669279 1.679029e-01 2.50124924 1.240784e-02
## factor(Munic)Prijedor 0.1172949160 1.209012e-01 0.97017145 3.320087e-01
## factor(Munic)Prnjavor -0.2850590208 1.231184e-01 -2.31532388 2.063614e-02
## factor(Munic)Prozor 0.2634045620 1.849290e-01 1.42435473 1.544072e-01
## factor(Munic)Ribnik 0.0095788824 1.737232e-01 0.05513875 9.560302e-01
## factor(Munic)Rogatica 0.0562024200 1.655657e-01 0.33945687 7.342801e-01
## factor(Munic)Rudo -0.0975628680 1.571686e-01 -0.62075282 5.347910e-01
## factor(Munic)S.Brijeg 0.6275424085 1.288573e-01 4.87005543 1.150627e-06
## factor(Munic)S.G.Sarajevo 0.3498969418 1.313514e-01 2.66382389 7.750979e-03
## factor(Munic)Samac -0.0237596537 1.197680e-01 -0.19838062 8.427555e-01
## factor(Munic)Sanski Most -0.0247682849 1.221512e-01 -0.20276741 8.393252e-01
## factor(Munic)Sokolac -0.0615785995 1.945970e-01 -0.31644168 7.516807e-01
## factor(Munic)Srbac 0.0562529377 1.735611e-01 0.32411031 7.458683e-01
## factor(Munic)Srebrenica 0.3257252414 2.144948e-01 1.51856947 1.289351e-01
## factor(Munic)Srebrenik 0.1554110874 2.066045e-01 0.75221528 4.519576e-01
## factor(Munic)Stolac 0.3777986616 1.771248e-01 2.13295161 3.297804e-02
## factor(Munic)Teocak 0.2287120643 2.151923e-01 1.06282634 2.879129e-01
## factor(Munic)Tesanj -0.0085715499 1.278565e-01 -0.06704037 9.465523e-01
## factor(Munic)Teslic 0.0066546535 1.324707e-01 0.05023492 9.599372e-01
## factor(Munic)Tomislavgrad 0.1558290052 2.001431e-01 0.77858795 4.362599e-01
## factor(Munic)Travnik 0.3234121211 1.139329e-01 2.83861863 4.549491e-03
## factor(Munic)Trebinje 0.0161667505 1.373919e-01 0.11766890 9.063348e-01
## factor(Munic)Tuzla 0.1211358145 1.195540e-01 1.01323134 3.109995e-01
## factor(Munic)Ugljevik 0.1606914923 1.519205e-01 1.05773416 2.902286e-01
## factor(Munic)V.Kladusa -0.2387762183 1.281798e-01 -1.86282218 6.254683e-02
## factor(Munic)Visegrad -0.0293161078 1.681764e-01 -0.17431762 8.616230e-01
## factor(Munic)Visoko 0.1000427758 1.271912e-01 0.78655438 4.315806e-01
## factor(Munic)Vitez -0.0683973916 1.218946e-01 -0.56111909 5.747419e-01
## factor(Munic)Vlasenica 0.1155237046 1.734684e-01 0.66596404 5.054653e-01
## factor(Munic)Vogosca 0.1403986930 1.569250e-01 0.89468641 3.709985e-01
## factor(Munic)Zavidovici -0.0131941776 1.292170e-01 -0.10210869 9.186746e-01
## factor(Munic)Zenica 0.1005061792 1.109985e-01 0.90547359 3.652589e-01
## factor(Munic)Zivinice -0.0225148896 1.295029e-01 -0.17385626 8.619856e-01
## factor(Munic)Zvornik -0.3347632916 1.248502e-01 -2.68131960 7.357711e-03model.coef.fulac[,c("Estimate","Pr(>|t|)")]## Estimate Pr(>|t|)
## (Intercept) 4.8133964856 2.388496e-226
## Age 0.0496996971 1.197063e-24
## as.numeric(Age^2) -0.0004961016 1.977520e-18
## factor(Sex_)2 -0.1450792659 2.078447e-15
## factor(Educ.1)elementary 0.0546300158 3.677924e-01
## factor(Educ.1)high schl 0.3850542305 1.048506e-10
## factor(Educ.1)faculty 0.8260812276 2.972516e-39
## factor(Activ.1)Other -0.5827047568 3.902457e-03
## factor(Activ.1)part time -0.7663672490 2.806000e-116
## factor(Activ.1)pension -1.0445327394 4.739703e-56
## factor(Activ.1)unemployed -0.8994895119 5.007898e-130
## factor(Munic)B.Petrovac -0.1580286543 3.833790e-01
## factor(Munic)Banovici 0.2050326367 1.817914e-01
## factor(Munic)Banja Luka 0.1093385898 3.178294e-01
## factor(Munic)Bihac -0.1126442162 3.418469e-01
## factor(Munic)Bijeljina -0.1651133277 1.285614e-01
## factor(Munic)Bileca 0.0455691250 8.147560e-01
## factor(Munic)Bratunac 0.3170981924 9.360149e-02
## factor(Munic)Brcko 0.0937837470 3.807965e-01
## factor(Munic)Breza 0.1385843257 4.171971e-01
## factor(Munic)Brod -0.5236753568 2.851373e-04
## factor(Munic)Bugojno 0.0052723205 9.651416e-01
## factor(Munic)Busovaca 0.1100989397 4.455844e-01
## factor(Munic)Buzim -0.5067313958 6.195660e-03
## factor(Munic)C.Sarajevo 0.3244346230 1.202726e-02
## factor(Munic)Cajnice -0.2521244180 1.475575e-01
## factor(Munic)Capljina 0.4689132860 1.243856e-03
## factor(Munic)Cazin -0.0935910892 4.395669e-01
## factor(Munic)Celinac -0.1640892858 3.986526e-01
## factor(Munic)Citluk 0.2674781185 7.289274e-02
## factor(Munic)D.Vakuf -0.2168535124 1.009744e-01
## factor(Munic)Derventa -0.5773490761 8.394744e-06
## factor(Munic)Doboj 0.0708550778 5.458250e-01
## factor(Munic)Doboj-Jug -0.1186564456 5.802303e-01
## factor(Munic)Drvar 0.0611151856 7.009520e-01
## factor(Munic)Foca - RS 0.0173061437 9.032308e-01
## factor(Munic)Fojnica 0.2558736438 1.763737e-01
## factor(Munic)G.Vakuf -0.1396494368 3.031088e-01
## factor(Munic)Gacko 0.2415921553 1.154547e-01
## factor(Munic)Glamoc 0.2475272795 2.038052e-01
## factor(Munic)Gorazde 0.2207809501 1.096323e-01
## factor(Munic)Gracanica -0.1310760546 3.369096e-01
## factor(Munic)Grad Mostar 0.3216628442 3.723257e-03
## factor(Munic)Gradacac -0.0439634066 7.408338e-01
## factor(Munic)Gradiska 0.0133816985 9.336463e-01
## factor(Munic)Grude 0.4231729883 3.412302e-03
## factor(Munic)Hadzici -0.0817582333 6.388738e-01
## factor(Munic)I.Ilidza -0.0132185634 9.404993e-01
## factor(Munic)Ilidza 0.5279051535 6.045292e-05
## factor(Munic)Ilijas 0.1505291806 3.772301e-01
## factor(Munic)Jajce 0.2143119379 1.714810e-01
## factor(Munic)K.Dubica -0.1044704339 5.715922e-01
## factor(Munic)Kakanj 0.0340772724 8.026616e-01
## factor(Munic)Kalesija -0.1901854250 2.068623e-01
## factor(Munic)Kiseljak 0.2253719933 1.108586e-01
## factor(Munic)Kladanj 0.1025499749 5.878029e-01
## factor(Munic)Kljuc -0.0174879414 9.228721e-01
## factor(Munic)Knezevo -0.1596288101 3.990239e-01
## factor(Munic)Konjic 0.2272359939 7.013417e-02
## factor(Munic)Kotor Varos 0.0398426397 8.290048e-01
## factor(Munic)Kresevo 0.2441266657 1.159260e-01
## factor(Munic)Kupres 0.1931235769 2.844381e-01
## factor(Munic)Laktasi 0.0253472910 8.511428e-01
## factor(Munic)Livno 0.4523270156 1.067522e-03
## factor(Munic)Lopare -0.1370584819 3.041397e-01
## factor(Munic)Lukavac 0.1410432403 3.317023e-01
## factor(Munic)Ljubuski 0.3418915749 1.727263e-02
## factor(Munic)Maglaj 0.0105979229 9.433265e-01
## factor(Munic)Modrica -0.0573377889 6.524565e-01
## factor(Munic)Mrkonjic 0.2716242028 2.059668e-01
## factor(Munic)N.G.Sarajevo 0.2869216585 8.687787e-03
## factor(Munic)N.Gorazde -0.5040874761 3.811714e-03
## factor(Munic)N.Sarajevo 0.3969185454 2.139325e-03
## factor(Munic)N.Travnik -0.1533198986 2.080998e-01
## factor(Munic)Nevesinje 0.0581969666 7.646385e-01
## factor(Munic)Novi Grad -0.1029458923 4.184537e-01
## factor(Munic)Olovo 0.1701495921 4.301331e-01
## factor(Munic)Orasje 0.3576724504 1.557302e-02
## factor(Munic)Pale 0.1136967144 4.688945e-01
## factor(Munic)Posusje 0.4199669279 1.240784e-02
## factor(Munic)Prijedor 0.1172949160 3.320087e-01
## factor(Munic)Prnjavor -0.2850590208 2.063614e-02
## factor(Munic)Prozor 0.2634045620 1.544072e-01
## factor(Munic)Ribnik 0.0095788824 9.560302e-01
## factor(Munic)Rogatica 0.0562024200 7.342801e-01
## factor(Munic)Rudo -0.0975628680 5.347910e-01
## factor(Munic)S.Brijeg 0.6275424085 1.150627e-06
## factor(Munic)S.G.Sarajevo 0.3498969418 7.750979e-03
## factor(Munic)Samac -0.0237596537 8.427555e-01
## factor(Munic)Sanski Most -0.0247682849 8.393252e-01
## factor(Munic)Sokolac -0.0615785995 7.516807e-01
## factor(Munic)Srbac 0.0562529377 7.458683e-01
## factor(Munic)Srebrenica 0.3257252414 1.289351e-01
## factor(Munic)Srebrenik 0.1554110874 4.519576e-01
## factor(Munic)Stolac 0.3777986616 3.297804e-02
## factor(Munic)Teocak 0.2287120643 2.879129e-01
## factor(Munic)Tesanj -0.0085715499 9.465523e-01
## factor(Munic)Teslic 0.0066546535 9.599372e-01
## factor(Munic)Tomislavgrad 0.1558290052 4.362599e-01
## factor(Munic)Travnik 0.3234121211 4.549491e-03
## factor(Munic)Trebinje 0.0161667505 9.063348e-01
## factor(Munic)Tuzla 0.1211358145 3.109995e-01
## factor(Munic)Ugljevik 0.1606914923 2.902286e-01
## factor(Munic)V.Kladusa -0.2387762183 6.254683e-02
## factor(Munic)Visegrad -0.0293161078 8.616230e-01
## factor(Munic)Visoko 0.1000427758 4.315806e-01
## factor(Munic)Vitez -0.0683973916 5.747419e-01
## factor(Munic)Vlasenica 0.1155237046 5.054653e-01
## factor(Munic)Vogosca 0.1403986930 3.709985e-01
## factor(Munic)Zavidovici -0.0131941776 9.186746e-01
## factor(Munic)Zenica 0.1005061792 3.652589e-01
## factor(Munic)Zivinice -0.0225148896 8.619856e-01
## factor(Munic)Zvornik -0.3347632916 7.357711e-03model.coef.fulac <- model.coef.fulac
model.coef.fulac <- as.data.frame.array(model.coef.fulac[-c(1:11),]) # da bude dataframe a ne matrix i da mi brise prvih 8 redova koji su drugi koeficijenti
Munic <- rownames(model.coef.fulac)
model.coef.fulac$Munic <- Municdim(model.coef.fulac) #da vidim koliko redova## [1] 102 5rownames(model.coef.fulac) <- 1:102 #nedostaje B.Krupa koje je 0, B.Grahovo nije u modelu
head(model.coef.fulac)Make a new variable with municipal names without
factor(Munic)
Munic1 <- sapply(strsplit(Munic, split=')', fixed=TRUE), function(x) (x[2]))
Munic1## [1] "B.Petrovac" "Banovici" "Banja Luka" "Bihac" "Bijeljina"
## [6] "Bileca" "Bratunac" "Brcko" "Breza" "Brod"
## [11] "Bugojno" "Busovaca" "Buzim" "C.Sarajevo" "Cajnice"
## [16] "Capljina" "Cazin" "Celinac" "Citluk" "D.Vakuf"
## [21] "Derventa" "Doboj" "Doboj-Jug" "Drvar" "Foca - RS"
## [26] "Fojnica" "G.Vakuf" "Gacko" "Glamoc" "Gorazde"
## [31] "Gracanica" "Grad Mostar" "Gradacac" "Gradiska" "Grude"
## [36] "Hadzici" "I.Ilidza" "Ilidza" "Ilijas" "Jajce"
## [41] "K.Dubica" "Kakanj" "Kalesija" "Kiseljak" "Kladanj"
## [46] "Kljuc" "Knezevo" "Konjic" "Kotor Varos" "Kresevo"
## [51] "Kupres" "Laktasi" "Livno" "Lopare" "Lukavac"
## [56] "Ljubuski" "Maglaj" "Modrica" "Mrkonjic" "N.G.Sarajevo"
## [61] "N.Gorazde" "N.Sarajevo" "N.Travnik" "Nevesinje" "Novi Grad"
## [66] "Olovo" "Orasje" "Pale" "Posusje" "Prijedor"
## [71] "Prnjavor" "Prozor" "Ribnik" "Rogatica" "Rudo"
## [76] "S.Brijeg" "S.G.Sarajevo" "Samac" "Sanski Most" "Sokolac"
## [81] "Srbac" "Srebrenica" "Srebrenik" "Stolac" "Teocak"
## [86] "Tesanj" "Teslic" "Tomislavgrad" "Travnik" "Trebinje"
## [91] "Tuzla" "Ugljevik" "V.Kladusa" "Visegrad" "Visoko"
## [96] "Vitez" "Vlasenica" "Vogosca" "Zavidovici" "Zenica"
## [101] "Zivinice" "Zvornik"model.coef.fulac$Munic1 <- Munic1add B.Krupa to dataframe
model.coef.fulac[nrow(model.coef.fulac) + 1,] = c(0, NA, NA, NA,"B.Krupa","B.Krupa" )
model.coef.fulac$Estimate <- as.numeric(model.coef.fulac$Estimate)
dim(model.coef.fulac)## [1] 103 6top10.m.fulac <- model.coef.fulac %>%
dplyr::select(Estimate, Munic1) %>%
arrange (desc(Estimate))%>%
head(10) #top ten municipalities
top10.m.fulac##all bottom
bot10.m.fulac <- model.coef.fulac %>%
dplyr::select(Estimate, Munic1) %>%
arrange (Estimate)%>%
head(10) #bottom ten municipalities
bot10.m.fulac##bottom
bot10.m3a <- model.coef3a %>%
dplyr::select(Estimate, Munic1) %>%
arrange (Estimate)%>%
head(10) #bottom ten municipalities
bot10.m3aMean wages for Wages only employed and for all activity status
U skladu sa preporukom Ismirovom od dana 30.10.2023. koje su se odnosile an rents, je cu da uradim mean vrijednosti za ove opstine wages i to cu mapirati
tapply(WI.dfa$wages, WI.dfa$Munic, summary)## $B.Krupa
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 300.0 430.0 601.6 850.0 1775.0
##
## $B.Petrovac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 113.3 290.0 500.0 632.6 1002.0 1220.0
##
## $Banovici
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 450.0 583.3 840.0 806.0 1030.0 1140.0
##
## $`Banja Luka`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 57.5 500.0 700.0 777.1 1000.0 2300.0
##
## $Bihac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 382.50 600.00 646.54 900.00 2000.00
##
## $Bijeljina
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 62.5 300.0 500.0 607.1 800.0 2000.0
##
## $Bileca
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 200.0 370.0 500.0 598.5 800.0 1200.0
##
## $Bratunac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 200.0 520.0 700.0 800.8 1050.0 1500.0
##
## $Brcko
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 54.17 400.00 560.00 634.11 800.00 2000.00
##
## $Breza
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 860.0 1000.0 881.2 1100.0 1500.0
##
## $Brod
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 283.33 641.67 513.83 733.33 916.67
##
## $Bugojno
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 75.0 300.0 450.0 567.8 700.0 1980.0
##
## $Busovaca
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 75.0 208.3 600.0 668.4 1000.0 2000.0
##
## $Buzim
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 104.17 200.00 419.49 562.50 1366.67
##
## $C.Sarajevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 94.42 730.00 1000.00 1089.26 1500.00 2203.00
##
## $Cajnice
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 75.0 297.5 600.0 525.0 750.0 950.0
##
## $Capljina
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 208.3 683.3 800.0 945.0 1245.0 2020.0
##
## $Cazin
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 250.00 500.00 530.85 700.00 1550.00
##
## $Celinac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 391.7 568.3 572.3 632.7 1200.0
##
## $Citluk
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 58.33 475.00 1025.00 940.18 1312.50 1850.00
##
## $D.Vakuf
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 137.50 400.00 481.20 575.00 1647.17
##
## $Derventa
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 200.00 320.00 345.23 458.33 845.00
##
## $Doboj
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 500.00 680.00 718.24 840.00 1700.00
##
## $`Doboj-Jug`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 291.7 400.0 413.3 499.8 575.0 920.0
##
## $Drvar
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 150.0 345.8 500.0 562.3 712.5 1300.0
##
## $`Foca - RS`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 58.33 385.00 600.00 683.39 935.00 1800.00
##
## $Fojnica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 266.7 402.5 500.0 611.7 875.0 1200.0
##
## $G.Vakuf
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 75.0 137.5 331.0 416.1 441.7 1683.3
##
## $Gacko
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 400.0 550.0 800.0 812.4 1025.0 1500.0
##
## $Glamoc
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 200.0 400.0 400.0 498.5 650.0 1100.0
##
## $Gorazde
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 250.0 519.5 663.0 725.1 800.0 2268.0
##
## $Gracanica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 67.0 293.8 435.0 462.9 589.0 1300.0
##
## $`Grad Mostar`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 125.0 600.0 898.3 941.2 1200.0 2300.0
##
## $Gradacac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 379.17 508.33 570.80 800.00 1511.00
##
## $Gradiska
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 390.0 450.0 504.8 600.0 1000.0
##
## $Grude
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 58.33 800.00 900.00 1007.85 1175.00 2000.00
##
## $I.Ilidza
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 400.0 700.0 686.4 850.0 1500.0
##
## $Ilidza
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 612.5 882.0 873.6 1100.0 1951.0
##
## $Ilijas
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 71.67 439.00 645.83 636.74 850.00 1000.00
##
## $Jajce
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 225.0 372.5 710.0 741.7 983.5 2060.0
##
## $K.Dubica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 308.3 377.5 450.0 538.1 557.5 1200.0
##
## $Kakanj
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 150.0 275.0 700.0 783.4 1175.0 1750.0
##
## $Kalesija
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 55.0 150.0 570.0 590.7 800.0 1450.0
##
## $Kiseljak
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 600.0 800.0 742.1 905.0 1200.0
##
## $Kladanj
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 640.0 800.0 730.8 900.0 1080.0
##
## $Kljuc
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 80.0 383.3 762.5 678.6 906.2 1260.0
##
## $Knezevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 137.5 487.5 620.8 679.2 949.0 1155.0
##
## $Konjic
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 456.2 662.5 735.4 957.5 2240.0
##
## $`Kotor Varos`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 370.0 504.2 580.0 630.5 765.0 962.5
##
## $Kresevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 233.3 725.0 800.0 757.3 860.0 1000.0
##
## $Kupres
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 133.3 208.3 970.0 868.7 1251.7 2000.0
##
## $Laktasi
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 70.0 458.3 550.0 636.4 800.0 1530.0
##
## $Livno
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 291.7 650.0 860.0 891.7 1070.0 1650.0
##
## $Lopare
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 258.33 400.00 470.59 583.33 1600.00
##
## $Lukavac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 60.0 487.5 607.5 689.5 1034.2 1484.0
##
## $Ljubuski
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 800.0 1150.0 1073.4 1500.0 2000.0
##
## $Maglaj
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 412.5 610.0 690.2 900.0 2000.0
##
## $Modrica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 250.00 400.00 467.98 559.17 2000.00
##
## $Mrkonjic
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 400 600 800 770 900 1200
##
## $N.G.Sarajevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 653.0 993.0 949.7 1200.0 2253.0
##
## $N.Gorazde
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 133.3 342.5 370.0 389.2 392.5 710.0
##
## $N.Sarajevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 647.9 977.8 1070.3 1310.8 2300.0
##
## $N.Travnik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 200.00 410.00 436.26 600.00 1070.00
##
## $Nevesinje
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 370.0 400.0 580.0 715.0 962.5 1500.0
##
## $`Novi Grad`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 400.00 600.00 639.61 850.00 1600.00
##
## $Orasje
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 300.0 600.0 750.0 855.6 1040.0 1850.0
##
## $Pale
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 275.0 445.0 625.0 656.3 825.0 1250.0
##
## $Posusje
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 500.0 775.0 800.0 918.9 1055.0 1900.0
##
## $Prijedor
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 137.5 458.3 666.7 660.1 898.3 1210.0
##
## $Prnjavor
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 400.00 600.00 610.15 650.00 1400.00
##
## $Prozor
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 200.0 300.0 500.0 700.2 1250.0 1340.0
##
## $Ribnik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 150.0 450.0 600.0 606.9 700.0 1500.0
##
## $Rogatica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 350.0 537.5 775.0 821.3 1162.5 1400.0
##
## $Rudo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 175.0 316.8 500.0 648.6 750.0 1950.0
##
## $S.Brijeg
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 500 900 1000 1087 1300 2000
##
## $S.G.Sarajevo
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 300.0 618.9 940.0 946.7 1215.0 2000.0
##
## $Samac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 325.00 500.00 593.18 800.00 2200.00
##
## $`Sanski Most`
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 137.5 343.8 641.7 619.3 803.0 1833.3
##
## $Sokolac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 70.0 505.0 685.0 785.8 1050.0 1620.0
##
## $Srbac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 166.7 412.5 515.0 596.1 760.0 1380.0
##
## $Srebrenica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 500 570 800 884 1140 1680
##
## $Srebrenik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 300.0 533.3 600.0 571.2 633.3 850.0
##
## $Stolac
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 200.0 750.0 975.0 943.8 1175.2 1650.0
##
## $Tesanj
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 54.17 400.00 525.00 587.38 625.00 2200.00
##
## $Teslic
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 61.67 398.75 490.42 544.52 724.17 926.75
##
## $Tomislavgrad
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 150.0 625.0 778.3 752.2 970.0 1070.0
##
## $Travnik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 300.0 600.0 700.0 777.6 950.0 2000.0
##
## $Trebinje
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 217.0 400.0 600.0 631.2 792.5 1800.0
##
## $Tuzla
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 160.0 458.8 600.0 741.1 957.5 2100.0
##
## $Ugljevik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 120.0 333.3 600.0 644.7 960.0 1470.0
##
## $V.Kladusa
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 52.5 182.5 325.8 487.1 699.0 1950.0
##
## $Visegrad
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 370.0 370.0 400.0 557.3 715.0 1300.0
##
## $Visoko
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 62.5 400.0 600.0 652.5 760.0 2018.0
##
## $Vitez
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.67 250.00 535.00 540.08 650.00 2000.00
##
## $Vlasenica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 133.3 407.5 620.0 697.7 815.0 1480.0
##
## $Vogosca
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 83.33 435.00 613.00 814.94 1010.00 2000.00
##
## $Zavidovici
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 104.2 400.0 500.0 609.5 800.0 1600.0
##
## $Zenica
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 97.75 450.00 700.00 738.30 991.67 2220.00
##
## $Zivinice
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 100.0 233.3 520.0 594.7 908.3 1650.0
##
## $Zvornik
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 87.5 250.0 400.0 504.5 750.0 1300.0dim (WI.dfa)## [1] 4511 19mean.wages.a <- WI.dfa %>% dplyr::group_by(Munic) %>%summarise_at(dplyr::vars("wages"), list(~n(), ~mean(., na.rm = TRUE), ~sd(., na.rm = TRUE)))
mean.wages.a %>% arrange (desc(mean)) %>% print(n=102)## # A tibble: 100 × 4
## Munic n mean sd
## <chr> <int> <dbl> <dbl>
## 1 C.Sarajevo 57 1089. 555.
## 2 S.Brijeg 56 1087. 313.
## 3 Ljubuski 32 1073. 523.
## 4 N.Sarajevo 56 1070. 518.
## 5 Grude 31 1008. 440.
## 6 N.G.Sarajevo 201 950. 398.
## 7 S.G.Sarajevo 50 947. 405.
## 8 Capljina 27 945 426.
## 9 Stolac 16 944. 431.
## 10 Grad Mostar 176 941. 443.
## 11 Citluk 28 940. 505.
## 12 Posusje 19 919. 349.
## 13 Livno 33 892. 361.
## 14 Srebrenica 10 884 383.
## 15 Breza 17 881. 370.
## 16 Ilidza 50 874. 441.
## 17 Kupres 16 869. 573.
## 18 Orasje 29 856. 401.
## 19 Rogatica 20 821. 343.
## 20 Vogosca 25 815. 515.
## 21 Gacko 27 812. 303.
## 22 Banovici 25 806. 243.
## 23 Bratunac 13 801. 379.
## 24 Sokolac 12 786. 481.
## 25 Kakanj 39 783. 468.
## 26 Travnik 130 778. 286.
## 27 Banja Luka 218 777. 416.
## 28 Mrkonjic 10 770 245.
## 29 Kresevo 23 757. 178.
## 30 Tomislavgrad 12 752. 278.
## 31 Kiseljak 35 742. 257.
## 32 Jajce 19 742. 438.
## 33 Tuzla 82 741. 399.
## 34 Zenica 163 738. 388.
## 35 Konjic 64 735. 446.
## 36 Kladanj 13 731. 256.
## 37 Gorazde 38 725. 352.
## 38 Doboj 75 718. 304.
## 39 Nevesinje 12 715 379.
## 40 Prozor 13 700. 451.
## 41 Vlasenica 18 698. 393.
## 42 Maglaj 29 690. 375.
## 43 Lukavac 32 689. 392.
## 44 I.Ilidza 17 686. 363.
## 45 Foca - RS 31 683. 390.
## 46 Knezevo 12 679. 311.
## 47 Kljuc 16 679. 342.
## 48 Busovaca 31 668. 472.
## 49 Prijedor 81 660. 282.
## 50 Pale 24 656. 282.
## 51 Visoko 58 652. 378.
## 52 Rudo 17 649. 489.
## 53 Bihac 87 647. 381.
## 54 Ugljevik 25 645. 397.
## 55 Novi Grad 55 640. 311.
## 56 Ilijas 16 637. 262.
## 57 Laktasi 45 636. 320.
## 58 Brcko 267 634. 352.
## 59 B.Petrovac 11 633. 417.
## 60 Trebinje 40 631. 291.
## 61 Kotor Varos 13 631. 180.
## 62 Sanski Most 76 619. 330.
## 63 Fojnica 14 612. 290.
## 64 Prnjavor 45 610. 255.
## 65 Zavidovici 54 610. 300.
## 66 Bijeljina 213 607. 425.
## 67 Ribnik 17 607. 306.
## 68 B.Krupa 33 602. 427.
## 69 Bileca 13 598. 319.
## 70 Srbac 18 596. 289.
## 71 Zivinice 51 595. 376.
## 72 Samac 80 593. 415.
## 73 Kalesija 25 591. 417.
## 74 Tesanj 56 587. 335.
## 75 Celinac 11 572. 305.
## 76 Srebrenik 11 571. 148.
## 77 Gradacac 45 571. 314.
## 78 Bugojno 73 568. 416.
## 79 Drvar 20 562. 293.
## 80 Visegrad 15 557. 277.
## 81 Teslic 38 545. 220.
## 82 Vitez 76 540. 378.
## 83 K.Dubica 14 538. 256.
## 84 Cazin 68 531. 340.
## 85 Cajnice 15 525 279.
## 86 Brod 27 514. 277.
## 87 Gradiska 21 505. 228.
## 88 Zvornik 63 504. 323.
## 89 Doboj-Jug 10 500. 190.
## 90 Glamoc 13 498. 248.
## 91 V.Kladusa 44 487. 407.
## 92 D.Vakuf 43 481. 421.
## 93 Lopare 43 471. 338.
## 94 Modrica 55 468. 348.
## 95 Gracanica 42 463. 251.
## 96 N.Travnik 78 436. 273.
## 97 Buzim 13 419. 492.
## 98 G.Vakuf 34 416. 394.
## 99 N.Gorazde 10 389. 145.
## 100 Derventa 37 345. 192.mean.wages.act <- WI.df.allactive %>% dplyr::group_by(Munic) %>% summarise_at(dplyr::vars("wages"), list(~n(), ~mean(., na.rm = TRUE), ~sd(., na.rm = TRUE)))
mean.wages.act %>% arrange (desc(mean)) %>% print(n=101)## # A tibble: 103 × 4
## Munic n mean sd
## <chr> <int> <dbl> <dbl>
## 1 S.Brijeg 57 1094. 315.
## 2 C.Sarajevo 58 1073. 564.
## 3 N.Sarajevo 57 1008. 495.
## 4 Ljubuski 35 1001. 556.
## 5 Grude 34 969. 439.
## 6 Stolac 17 947. 418.
## 7 S.G.Sarajevo 52 922. 417.
## 8 Posusje 20 896. 354.
## 9 Grad Mostar 188 893. 446.
## 10 Citluk 30 891. 522.
## 11 Srebrenica 10 884 383.
## 12 N.G.Sarajevo 226 875. 440.
## 13 Ilidza 51 871. 437.
## 14 Kupres 16 869. 573.
## 15 Capljina 33 841. 456.
## 16 Orasje 31 823. 407.
## 17 Vogosca 25 815. 515.
## 18 Gacko 27 812. 303.
## 19 Livno 41 806. 387.
## 20 Breza 19 804. 419.
## 21 Rogatica 21 785. 374.
## 22 Sokolac 13 773. 462.
## 23 Travnik 132 771. 291.
## 24 Mrkonjic 10 770 245.
## 25 Banovici 27 763. 284.
## 26 Banja Luka 225 762. 406.
## 27 Bratunac 14 758. 398.
## 28 Tomislavgrad 12 752. 278.
## 29 Kakanj 43 730. 481.
## 30 Konjic 66 724. 446.
## 31 Kiseljak 37 711. 283.
## 32 Tuzla 90 706. 409.
## 33 Nevesinje 13 698. 367.
## 34 Vlasenica 18 698. 393.
## 35 Kladanj 14 696. 277.
## 36 Zenica 182 693. 397.
## 37 Kresevo 26 692. 254.
## 38 Gorazde 41 691. 360.
## 39 I.Ilidza 17 686. 363.
## 40 Lukavac 33 679. 391.
## 41 Kljuc 16 679. 342.
## 42 Maglaj 30 669. 387.
## 43 Prozor 15 663. 430.
## 44 Pale 25 656. 276.
## 45 Teocak 10 655. 602.
## 46 Prijedor 83 648. 289.
## 47 Busovaca 34 647. 457.
## 48 Foca - RS 36 644. 398.
## 49 Laktasi 45 636. 320.
## 50 Visoko 61 631. 382.
## 51 Olovo 10 625. 529.
## 52 Bihac 96 625. 421.
## 53 Jajce 25 618. 443.
## 54 Trebinje 42 614. 296.
## 55 Sanski Most 77 612. 333.
## 56 Fojnica 14 612. 290.
## 57 Zavidovici 56 610. 303.
## 58 Ugljevik 28 606. 403.
## 59 Bileca 13 598. 319.
## 60 Srbac 18 596. 289.
## 61 Knezevo 14 595. 358.
## 62 Ribnik 18 594. 302.
## 63 Zivinice 55 592. 371.
## 64 Novi Grad 61 590. 333.
## 65 Brcko 308 586. 361.
## 66 Bijeljina 229 582. 427.
## 67 B.Krupa 35 581. 424.
## 68 Doboj 108 580. 375.
## 69 Ilijas 19 579. 291.
## 70 Srebrenik 11 571. 148.
## 71 Tesanj 59 567. 339.
## 72 Kotor Varos 15 559. 251.
## 73 Samac 90 549. 416.
## 74 Gradacac 48 539. 328.
## 75 Kalesija 29 531. 417.
## 76 Vitez 79 528. 377.
## 77 K.Dubica 15 527. 251.
## 78 Rudo 25 521. 447.
## 79 Bugojno 85 518. 410.
## 80 Drvar 24 513. 295.
## 81 Celinac 13 505. 324.
## 82 Doboj-Jug 10 500. 190.
## 83 Glamoc 13 498. 248.
## 84 Gradiska 23 496. 221.
## 85 Visegrad 20 492. 276.
## 86 Cazin 80 490. 335.
## 87 Zvornik 67 484. 324.
## 88 B.Petrovac 16 476. 420.
## 89 Cajnice 18 469. 292.
## 90 Teslic 49 466. 247.
## 91 Gracanica 43 457. 251.
## 92 Hadzici 18 455. 411.
## 93 Modrica 61 439. 343.
## 94 N.Travnik 79 438. 272.
## 95 Lopare 49 424. 341.
## 96 D.Vakuf 51 423. 410.
## 97 Brod 34 421. 308.
## 98 V.Kladusa 58 417. 387.
## 99 Prnjavor 76 416. 321.
## 100 Buzim 15 403. 459.
## 101 G.Vakuf 45 354. 362.
## # ℹ 2 more rows##spasi sve kada je i only empl i all activity i onda i za uradi kalkulaciju za nedostajuce opstine
Objedinjena baza sa nedostajucim opstinama mi se nalazi u Monetary Indexes for mapping u folderu Pisanje doktorske disertacije.
#spasiti a u excel estimated koeficijente i meanovie
library(openxlsx)
wb = createWorkbook()
sh1 = addWorksheet(wb, "Estimates_wages_onlyempl") #ovo je naziv 1. sheeta
sh2 = addWorksheet(wb, "mean.wages.onlyempl")#naziv 2. sheeta
sh3 = addWorksheet(wb, "Estimates_wages_allactivity") #ovo je naziv sheeta
sh4 = addWorksheet(wb, "mean.wages.allactivity")#naziv drugog sheeta
library(expss)## Loading required package: maditr##
## To select columns from data: columns(mtcars, mpg, vs:carb)##
## Attaching package: 'maditr'## The following object is masked from 'package:raster':
##
## shift## The following object is masked from 'package:purrr':
##
## transpose## The following object is masked from 'package:readr':
##
## cols## The following objects are masked from 'package:dplyr':
##
## between, coalesce, first, last##
## Attaching package: 'expss'## The following object is masked from 'package:raster':
##
## calc## The following objects are masked from 'package:stringr':
##
## fixed, regex## The following objects are masked from 'package:purrr':
##
## keep, modify, modify_if, when## The following object is masked from 'package:ggplot2':
##
## vars## The following objects are masked from 'package:tidyr':
##
## contains, nest## The following objects are masked from 'package:dplyr':
##
## compute, contains, na_if, recode, vars, where## The following objects are masked from 'package:haven':
##
## is.labelled, read_spssxl_write(model.coef3a, wb, sh1)
xl_write(mean.wages.a, wb, sh2) #ovo je full income
xl_write(model.coef.fulac, wb, sh3)
xl_write(mean.wages.act, wb, sh4)#ovo je samo wages
saveWorkbook(wb, "Mean_AND_Estim_wages_empl_vesus_all_july.2024.xlsx", overwrite = T)###MAP MEANS
mean.wages.a <- as.data.frame(mean.wages.a)
str(mean.wages.a)## 'data.frame': 100 obs. of 4 variables:
## $ Munic: chr "B.Krupa" "B.Petrovac" "Banja Luka" "Banovici" ...
## ..- attr(*, "label")= chr "Naziv opcine"
## ..- attr(*, "format.spss")= chr "A12"
## $ n : int 33 11 218 25 87 213 13 13 267 17 ...
## $ mean : num 602 633 777 806 647 ...
## $ sd : num 427 417 416 243 381 ...map.wages.a <- merge (mean.wages.a, amraGIS, by.x='Munic', by.y = "NAME_4", all=T)
dim(map.wages.a)## [1] 141 18#141 muncicip
#MEAN WAGES ACT
mean.wages.act <- as.data.frame(mean.wages.act)
str(mean.wages.act)## 'data.frame': 103 obs. of 4 variables:
## $ Munic: chr "B.Krupa" "B.Petrovac" "Banja Luka" "Banovici" ...
## ..- attr(*, "label")= chr "Naziv opcine"
## ..- attr(*, "format.spss")= chr "A12"
## $ n : int 35 16 225 27 96 229 13 14 308 19 ...
## $ mean : num 581 476 762 763 625 ...
## $ sd : num 424 420 406 284 421 ...map.wages.act <- merge (mean.wages.act, amraGIS, by.x='Munic', by.y = "NAME_4", all=T)
dim(map.wages.a)## [1] 141 18#141 muncicipg.a = ggplot() + geom_sf(data = map.wages.a, aes(geometry=geometry, fill = mean)) + scale_fill_viridis_c() + scale_x_continuous(breaks = c(18, 48))
g.a + labs (title = "Mean wages")
g = ggplot() + geom_sf(data = map.wages.act, aes(geometry=geometry, fill = mean)) + scale_fill_viridis_c() + scale_x_continuous(breaks = c(18, 48))
g + labs (title = "Mean wages all activity status")
MAP ESTIMATES
- Map estimates on map amraGIS but latter on there is a better map on .shp file
Mapirati cu samo one tzv pobjednicke koeficijente ### merge estimates data and map data
WI.3a <- lm (log(wages)~ Age + as.numeric(Age^2)+ Sex_ + Educ.1 + factor(Full.time) + factor (Munic) , data = WI.dfa)
##import new shape file!!
amraGIS.nova <- st_read ("C:/Users/Amra/Documents/HBS database inspecting/geoBoundaries-BIH-ADM2-all/geoBoundaries-BIH-ADM2_simplified.shp")## Reading layer `geoBoundaries-BIH-ADM2_simplified' from data source
## `C:\Users\Amra\Documents\HBS database inspecting\geoBoundaries-BIH-ADM2-all\geoBoundaries-BIH-ADM2_simplified.shp'
## using driver `ESRI Shapefile'
## Simple feature collection with 142 features and 5 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: 15.73111 ymin: 42.54831 xmax: 19.62407 ymax: 45.27963
## Geodetic CRS: WGS 84amraGIS.nova$shapeName## [1] "Brčko distrikt Bosne i Hercegovine" "Vukosavlje"
## [3] "Banja Luka" "Bihac"
## [5] "Bijeljina" "Doboj"
## [7] "Jajce" "Mostar"
## [9] "Prijedor" "Trebinje"
## [11] "Zenica" "Banovići"
## [13] "Berkovići" "Bileća"
## [15] "Bosanska Gradiška/Gradiška" "Bosanska Kostajnica/Kostajnica"
## [17] "Bosanska Krupa" "Bosanska/Kozarska Dubica"
## [19] "Bosanski Brod" "Bosanski Novi/Novi"
## [21] "Bosanski Petrovac" "Bosanski Šamac/Šamac"
## [23] "Bosansko Grahovo" "Breza"
## [25] "Bugojno" "Busovača"
## [27] "Bužim" "Čajniče"
## [29] "Čapljina" "Cazin"
## [31] "Čelić" "Čelinac"
## [33] "Centar" "Čitluk"
## [35] "Derventa" "Doboj Istok"
## [37] "Doboj Jug" "Dobretići"
## [39] "Domaljevac-Šamac" "Donji Vakuf"
## [41] "Donji Žabar" "Drvar"
## [43] "Istočni Drvar" "Istočna Ilidža"
## [45] "Istočni Mostar" "Istočno Novo Sarajevo"
## [47] "Istočni Stari Grad" "Foča"
## [49] "Fojnica" "Gacko"
## [51] "Glamoč" "Goražde"
## [53] "Gornji Vakuf/Uskoplje" "Gračanica"
## [55] "Gradačac" "Grude"
## [57] "Hadžići" "Han Pijesak"
## [59] "Ilidža" "Ilijaš"
## [61] "Jablanica" "Jezero"
## [63] "Kakanj" "Kalesija"
## [65] "Kalinovik" "Kiseljak"
## [67] "Kladanj" "Ključ"
## [69] "Konjic" "Kotor Varoš"
## [71] "Kreševo" "Krupa na Uni"
## [73] "Kupres (RS)" "Kupres"
## [75] "Laktaši" "Livno"
## [77] "Ljubinje" "Ljubuški"
## [79] "Lopare" "Lukavac"
## [81] "Maglaj" "Milići"
## [83] "Modriča" "Mrkonjic Grad"
## [85] "Neum" "Nevesinje"
## [87] "Novo Goražde" "Novo Sarajevo"
## [89] "Novi Grad" "Novi Travnik"
## [91] "Odžak" "Stari Grad"
## [93] "Olovo" "Orašje"
## [95] "Osmaci" "Oštra Luka"
## [97] "Pale" "Pale-Prača"
## [99] "Pelagićevo" "Petrovac"
## [101] "Petrovo" "Posušje"
## [103] "Prnjavor" "Prozor"
## [105] "Ravno" "Ribnik"
## [107] "Rogatica" "Rudo"
## [109] "Sanski Most" "Sapna"
## [111] "Šekovići" "Šipovo"
## [113] "Široki Brijeg" "Skender Vakuf/Kneževo"
## [115] "Sokolac" "Srbac"
## [117] "Srebrenica" "Srebrenik"
## [119] "Stolac" "Teočak"
## [121] "Tešanj" "Teslić"
## [123] "Tomislavgrad" "Travnik"
## [125] "Trnovo" "Tuzla"
## [127] "Ugljevik" "Usora"
## [129] "Ustikolina" "Vareš"
## [131] "Velika Kladuša" "Višegrad"
## [133] "Visoko" "Vitez"
## [135] "Vlasenica" "Vogošća"
## [137] "Zavidovići" "Žepče"
## [139] "Živinice" "Zvornik"
## [141] "Bratunac" "Trnovo (RS)"##Adjust the names of the municipalites
amraGIS.nova$shapeName <- c("Brcko", "Vukosavlje","Banja Luka", "Bihac", "Bijeljina", "Doboj", "Jajce", "Mostar", "Prijedor", "Trebinje", "Zenica", "Banovici", "Berkovici" , "Bileca","Gradiska", "Kostajnica", "B.Krupa" , "K.Dubica", "Brod", "Novi Grad", "B.Petrovac", "Samac", "B.Grahovo", "Breza" , "Bugojno" , "Busovaca", "Buzim" , "Cajnice", "Capljina", "Cazin", "Celic", "Celinac", "C.Sarajevo", "Citluk", "Derventa", "Doboj-Istok", "Doboj-Jug", "Dobretici", "D-Samac", "D.Vakuf", "Donji Zabar", "Drvar", "I.Drvar", "I.Ilidza", "I.Mostar", "I.N.Sarajevo", "I.S.Grad", "Foca - RS", "Fojnica", "Gacko", "Glamoc","Gorazde", "G.Vakuf", "Gracanica", "Gradacac", "Grude", "Hadzici", "Han Pijesak", "Ilidza", "Ilijas", "Jablanica", "Jezero", "Kakanj", "Kalesija", "Kalinovik", "Kiseljak", "Kladanj", "Kljuc", "Konjic", "Kotor Varos", "Kresevo", "Krupa na Uni", "Kupres-RS", "Kupres", "Laktasi", "Livno", "Ljubinje", "Ljubuski", "Lopare", "Lukavac", "Maglaj", "Milici", "Modrica", "Mrkonjic" ,"Neum", "Nevesinje", "N.Gorazde", "N.Sarajevo", "Novi Grad", "N.Travnik", "Odzak", "S.G.Sarajevo", "Olovo", "Orasje", "Osmaci", "Ostra Luka", "Pale","Pale-FBiH", "Pelagicevo", "Petrovac", "Petrovo", "Posusje", "Prnjavor", "Prozor", "Ravno", "Ribnik", "Rogatica", "Rudo", "Sanski Most", "Sapna","Sekovici", "Sipovo", "S.Brijeg", "Knezevo", "Sokolac", "Srbac", "Srebrenica", "Srebrenik", "Stolac", "Teocak", "Tesanj", "Teslic", "Tomislavgrad", "Travnik", "Trnovo", "Tuzla", "Ugljevik", "Usora", "Foca-FBiH", "Vares","V.Kladusa", "Visegrad", "Visoko", "Vitez", "Vlasenica", "Vogosca", "Zavidovici", "Zepce", "Zivinice", "Zvornik", "Bratunac", "Trnovo-RS") Make a map with amraGIS.nova
map.coef3a.nova <- merge(amraGIS.nova, model.coef3a, by.y='Munic1', by.x = "shapeName",all = TRUE)Map with nova i exp.values
library(ggplot2)
g5a = ggplot() + geom_sf(data = map.coef3a.nova, aes(geometry=geometry, fill = Estimate)) + scale_fill_viridis_c() + scale_x_continuous()
g5a + ggtitle("Graph: Wages Index (only employed included)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold"))
FAZA 10: MAPIRATI KOEFICIJENTE ZA SVE OPSTINE (otvoriti spaseni excel file samo za wages koef.)
#import df
library(readxl)
Monetary_Indexes_for_mapping_2_7_2024 <- read_excel("C:/Users/Amra/OneDrive - Direkcija za ekonomsko planiranje/Prijava teme doktorske disertacije/Pisanje disertacije/Monetary Indexes for mapping_2.7.2024.xlsx")
View(Monetary_Indexes_for_mapping_2_7_2024)
mon.map <- Monetary_Indexes_for_mapping_2_7_2024#merge it with map
map.mon.value <- merge(amraGIS.nova, mon.map, by.x = "shapeName", by.y='Munic1',all = TRUE)
dim(map.mon.value)## [1] 143 33#map monetary wages all municipalities
library(ggplot2)
g6 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = `WI_empl_BAM`)) + scale_fill_viridis_c() + scale_x_continuous()
g6 + ggtitle("Graph: Wages Index in monetary values (BAM)\n-only employed") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Monetary WI"))
#map Wage monetary all activity
library(ggplot2)
g7 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = `WI_allact_BAM`)) + scale_fill_viridis_c() + scale_x_continuous()
g7 + ggtitle("Graph: Wages Index in monetary values (BAM)\n-all activity") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Monetary WI"))
#map monetary value HPI
library(ggplot2)
g8 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = HPI_monet)) + scale_fill_viridis_c() + scale_x_continuous()
g8 + ggtitle("Graph: HPI monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Monetary HPI"))
Map HPI/Wage in moneatry values only employed WI
library(ggplot2)
g9 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = WI_empl_BAM/HPI_monet)) + scale_fill_viridis_c() + scale_x_continuous()
g9 + ggtitle("Graph: HPI/WI (only employed) in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="HPI/WI_empl"))
Map HPI/Wage in moneatry values only employed WI
library(ggplot2)
g10 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = WI_allact_BAM/HPI_monet)) + scale_fill_viridis_c() + scale_x_continuous()
g10 + ggtitle("Graph: HPI/WI (all activity) in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="HPI/WI_all_act"))
#MAP NET WAGES FROM STATISTICS
library(ggplot2)
g11 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(Adjusted.av.salery))) + scale_fill_viridis_c() + scale_x_continuous()
g11 + ggtitle("Graph: Average salery in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Average salery"))
library(ggplot2)
g12 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(Adjusted.av.salery)/HPI_monet)) + scale_fill_viridis_c() + scale_x_continuous()
g12 + ggtitle("Graph: HPI/Adjusted.av.salery in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="HPI/Adjusted.av.salery"))
#MAP TRANSPORT FROM STATISTICS
library(ggplot2)
g13 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(Transp_monet))) + scale_fill_viridis_c() + scale_x_continuous()
g13 + ggtitle("Graph: Average transport cost in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Average transport")) 
#option 2
map.mon.value <- mutate(map.mon.value, cut.transport = cut_number(Transp_monet, n=12))
g13a = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = cut.transport)) + scale_fill_viridis_d()
g13a + ggtitle("Graph: Average transport cost in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Average transport")) 
#option 3 = cut width da sam odredi koliko intervala
map.mon.value <- mutate(map.mon.value, cut.transport1 = cut_width(Transp_monet, width = 10))
g13a = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = cut.transport1)) + scale_fill_viridis_d()
g13a + ggtitle("Graph: Average transport cost in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="Average transport")) 
library(ggplot2)
g12 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(Adjusted.av.salery)/HPI_monet)) + scale_fill_viridis_c() + scale_x_continuous()
g12 + ggtitle("Graph: HPI/Adjusted.av.salery in \n monetary values (BAM)") + theme(plot.title = element_text(color="darkgray", size=12, face="bold")) + guides(fill=guide_legend(title="HPI/Adjusted.av.salery"))
QoLI mapping
library(ggplot2)
QoLI1 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(QoLIndex_wage1))) + scale_fill_viridis_c() + scale_x_continuous() + ggtitle("Graph: QoLI- wage \n only employed") + theme(plot.title = element_text(color="darkgray", size=10, face="bold")) + guides(fill=guide_legend(title="QoLI-v1 in \n monetary values"))
QoLI1 
QoLI2 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(QoLIndex_wage2))) + scale_fill_viridis_c() + scale_x_continuous() + ggtitle("Graph: QoLI- wage \n all activity") + theme(plot.title = element_text(color="darkgray", size=10, face="bold")) + guides(fill=guide_legend(title="QoLI-v2 in \n monetary values"))
QoLI2 
QoLI3 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(QoLIndex_wage3))) + scale_fill_viridis_c() + scale_x_continuous() + ggtitle("Graph: QoLI- entity \nstatics for wages") + theme(plot.title = element_text(color="darkgray", size=10, face="bold")) + guides(fill=guide_legend(title="QoLI-v3 in \nmonetary values"))
QoLI3 
QoLI4 = ggplot() + geom_sf(data = map.mon.value, aes(geometry=geometry, fill = as.numeric(QoLIndex_wage4))) + scale_fill_viridis_c() + scale_x_continuous() + ggtitle("Graph: QoLI- Adjusted entity \n statistics for wages") + theme(plot.title = element_text(color="darkgray", size=10, face="bold")) + guides(fill=guide_legend(title="QoLI-v4 in \n monetary values"))
QoLI4 
library(gridExtra)##
## Attaching package: 'gridExtra'## The following object is masked from 'package:dplyr':
##
## combinegrid.arrange(QoLI1,QoLI2,QoLI3, QoLI4,ncol=2)
##try to see at what age the saleries start to fall
#fitted values parabol attach (WI.dfa) proba <- lm(wages~Age+as.numeric(Age^2), data=WI.dfa) summary(proba) plot(y=wages, x=Age, panel.last=lines(sort(Age),fitted(proba)[order(Age)]))
#vizuelno se vidi da plate pocinju da padaju od oko 55 godine zivota