R Markdown

library(readxl)
AptosCriciuma <- read_excel("C:/Users/LITMEC/Desktop/Base_de_dados-master/AptosCriciuma.xls")

Histograma da energia dos AptosCriciuma

hist(AptosCriciuma$Energia,col ="pink",main ="grafico da energia nos aptos",ylab ="frequência",xlab = "Energia" )

Média das Energias

mean(AptosCriciuma$Energia)
## [1] 159.48

Desvio padrão das Energias

sd(AptosCriciuma$Energia)
## [1] 23.36336