R/match.position.R

In dustinfife/witness: This package fits eyewitness data using Clark's (2003) WITNESS model

match.position <-
function(vector.match, pos, position = TRUE){
	v = order(vector.match, decreasing = TRUE)
	if (position){
		return(v[pos])
	} else {
		return(vector.match[v][pos])
	}
}

rand.order = function(vector){
	rand = runif(length(vector))
	return(vector[order(rand)])
}