fix TRUE word

lpantano · Feb 15, 2015 · 771d440 · 771d440
1 parent fac0084
commit 771d440
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/internal.R b/R/internal.R
@@ -106,7 +106,7 @@ collapse.mirs<-function(table,ref=FALSE,iso5=FALSE,iso3=FALSE,
     freq=NULL
     if (ref==TRUE){
         ref.val<-do.call(paste,table[,4:7])
-        ref.val[grep("[ATGC]",ref.val,invert=T)]<-"ref"
+        ref.val[grep("[ATGC]",ref.val,invert=TRUE)]<-"ref"
         ref.val[grep("[ATGC]",ref.val)]<-"iso"
         label<-paste(label,ref.val,sep=".")
     }