R/binit.R

In cgwtools: Miscellaneous Tools

Defines functions binit

Documented in binit

binit <- function(samps,roundPrec=NULL){
if ( length(roundPrec)  ){
	roundPrec <-floor(roundPrec)
	samps <- round(samps, roundPrec)
}
binned <- rle(sort(as.vector(samps)))
return(invisible(binned))
}

Try the cgwtools package in your browser