Skip to content
Snippets Groups Projects
Verified Commit 31a4434d authored by nfontrod's avatar nfontrod
Browse files

R/load_matrix.R: fix the non usage of min_expression variable

parent c183a845
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
R/load_matrix.R
+ 1
− 1
View file @ 31a4434d
...@@ -70,7 +70,7 @@ filter_dds <- function(dds, filter_list, min_expression, addition_col, ...@@ -70,7 +70,7 @@ filter_dds <- function(dds, filter_list, min_expression, addition_col,
cts <- cts[which(rownames(cts) %in% filter_list), ] cts <- cts[which(rownames(cts) %in% filter_list), ]
} }
cts_1 <- data.frame(cts, moy = as.numeric(as.vector(rowMeans(cts)))) cts_1 <- data.frame(cts, moy = as.numeric(as.vector(rowMeans(cts))))
cts_2 <- cts_1[which(cts_1$moy > 2), seq_len(ncol(cts))] cts_2 <- cts_1[which(cts_1$moy > min_expression), seq_len(ncol(cts))]
coldata <- as.data.frame(matrix(nc = 1, nr = ncol(cts_2))) coldata <- as.data.frame(matrix(nc = 1, nr = ncol(cts_2)))
colnames(coldata) <- columns[1] colnames(coldata) <- columns[1]
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment