diff --git a/R/PCORI_within_group_model.R b/R/PCORI_within_group_model.R
index b2cda3e..d7e84b1 100644
--- a/R/PCORI_within_group_model.R
+++ b/R/PCORI_within_group_model.R
@@ -157,8 +157,8 @@ fit_PCORI_within_group_model <- function(
         compute_influence_terms(
             left_join(
                 data_all_with_transforms,
-                followup_data |> select(..id.., ..time.., baseline_intensity),
-                by=join_by(..id.., ..time..)
+                followup_data |> select('..id..', '..time..', 'baseline_intensity'),
+                by=join_by('..id..', '..time..')
             ),
             base = base,
             alpha = a,
diff --git a/R/fit_PCORI_within_group_model_old.R b/R/fit_PCORI_within_group_model_old.R
index 8fa2fa1..bc9729e 100644
--- a/R/fit_PCORI_within_group_model_old.R
+++ b/R/fit_PCORI_within_group_model_old.R
@@ -43,6 +43,7 @@ fit_PCORI_within_group_model_old <- function(
         model.frame(data=filter(group.data, (!!time.var) <= !!End), na.action = na.pass) |>
         arrange(!!id.var, !!time.var)
 
+    visit.number <- NULL
     model.data <- mf |>
         group_by(!!id.var) |>
         mutate(
diff --git a/R/jackknife.R b/R/jackknife.R
index 8cbb7e1..276331c 100644
--- a/R/jackknife.R
+++ b/R/jackknife.R
@@ -1,4 +1,4 @@
-
+globalVariables(c('alpha', add=TRUE))
 
 cross_validate <- function(original.object, progress = interactive()){
     data <- original.object$data