>>>>> "Guazzetti" == Guazzetti Stefano <[EMAIL PROTECTED]>
>>>>> on Fri, 7 May 2004 14:45:22 +0200 writes:
Guazzetti> Maybe you want something like:
Guazzetti> x<-rnorm(1000)
Guazzetti> hist(x, breaks=100,
Guazzetti> col=ifelse(abs((hist(x, breaks=100, main=""))$breaks) < 1.669,
Guazzetti> 4,2))
Guazzetti> see also the density argument in ?hist
very good!
Even slightly better {not calling hist() twice} is
x <- rnorm(1000)
hx <- hist(x, breaks=100,plot=FALSE)
plot(hx, col=ifelse(abs(hx$breaks) < 1.669, 4, 2))
Regards, Martin
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
