R/tps_sejour.R
In NHMSAR: Non-Homogeneous Markov Switching Autoregressive Models

tps_sejour <-
function(x,s=.0){
	w = which(x<s)
	dw = c(2,diff(w),2)
    wdw=which(dw>1)
    dur = diff(wdw)
    return(dur)	
}

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

NHMSAR documentation built on Feb. 9, 2022, 9:06 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the NHMSAR package in your browser