R/insess.R

In CMRCT: Fit Capture-Mark-Recapture models in continuous time.

insess <-
function(ltvec, varind, varsessions){
	res <- lapply(1:length(ltvec), function(z){
                idind <- names(ltvec)[z]
		idpop <- as.character(unique(varind$pop[varind$ind==idind]))
		bsess <- as.numeric(t(as.matrix(varsessions[varsessions$pop==idpop,c("startnum", "endnum")])))
		ltvecok <- ltvec[[z]][-length(ltvec[[z]])]
		insess <- findInterval(ltvecok, bsess) %% 2
		return(insess)
	})
	res <- do.call("c", res)
	names(res) <- NULL
	return(res)
}