Commit 71673849 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/clustering_tfit_window.R

parent 30f9ee59
...@@ -50,7 +50,7 @@ clustering_tfit <- function(organism, network) { ...@@ -50,7 +50,7 @@ clustering_tfit <- function(organism, network) {
clust = grep(pattern = i, x = result_tfit[[1]]) clust = grep(pattern = i, x = result_tfit[[1]])
clust = result_tfit[[2]][clust] clust = unlist(result_tfit[[2]][clust])
if(length(clust) > 0) { if(length(clust) > 0) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment