library(readxl)
AptosCriciuma <- read_excel("C:/Users/LITMEC/Desktop/Base_de_dados-master/AptosCriciuma.xls")
hist(AptosCriciuma$Energia,col ="pink",main ="grafico da energia nos aptos",ylab ="frequência",xlab = "Energia" )
mean(AptosCriciuma$Energia)
## [1] 159.48
sd(AptosCriciuma$Energia)
## [1] 23.36336