# https://1drv.ms/u/s!AlrLrycbTQ1at8d6PsiJSdGbpmmykA

summary(DemographicData)
describe(DemographicData)
max(c(-5,6,9,10,18,-3,2))
mean(c(-5,6,9,10,18,-3,2))
sort(c(-5,6,9,10,18,-3,2))
sort(c(-5,6,9,10,18,-3,2),decreasing = TRUE)
length(c(-5,6,9,10,18,-3,2))
length(DemographicData)
length("Karol")
?cor
head(DemographicData)
head(DemographicData, 3L)
tail(DemographicData, 5L)
DemographicData$`Country Name`
DemographicData$`Internet users`
t(DemographicData$`Country Name`)
DemographicData$`Birth rate`