Commit 061f6814 authored by smorabit's avatar smorabit
Browse files

pseudotime tutorial

parent 5938b891
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
Package: hdWGCNA
Title: hdWGCNA
Version: 0.2.11
Version: 0.2.12
Authors@R: c(
    person("Sam", "Morabito", , "smorabit@uci.edu", role = c("aut", "cre"),
           comment = c(ORCID = "0000-0002-7768-4856")),
+5 −0
Original line number Diff line number Diff line
# Generated by roxygen2: do not edit by hand

export(AvgModuleExpr)
export(BinPseudotime)
export(ComputeModuleEigengene)
export(ConstructMetacells)
export(ConstructMetaspots)
@@ -66,6 +67,7 @@ export(PlotDendrogram)
export(PlotKMEs)
export(PlotModulePreservation)
export(PlotModuleTraitCorrelation)
export(PlotModuleTrajectory)
export(PlotSoftPowers)
export(ProjectModules)
export(ROCCurves)
@@ -114,7 +116,10 @@ export(umap_theme)
import(Matrix)
import(Seurat)
import(WGCNA)
import(ggplot2)
import(harmony)
import(magrittr)
import(patchwork)
importFrom(Matrix,colSums)
importFrom(Matrix,rowSums)
importFrom(dplyr,"%>%")
+8 −0
Original line number Diff line number Diff line
# hdWGCNA 0.2.12 (2023-02-04)
## Added
- Module eigengene dynamics with pseudotime tutorial
- `PlotModuleTrajectory` function.

## Changes
- None.

# hdWGCNA 0.2.11 (2023-01-30)
## Added
- MAS-Seq tutorial (still under construction)
+2 −0
Original line number Diff line number Diff line
@@ -27,6 +27,7 @@
#' FindAllMarkers), and then the algorithm will only return major isoforms of the given marker genes.
#' @import Seurat
#' @import Matrix
#' @import magrittr
#' @export
FindMajorIsoforms <- function(
  seurat_obj,
@@ -180,6 +181,7 @@ FindMajorIsoforms <- function(
    cur_genes <- subset(cluster_markers, cluster == cur_group & gene %in% cur_genes) %>% .$gene
    subset(iso_df, gene %in% cur_genes & iso %in% cur_isos) %>% .$iso
  })
  names(major_marker_list) <- names(major_list)

  # return major isoforms intersected with the marker gene table
  list('major' = major_list, 'marker' = major_marker_list)
+0 −1
Original line number Diff line number Diff line
@@ -107,7 +107,6 @@ ModuleConnectivity <- function(

  }


  # add module color to the kMEs table
  modules <- modules[,1:3]
  mods <- levels(modules$module)
Loading