Commit 12a3e265 authored by smorabit's avatar smorabit
Browse files

ModuleConnectivity

parent 2b908e35

R/WGCNA_functions.R

+5 −0
Original line number Diff line number Diff line
@@ -839,6 +839,11 @@ ModuleConnectivity <- function( 
  if(is.null(assay)){assay <- params$metacell_assay}

  if(is.null(slot)){slot <- params$metacell_slot}



  print(assay)

  print(slot)

  print(head(genes_use))

  print(class(GetAssayData(seurat_obj, assay=assay, slot=slot)))



  datExpr <- t(GetAssayData(

    seurat_obj,

    assay=assay,

CRA Git | Maintained and supported by SUSTech CRA and CCSE