R/Pi_Zj_Zcut_new.R

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

################################################################
Pi_Zj_Zcut_new <- function(q, mean, sd, wl0) {
  a <- wl0 * pnorm(q, mean, sd)  ################################################################
  if(sum(a) == 0) return(wl0)
  return(a / sum(a))
}