[Qca-commits] r8 - pkg/R

[noreply at r-forge.r-project.org]

Author: dusadrian
Date: 2014-06-16 07:41:55 +0200 (Mon, 16 Jun 2014)
New Revision: 8

Modified:
   pkg/R/pof.R
Log:
Fixed a minor bug involving lower case letters for the outcome name

Modified: pkg/R/pof.R
===================================================================
--- pkg/R/pof.R	2014-06-15 18:11:14 UTC (rev 7)
+++ pkg/R/pof.R	2014-06-16 05:41:55 UTC (rev 8)
@@ -38,8 +38,9 @@
                     data[, outcome] <- ifelse(data[, outcome] == outcome.value, 1, 0)
                 }
                 
-                outcomename <- outcome
-                outcome <- data[, outcome]
+                outcomename <- toupper(outcome)
+                outcome <- data[, toupper(outcome)]
+                
             }
         }
         else if (is.vector(outcome)) {
@@ -372,6 +373,7 @@
         }
     }
     
+    
     if (is.vector(mins)) {
         mins <- as.data.frame(mins)
         colnames(mins) <- conditions