update to DME analysis

Package: hdWGCNA

Title: hdWGCNA

Version: 0.2.20

Version: 0.2.21

Authors@R: c(

    person("Sam", "Morabito", , "smorabit@uci.edu", role = c("aut", "cre"),

           comment = c(ORCID = "0000-0002-7768-4856")),

YEAR: 2022

YEAR: 2023

COPYRIGHT HOLDER: hdWGCNA authors

export(AvgModuleExpr)

export(BinPseudotime)

export(CheckWGCNAName)

export(ConstructMetacells)

export(ConstructMetaspots)

export(ConstructNetwork)

export(FindDMEs)

export(FindMajorIsoforms)

export(GetActiveWGCNA)

export(GetActiveWGCNAName)

export(GetAvgModuleExpr)

export(GetDatExpr)

export(GetEnrichrTable)

# hdWGCNA 0.2.21 (2023-08-31)

## Added

- Additional checks for wgcna_name in several functions.

- New section to the DME tutorial to show how to run it in a loop for multiple clusters.

## Changes

- None.

# hdWGCNA 0.2.20 (2023-08-17)

## Added

- None.

){

  if(is.null(wgcna_name)){wgcna_name <- seurat_obj@misc$active_wgcna}

  if(!CheckWGCNAName(seurat_obj, wgcna_name)){

    stop(paste0("Invalid wgcna_name supplied: ", wgcna_name))

  }  

  # get list of groups

  groups <- as.character(unique(seurat_obj@meta.data[[group.by]]))

){

  if(is.null(wgcna_name)){wgcna_name <- seurat_obj@misc$active_wgcna}

  if(!CheckWGCNAName(seurat_obj, wgcna_name)){

    stop(paste0("Invalid wgcna_name supplied: ", wgcna_name))

  }  

  # ensure that selected barcodes are in the seurat obj

  if(!(all(barcodes1 %in% colnames(seurat_obj)))){