diff --git a/src/bin/kmerclust_clust.R b/src/bin/kmerclust_clust.R index 2454cbd81a1926968d4a9d8e270e7c2b61f2fe82..f13300e18b7727beb73dacb3c9264d3d3f9ce162 100644 --- a/src/bin/kmerclust_clust.R +++ b/src/bin/kmerclust_clust.R @@ -17,13 +17,13 @@ res <- count %>% save(res, file = paste0(args[1], "_clust_", args[3], ".Rdata")) -count %>% - mutate( - count_m = round(count_m), - count_f = round(count_f) - ) %>% - dplyr::filter(count_m + count_f > 0) %>% - dplyr::mutate(chromosome = res$chromosome) %>% - dplyr::select(name, chromsome) %>% - write_csv2(file = paste0(args[1], "_clust_", args[3], ".csv")) +#count %>% +# mutate( +# count_m = round(count_m), +# count_f = round(count_f) +# ) %>% +# dplyr::filter(count_m + count_f > 0) %>% +# dplyr::mutate(chromosome = res$chromosome) %>% +# dplyr::select(name, chromsome) %>% +# write_csv2(file = paste0(args[1], "_clust_", args[3], ".csv"))