another histogram question

You can do this:

hh <- lapply(h, head, mh)
hh$breaks <- head(h$breaks, mh + 1)
class(hh) <- "histogram"
plot(hh)

On Mon, Sep 1, 2008 at 10:44 AM, Antje <niederlein-rstat at yahoo.de 
<mailto:niederlein-rstat at yahoo.de>> wrote:

    Hi there,

    I hope this question is not as stupid as the one before ...
    I tried to shorten my histogram (because the distribution is quite
    skewed and I simply don't want to see the long tail but still use
    the histogram plot). How can I do something like this? (The example
    does not work but I don't know why...)

    data <- rnorm(100) # as example, of course this is not skewed...

    h <- hist(data, plot=FALSE)
    mh <- 5
    hh <- list(h$breaks[0:(mh+1)],
    h$counts[0:mh],h$intensities[0:mh],h$density[0:mh],h$mids[0:mh],h$xname,h$equidist)
    names(hh) <- names(h)
    plot(hh)


    Antje