load("C:/Users/Gabriela/Desktop/Base_de_dados-master/df_pokemon.RData")
tabela_altura = table(df$height)
media_altura = mean(tabela_altura)
media_altura
## [1] 14.95833
mediana_altura = median(tabela_altura)
mediana_altura
## [1] 2
DP_altura = sd(tabela_altura)
DP_altura
## [1] 19.39726
var_altura = var(tabela_altura)
var_altura
## [1] 376.2535
hist(df$height, col="#FF1493",main="Altura dos Pokemons")