R/seqe2tse.R

Defines functions seqe2TSE

seqe2TSE <- function(eseq){
	tse <- .Call(C_tmrseqetotse,  unlist(list(eseq)))
	ll <- levels(eseq)
	tse <- data.frame(id=tse[[1]], timestamp=tse[[2]], event=factor(tse[[3]], levels=1:length(ll), labels=ll))
	return(tse)
}

Try the TraMineR package in your browser

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

TraMineR documentation built on Jan. 9, 2024, 3:02 p.m.