From cd4d9ab9916ddb93a7247ef147e0d2f8dc09d14c Mon Sep 17 00:00:00 2001 From: Annika Fust Date: Fri, 15 Sep 2017 14:17:54 +0200 Subject: [PATCH] fixed bug valid annotations --- utils/uropa_summary.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils/uropa_summary.R b/utils/uropa_summary.R index d42ba27..10d28fc 100755 --- a/utils/uropa_summary.R +++ b/utils/uropa_summary.R @@ -134,7 +134,7 @@ features <- c() # stats is based on annoted peaks -> remove na rows df.uropa.final[,"distance"] <- as.numeric(df.uropa.final[,"distance"]) df.uropa.final <- df.uropa.final[complete.cases(df.uropa.final),] - if(nrow(df.final)==0){ + if(nrow(df.uropa.final)==0){ stop("No valid peak annotations with specified query/queries, summary unfeasible!") } anno.peaks <- nrow(df.uropa.final)