# Kod 1.2. Odczyt
danych on-line z bazy OECD
library(openxlsx)
oecd <- read.xlsx("https://www.oecdregionalwellbeing.org/assets/downloads/OECD-Regional-Well-Being-Data-File.xlsx",
startRow=9,colNames=FALSE,sheet = 4,rows=9:410,cols=2:17)
# To convert some missing data in Excel sheet
oecd[oecd=="..."]=NA
for (i in 4:16) oecd[,i]=as.numeric(oecd[,i])
colnames(oecd)<-c("Country","Region","Code","Labour","Employment","Unemployment",
"Household",
"Homicide","Mortality","Life","Air","Voter","Broadband","Number","Perceived","Self")