R/modeDist.R

Defines functions `modeDist`

`modeDist` <-
function(x,num=TRUE){
	tab<-table(x)
	out<-names(tab)[tab==max(tab)]
	if(length(out)>1)
		out<-sample(out,1)
	if(num)
		out<-as.numeric(out)
	out
}

Try the scrime package in your browser

Any scripts or data that you put into this service are public.

scrime documentation built on May 2, 2019, 10:24 a.m.