if (FALSE) {
head(CIAdata())
Population <- CIAdata("pop")
nrow(Population)
head(Population)
PopArea <-
CIAdata(c("pop","area")) |>
mutate(density = pop / area)
nrow(PopArea)
head(PopArea)
PopArea |>
filter(!is.na(density)) |>
arrange(density) |>
tail()
}
Run the code above in your browser using DataLab