MQMF (version 0.1.1)

inthist: inthist a replacement for the hist function for use with integers

Description

inthist is a replacement for the 'hist' function for use with integers because the ordinary function fails to count them correctly. It treats integers (counts) as if they were real numbers. The function is designed for integers and if it is given real numbers it will issue a warning and then round all values before plotting. It can accept a vector of integers to be counts, or a matrix of values and associated counts.

Usage

inthist(
  x,
  col = 1,
  border = 1,
  width = 1,
  xlabel = "",
  ylabel = "",
  main = "",
  lwd = 1,
  xmin = NA,
  xmax = NA,
  ymax = NA,
  plotout = TRUE,
  prop = FALSE,
  inc = 1,
  xaxis = TRUE
)

Arguments

x

the vector of integers to be counted and plotted OR a matrix of values in column 1 and counts in column 2

col

the colour of the fill; defaults to black = 1, set this to 0 for an empty bar, but then give a value for border

border

the colour of the outline of each bar defaults to 1

width

denotes the width of each bar; defaults to 1, should be >0 and usually <= 1. A warning will be issued outside this range. If < 0 then it will be reset to 1.0

xlabel

the label for the x axis; defaults to ""

ylabel

the label for the y axis; defaults to ""

main

the title for the individual plot; defaults to ""

lwd

the line width of the border; defaults to 1

xmin

sets the lower bound for x-axis; used to match plots

xmax

sets the upper bound for x axis; used with multiple plots

ymax

enables external control of the maximum y value; mainly of use when plotting multiple plots together.

plotout

plot the histogram or not? Defaults to TRUE

prop

plot the proportions rather than the counts

inc

sets the xaxis increment; used to customize the axis; defaults to 1.

xaxis

set to FALSE to define the xaxis outside of inthist; defaults to TRUE

Value

a matrix of values and counts is returned invisibly

Examples

# NOT RUN {
 oldpar <- par(no.readonly=TRUE)
 x <- trunc(runif(1000)*10) + 1
 #plotprep(width=6,height=4)
 inthist(x,col="grey",border=3,width=0.75,xlabel="Random Uniform",
         ylabel="Frequency")
 abline(h=100)
 par(oldpar)
# }