The R Project SVN R

\examples{

\examples{

data(islands)

data(islands)

op <- par(mfrow=c(2, 2))

op <- par(mfrow=c(2, 2))

hist(islands)

hist(islands)

hist(sqrt(islands), br = 12, col="lightblue", border="pink")

hist(sqrt(islands), br = 12, col="lightblue", border="pink")

##-- For non-equidistant breaks, counts should NOT be graphed unscaled:

##-- For non-equidistant breaks, counts should NOT be graphed unscaled:

r <- hist(sqrt(islands), br = c(4*0:5, 10*3:5, 70, 100, 140), col='blue1')

r <- hist(sqrt(islands), br = c(4*0:5, 10*3:5, 70, 100, 140), col='blue1')

text(r$mids, r$density, r$counts, adj=c(.5, -.5), col='blue3')

text(r$mids, r$density, r$counts, adj=c(.5, -.5), col='blue3')

sapply(r[2:3], sum)

sapply(r[2:3], sum)

sum(r$density * diff(r$breaks)) # == 1

sum(r$density * diff(r$breaks)) # == 1

lines(r, lty = 3, border = "purple") # -> lines.histogram(*)

lines(r, lty = 3, border = "purple") # -> lines.histogram(*)

par(op)

par(op)

}

}

\keyword{dplot}

\keyword{dplot}

\keyword{hplot}

\keyword{hplot}

\keyword{distribution}

\keyword{distribution}