fix NA warning bug

JohnMount · JohnMount · commit 6b526703c698 · 2017-05-18T17:39:33.000-07:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: sigr
 Type: Package
 Title: Format Significance Summaries for Reports
-Version: 0.1.6
-Date: 2017-05-05
+Version: 0.1.7
+Date: 2017-05-18
 Author: John Mount, Nina Zumel
 Maintainer: John Mount <jmount@win-vector.com>
 URL: https://github.com/WinVector/sigr
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,8 @@
 
+'sigr' 0.1.7 2017-05-18
+
+ * Fix NA warning bug in wrapChiSqTest.data.frame.
+
 'sigr' 0.1.6 2017-05-05
 
  * Enforce more types in calculations.
diff --git a/R/ChiSqTest.R b/R/ChiSqTest.R
@@ -176,7 +176,7 @@ wrapChiSqTest.data.frame <- function(x,
   if(length(list(...))) {
     stop('wrapChiSqTest.data.frame extra arguments')
   }
-  nNA <- sum(is.na(predictions) | is.na(t))
+  nNA <- sum(is.na(predictions) | is.na(y))
   if(na.rm) {
     goodPosns <- (!is.na(predictions)) & (!is.na(y))
     predictions <- predictions[goodPosns]

Original file line number	Diff line number	Diff line change
`@@ -176,7 +176,7 @@ wrapChiSqTest.data.frame <- function(x,`
`176`	`176`	`if(length(list(...))) {`
`177`	`177`	`stop('wrapChiSqTest.data.frame extra arguments')`
`178`	`178`	`}`
`179`		`- nNA <- sum(is.na(predictions) \| is.na(t))`
	`179`	`+ nNA <- sum(is.na(predictions) \| is.na(y))`
`180`	`180`	`if(na.rm) {`
`181`	`181`	`goodPosns <- (!is.na(predictions)) & (!is.na(y))`
`182`	`182`	`predictions <- predictions[goodPosns]`