Histograma

Programa: data(jura) x.norm<-prediction.dat$Co h<-hist(x.norm,breaks=15) xhist<-c(min(h$breaks),h$breaks) yhist<-c(0,h$density,0) xfit<-seq(0, 250, by=1.0) yfit<-dnorm(xfit,mean=mean(x.norm),sd=sd(x.norm)) plot(xhist,yhist,type="s",ylim=c(0,max(yhist,yfit)),xlab="Teor de Cobalto (ppm)",ylab="Frequência relativa",main="Histograma e curva normal ajustada (Cobalto)") lines(xfit,yfit,col="red")

Resultado: