search for: hbreak1

...uple of years ago). # Function horiz.hist <- function(Data, breaks="Sturges", col="transparent", las=1, ylim=range(HBreaks), labelat=pretty(ylim), labels=labelat, border=par("fg"), ... ) {a <- hist(Data, plot=FALSE, breaks=breaks) HBreaks <- a$breaks HBreak1 <- a$breaks[1] hpos <<- function(Pos) (Pos-HBreak1)*(length(HBreaks)-1)/ diff(range(HBreaks)) # Assign a function to the global environment with values calculated inside the main function. barplot(a$counts, space=0, horiz=T, ylim=hpos(ylim), col=col, border=border,...) axis(2,...