first_steps.r

# Let's read a file and see what is inside
who = read.csv("WHO.csv")
str(who)
summary(who)

# Divide and Conquer !
who_europe = subset(who, Region == "Europe")

which.min(who$Under15)

# Drawing is fun
plot(whi$GNI, who$FertilityRate)

# I told you, I wanted to divide !
outliers = subset(who, GNI > 10000 & FertilityRate > 2.5)
nrow(outliers)

# Draw again
hist(who$CellularSubscribers)
boxplot(who$LifeExpectancy ~ who$Region)

table(who$Region)
table(who$Over60, who$Region, mean)