From 76857e2073ee49c259cd088275ba1168350559b2 Mon Sep 17 00:00:00 2001 From: "Isabella Stallworthy, PhD" Date: Thu, 28 Sep 2023 14:13:10 -0400 Subject: [PATCH] typos --- R/assessBalance.R | 2 +- R/trimWeights.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/assessBalance.R b/R/assessBalance.R index b00b1aa8..9da10178 100644 --- 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 index a3470c17..d50d8772 100644 --- 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)