Revert "First step toward pmatch() to parse report= arg of xBalance()."

This reverts commit 9e5980e.
markmfredrickson · Dec 10, 2013 · 5d4bd44 · 5d4bd44
1 parent 93bfe45
commit 5d4bd44
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/xBalance.R b/R/xBalance.R
@@ -127,7 +127,7 @@ xBalance <- function(fmla, strata=list(unstrat=NULL),
   ##colnames(ans$by.variable) <- nms
   attr(ans, "fmla") <- formula(tfmla)
 
-  if (any(pmatch(report,"chisquare.test",0))) {
+  if ("chisquare.test" %in% report) {
     ans$overall <- data.frame(chisquare = numeric(length(RES)),
                               df        = numeric(length(RES)),
                               p.value   = numeric(length(RES)),