Update for CRAN release.

jbryer · Oct 23, 2023 · ca8dbc9 · ca8dbc9
1 parent 65f25a1
commit ca8dbc9
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 9 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -20,3 +20,4 @@ build.R
 ^CRAN-SUBMISSION$
 README.Rmd
 Poster/
+doc/
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,21 +1,21 @@
 Type: Package
 Package: PSAboot
 Title: Bootstrapping for Propensity Score Analysis
-Version: 1.3.7
-Date: 2023-04-15
+Version: 1.3.8
+Date: 2023-10-23
 Authors@R: 
     person("Jason", "Bryer", , "jason@bryer.org", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-2454-0402"))
 Maintainer: Jason Bryer <jason@bryer.org>
 Description: It is often advantageous to test a hypothesis more than once
     in the context of propensity score analysis (Rosenbaum, 2012)
     <doi:10.1093/biomet/ass032>. The functions in this package facilitate
-    bootstrapping for propensity score analysis (PSA). By default, bootstrapping
-    using two classification tree methods (using 'rpart' and 'ctree'
-    functions), two matching methods (using 'Matching' and 'MatchIt'
-    packages), and stratification with logistic regression.  A framework
-    is described for users to implement additional propensity score
-    methods.  Visualizations are emphasized for diagnosing balance;
+    bootstrapping for propensity score analysis (PSA). By default,
+    bootstrapping using two classification tree methods (using 'rpart' and
+    'ctree' functions), two matching methods (using 'Matching' and
+    'MatchIt' packages), and stratification with logistic regression.  A
+    framework is described for users to implement additional propensity
+    score methods.  Visualizations are emphasized for diagnosing balance;
     exploring the correlation relationships between bootstrap samples and
     methods; and to summarize results.
 License: GPL

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# PSAboot 1.3.8
+
+* Fix for change in t.test with paired data to not use the formula notation.
+
 # PSAboot 1.3.7
 
 * Added propensity score weighting.

diff --git a/R/balance.R b/R/balance.R
@@ -42,7 +42,8 @@ balance <- function(psaboot, na.rm = TRUE, pool.fun = mean) {
 
 	bal.unadj <- c()
 	for(i in names(X.trans)) {
-		ttest <- t.test(cov ~ treat, data=cbind(treat=Tr, cov=X.trans[,i]), paired=FALSE)
+		# ttest <- t.test(cov ~ treat, data=cbind(treat=Tr, cov=X.trans[,i]), paired=FALSE)
+		ttest <- t.test(X.trans[,i,drop=TRUE], Tr, paired = FALSE)
 		bal.unadj[i] <- abs(diff(ttest$estimate) / sd(X.trans[,i]))
 	}