update style and lintr

openpharma · Jun 27, 2024 · 1e84b2c · 1e84b2c
1 parent ad76e1b
commit 1e84b2c
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 5 deletions.
diff --git a/.gitignore b/.gitignore
@@ -34,3 +34,4 @@ package.json
 RobinCar2.Rcheck/
 RobinCar2*.tar.gz
 RobinCar2*.tgz
+.Rprofile
diff --git a/R/treatment_effect.R b/R/treatment_effect.R
@@ -14,7 +14,8 @@ treatment_effect <- function(object, pair, variance, eff_measure, eff_jacobian,
 }
 
 #' @export
-treatment_effect.prediction_cf <- function(object, pair = names(object), variance = vcovANHECOVA, eff_measure, eff_jacobian, ...) {
+treatment_effect.prediction_cf <- function(
+    object, pair = names(object), variance = vcovANHECOVA, eff_measure, eff_jacobian, ...) {
   assert(
     test_function(variance),
     test_null(variance)
@@ -54,7 +55,9 @@ treatment_effect.prediction_cf <- function(object, pair = names(object), varianc
 
 #' @export
 #' @inheritParams predict_counterfactual
-treatment_effect.lm <- function(object, pair = names(object), variance = vcovANHECOVA, eff_measure, eff_jacobian, treatment, data, unbiased = TRUE, ...) {
+treatment_effect.lm <- function(
+    object, pair = names(object), variance = vcovANHECOVA, eff_measure, eff_jacobian,
+    treatment, data, unbiased = TRUE, ...) {
   pc <- predict_counterfactual(object, treatment, data, unbiased)
   if (missing(pair)) {
     treatment_effect(pc, pair = , , variance = variance, eff_measure = eff_measure, eff_jacobian = eff_jacobian, ...)
@@ -64,7 +67,9 @@ treatment_effect.lm <- function(object, pair = names(object), variance = vcovANH
 }
 
 #' @export
-treatment_effect.glm <- function(object, pair, variance = vcovANHECOVA, eff_measure, eff_jacobian, treatment, data = object$data, unbiased = TRUE, ...) {
+treatment_effect.glm <- function(
+    object, pair, variance = vcovANHECOVA, eff_measure, eff_jacobian,
+    treatment, data = object$data, unbiased = TRUE, ...) {
   pc <- predict_counterfactual(object, treatment, data, unbiased)
   if (missing(pair)) {
     treatment_effect(pc, pair = , , variance = variance, eff_measure = eff_measure, eff_jacobian = eff_jacobian, ...)

diff --git a/R/variance_anhecova.R b/R/variance_anhecova.R
@@ -7,7 +7,7 @@
 #'
 #' @return Named covariance matrix.
 #' @export
-vcovANHECOVA <- function(x, decompose = TRUE, randomization = "simple", ...) {
+vcovANHECOVA <- function(x, decompose = TRUE, randomization = "simple", ...) { # nolint
   assert_class(x, "prediction_cf")
   assert_flag(decompose)
   assert_string(randomization)

diff --git a/inst/WORDLIST b/inst/WORDLIST
@@ -1,4 +1,5 @@
+ANHECOVA
 RobinCar
-initializer
+jacobian
 pbo
 trt