R/CreateLTMGObject.R

In zy26/LTMGSCA: An R package for Single Cell RNA-seq data analysis within the Left Truncated Mixture Gaussian scheme

CreateLTMGObject <- function(x, cond) {
  assertthat::assert_that(ncol(x) == ncol(cond))
  return(new("LTMG", Data = x, Normalized.Data = x, Conds = cond, Conds.Label = 2^seq(0, nrow(cond) - 1, by = 1) %*% cond))
}