diff --git a/R/gene_plot.R b/R/gene_plot.R index 71f3294..5aef5b7 100644 --- a/R/gene_plot.R +++ b/R/gene_plot.R @@ -58,7 +58,7 @@ #' rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) #' keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 #' dds_macrophage <- dds_macrophage[keep, ] -#' dds_macrophage <- DESeq(dds_macrophage) +#' # dds_macrophage <- DESeq(dds_macrophage) #' #' # annotation object #' anno_df <- data.frame( @@ -249,7 +249,7 @@ gene_plot <- function(de_container, #' rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) #' keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 #' dds_macrophage <- dds_macrophage[keep, ] -#' dds_macrophage <- DESeq(dds_macrophage) +#' # dds_macrophage <- DESeq(dds_macrophage) #' #' df_exp <- get_expr_values( #' de_container = dds_macrophage, diff --git a/R/mosdef_check_inputs.R b/R/mosdef_check_inputs.R index 57fc891..67f6bfd 100644 --- a/R/mosdef_check_inputs.R +++ b/R/mosdef_check_inputs.R @@ -81,7 +81,7 @@ mosdef_res_check <- function(res_de, #' rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) #' keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 #' dds_macrophage <- dds_macrophage[keep, ] -#' dds_macrophage <- DESeq(dds_macrophage) +#' # dds_macrophage <- DESeq(dds_macrophage) #' #' mosdef_de_container_check(dds_macrophage) mosdef_de_container_check <- function(de_container, diff --git a/man/gene_plot.Rd b/man/gene_plot.Rd index e7d5b72..3027d42 100644 --- a/man/gene_plot.Rd +++ b/man/gene_plot.Rd @@ -80,7 +80,7 @@ dds_macrophage <- DESeqDataSet(gse, design = ~ line + condition) rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 dds_macrophage <- dds_macrophage[keep, ] -dds_macrophage <- DESeq(dds_macrophage) +# dds_macrophage <- DESeq(dds_macrophage) # annotation object anno_df <- data.frame( diff --git a/man/get_expr_values.Rd b/man/get_expr_values.Rd index c0019b0..18aa5b1 100644 --- a/man/get_expr_values.Rd +++ b/man/get_expr_values.Rd @@ -50,7 +50,7 @@ dds_macrophage <- DESeqDataSet(gse, design = ~ line + condition) rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 dds_macrophage <- dds_macrophage[keep, ] -dds_macrophage <- DESeq(dds_macrophage) +# dds_macrophage <- DESeq(dds_macrophage) df_exp <- get_expr_values( de_container = dds_macrophage, diff --git a/man/mosdef_de_container_check.Rd b/man/mosdef_de_container_check.Rd index c8d042e..f3af3ef 100644 --- a/man/mosdef_de_container_check.Rd +++ b/man/mosdef_de_container_check.Rd @@ -30,7 +30,7 @@ dds_macrophage <- DESeqDataSet(gse, design = ~ line + condition) rownames(dds_macrophage) <- substr(rownames(dds_macrophage), 1, 15) keep <- rowSums(counts(dds_macrophage) >= 10) >= 6 dds_macrophage <- dds_macrophage[keep, ] -dds_macrophage <- DESeq(dds_macrophage) +# dds_macrophage <- DESeq(dds_macrophage) mosdef_de_container_check(dds_macrophage) }