search for: ahist

...testing the discrete data would be appreciated. Thanks, a <- rnorm(1000, 10, 1);a # normal distribution a b <- rnorm(1000, 12, 1.5);b # normal distribution b c <- rnorm(1000, 8, 1);c # normal distribution c d <- rnorm(1000, 12, 2.5);d # normal distribution d par(mfrow=c(2,2), las=1) ahist<-hist(a, breaks=1:25, prob=T, ylim=c(0,0.4));box() # histograms of a bhist<-hist(b, breaks=1:25, prob=T, ylim=c(0,0.4));box() # histograms of b chist<-hist(c, breaks=1:25, prob=T, ylim=c(0,0.4));box() # histograms of c dhist<-hist(d, breaks=1:25, prob=T, ylim=c(0,0.4));box() # histogram...

...# Limite inferior, LS <- y[rep-(((1-nc)/2)*rep)] # Limite superior ### PARTE GRÁFICA ### x <- mean(y) xvals <- seq(-LI, LI, length.out=5000) dvals <- dnorm(xvals,mean(y), sd(y))[1:5000] xbvals <- seq(LS, LS*2, length.out=5000) dbvals <- dnorm(xbvals,mean(y), sd(y))[1:5000] ahist <- hist(y, freq=FALSE, col="lightblue", main="Intervalo de confiança") polygon(c(xvals,LI,LI), c(dvals,dnorm(LI,mean(y), sd(y)),min(dvals)), col="orange", lty=0) polygon(c(LS,LS,xbvals), c(min(dbvals),dnorm(LS,mean(y), sd(y)),dbvals), col="orange", lty=0)...