dadosA<-c(12,15,23,22,23,16)
dadosB<-c(0.65,3.65,11.65,10.65,11.65,4.65)
dadosC<-c(551,554,555,562,562,561)
var(dadosA)
var(dadosB)
var(dadosC)
mean(dadosA)
mean(dadosB)
mean(dadosC)
CVA<-sqrt(var(dadosA))*100/mean(dadosA)
CVB<-sqrt(var(dadosB))*100/mean(dadosB)
CVC<-sqrt(var(dadosC))*100/mean(dadosC)