##Exercícios aula 04 #104.1 Rios data(rivers) str(rivers) length(rivers) mean(rivers) prop.mm <- length(rivers[rivers