R/getCellNumber.R

In TOAST: Tools for the analysis of heterogeneous tissues

getCellNumber <- function(Y.raw, possibleCellNumber = 2:15){

     allAIC = c()
     for(K in possibleCellNumber){
          out <- csDeconv(Y.raw, K = K, TotalIter = 5, bound_negative = TRUE)
          estProp = mysisal(Y.raw[out$updatedInx,], K = K, topN = 50)$estProp
          aic = compute_aic(estProp,Y.raw[out$updatedInx,])
          allAIC = append(allAIC,aic)
     }
     bestK = possibleCellNumber[which.min(allAIC)]
     return(list(bestK = bestK,
                 allAIC = allAIC))
}