Merge pull request #103 from istallworthy/feedback

typos
istallworthy · Sep 28, 2023 · 3073a44 · 3073a44
2 parents c801769 + 76857e2
commit 3073a44
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/assessBalance.R b/R/assessBalance.R
@@ -202,7 +202,7 @@ assessBalance <- function(home_dir, data, exposure, exposure_time_pts, outcome,
   if (!is.null(weights) && (!is.list(weights) || is.data.frame(weights))){
     stop("Please supply a list of weights output from the createWeights function.", call. = FALSE)
   }
-  else if(is.lis(weights) && !is.data.frame(weights)){
+  else if(is.list(weights) && !is.data.frame(weights)){
     if (sum(sapply(weights, function(x) {
       inherits(x, "weightitMSM")})) != length(weights)){
       stop("Please supply a list of weights output from the createWeights function.", call. = FALSE)

diff --git a/R/trimWeights.R b/R/trimWeights.R
@@ -84,7 +84,7 @@ trimWeights <- function(home_dir, exposure, outcome, weights, quantile = 0.95, v
   else if (!is.list(weights) || is.data.frame(weights)){
     stop("Please supply a list of weights output from the createWeights function.", call. = FALSE)
   }
-  else if(is.lis(weights) && !is.data.frame(weights)){
+  else if(is.list(weights) && !is.data.frame(weights)){
     if (sum(sapply(weights, function(x) {
       inherits(x, "weightitMSM")})) != length(weights)){
       stop("Please supply a list of weights output from the createWeights function.", call. = FALSE)