Rank: An alternative to 'rank' which behaves like 'all.equal'.
In mikemeredith/MMmisc: Stuff that Mike wants to have available

Description Usage Arguments Details Value Author(s) See Also Examples

Returns the sample ranks of the values in a vector. Values are treated as ties if difference < tolerance.

1	Rank(x, na.last = TRUE, ties.method = c("average", "first", "random", "max", "min"), tolerance = .Machine$double.eps^0.5)

`x`	a numeric, complex, character or logical vector.
`na.last`	for controlling the treatment of NAs. If TRUE, missing values in the data are put last; if FALSE, they are put first; if NA, they are removed; if "keep" they are kept with rank NA.
`ties.method`	a character string specifying how ties are treated, see rank; can be abbreviated.
`tolerance`	numeric = 0. Differences smaller than tolerance are not considered.

The function 'rank' (package 'base') only recognizes ties if values are *exactly* equal, ie. it behaves like '==' instead of 'all.equal'. 'Rank' behaves like 'all.equal', recognizing values as ties if the difference is less than 'tolerance' (or thereabouts!)

A numeric vector of the same length as x with names copied from x (unless na.last = NA, when missing values are removed). The vector is of integer type unless ties.method = "average" when it is of double type (whether or not there are any ties).

Mike Meredith, 7 Sept 2007

rank, all.equal

(x <- c(3.93-2.13, 1.97-0.17))	#  1.8 1.8
x[1] == x[2]	# not EXACTLY equal
rank(x)	# 2 1
all.equal(x[1], x[2])	# but difference < tolerance
Rank(x)		#  1.5 1.5