library(readxl)
## Warning: package 'readxl' was built under R version 4.2.3
AptosCriciuma = readxl::read_xls("C:/Users/18899108722/Desktop/Base_de_dados-master/AptosCriciuma.xls")
hist(AptosCriciuma$Energia,col ="pink",main ="gráfico da energia nos Aptos",ylab ="frequência",xlab= "Energia")
mean(AptosCriciuma$Energia)
## [1] 159.48
sd(AptosCriciuma$Energia)
## [1] 23.36336