R/seqi1epi.R

In nicolas-robette/seqhandbook: Miscellaneous Tools for Sequence Analysis

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)
}