R/seqi1epi.R

Defines functions seqi1epi

Documented in seqi1epi

seqi1epi <- function(seqdata) {
  dur <- suppressMessages(TraMineR::seqistatd(seqdata))
  epi <- ceiling(dur/ncol(seqdata))
  colnames(epi) <- paste0("epi", alphabet(seqdata))
  return(epi)
}

Try the seqhandbook package in your browser

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

seqhandbook documentation built on April 3, 2023, 5:45 p.m.