R/discret-check.R

Defines functions .discret.check

#'
.discret.check <- function(data,nstate){
	a <- unique(data)
	1 * (all(trunc(a) == a) & length(a) == nstate) + 
	2 * (all(trunc(a) == a) & length(a) < nstate)
}

Try the hhsmm package in your browser

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

hhsmm documentation built on Aug. 8, 2023, 9:06 a.m.