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@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
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

	[[alternative HTML version deleted]]

