johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix some analysis bugs

Browse source
This commit is contained in:
Elias Projahn 2021-11-12 18:22:22 +01:00
parent 0e641e4dd2
commit 9cbc127177
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/analyze.R
View file

@ -53,7 +53,7 @@ analyze <- function(preset, progress = NULL) {
method_results <- methods[[method_id]](preset, method_progress) method_results <- methods[[method_id]](preset, method_progress)
setnames(method_results, "score", method_id) setnames(method_results, "score", method_id)
analysis <- merge( results <- merge(
results, results,
method_results, method_results,
by = "gene" by = "gene"

2
R/preset.R
View file

@ -52,7 +52,7 @@ preset <- function(methods = c(
print.geposan_preset <- function(x, ...) { print.geposan_preset <- function(x, ...) {
cat("geposan preset:") cat("geposan preset:")
cat("\n Included methods: ") cat("\n Included methods: ")
cat(x$method_ids, sep = ", ") cat(x$methods, sep = ", ")
cat(sprintf( cat(sprintf(
"\n Input data: %i species, %i genes", "\n Input data: %i species, %i genes",