fixing sprintf statement when time is not an integer

kkholst · Jan 9, 2025 · 1fa3404 · 1fa3404
1 parent d9edf9e
commit 1fa3404
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 5 deletions.
diff --git a/R-package/targeted/NAMESPACE b/R-package/targeted/NAMESPACE
@@ -112,6 +112,7 @@ importFrom(stats,approxfun)
 importFrom(stats,as.formula)
 importFrom(stats,binomial)
 importFrom(stats,coef)
+importFrom(stats,cov2cor)
 importFrom(stats,delete.response)
 importFrom(stats,density)
 importFrom(stats,deriv)
@@ -131,11 +132,13 @@ importFrom(stats,model.offset)
 importFrom(stats,model.response)
 importFrom(stats,na.pass)
 importFrom(stats,nlminb)
+importFrom(stats,pchisq)
 importFrom(stats,predict)
 importFrom(stats,quantile)
 importFrom(stats,reformulate)
 importFrom(stats,runif)
 importFrom(stats,terms)
+importFrom(stats,uniroot)
 importFrom(stats,update)
 importFrom(stats,vcov)
 importFrom(stats,weighted.mean)

diff --git a/R-package/targeted/R/targeted-package.R b/R-package/targeted/R/targeted-package.R
@@ -15,7 +15,7 @@
 ##'   lm.wfit lm.fit glm lm coef vcov model.frame model.matrix na.pass nlminb
 ##'   predict dnorm quantile terms weighted.mean runif .getXlevels
 ##'   delete.response model.response gaussian formula model.offset reformulate
-##'   drop.terms weights model.extract
+##'   drop.terms weights model.extract cov2cor pchisq uniroot
 ##' @importFrom rlang hash call_match
 ##' @importFrom optimx optimx
 ##' @importFrom data.table data.table is.data.table
@@ -27,7 +27,7 @@
 ##' @author Klaus K. Holst (Maintainer) <klaus@@holst.it>
 ##' @keywords package
 ##' @examples
-##' \dontrun{
+##' \dontrun{x
 ##' example(riskreg)
 ##' example(cate)
 ##' example(ate)

diff --git a/R-package/targeted/R/truncatedscore.R b/R-package/targeted/R/truncatedscore.R
@@ -202,7 +202,7 @@ truncatedscore_estimate <- function(
     est1 <- m1 + mean(ic1)
     ic <- cbind(ic, ic1 - mean(ic1))
     est <- c(est, est1)
-    lab0 <- c(lab0, sprintf("E(Y|T>=%d,A=%d)", time, aval))
+    lab0 <- c(lab0, sprintf("E(Y|T>=%f,A=%s)", time, aval))
   }
   lab0 <- c(lab0, "diff")
   res <- estimate(
@@ -219,7 +219,7 @@ truncatedscore_estimate <- function(
     ...
     )
   lab <- paste0(gsub(
-    "^treat", sprintf("Risk\\(T<%d|A=", time),
+    "^treat", sprintf("Risk\\(T<%f|A=", time),
     names(b$riskDR)[1:2]), ")")
   lab <- c(lab, "riskdiff")
   best <- estimate(

diff --git a/R-package/targeted/man/targeted-package.Rd b/R-package/targeted/man/targeted-package.Rd