R/poLCA.vectorize.R

In poLCAParallel: Polytomous Variable Latent Class Analysis Parallel

#' \deprecated
#' @noRd
poLCA.vectorize <- function(probs) {
  classes <- nrow(probs[[1]])
  vecprobs <- unlist(lapply(probs, t))
  numChoices <- sapply(probs, ncol)
  return(list(vecprobs = vecprobs, numChoices = numChoices, classes = classes))
}