From 8bed462e4209f1e5917cd541670f714d4c22fed9 Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Sat, 11 May 2024 22:22:37 +0200 Subject: [PATCH] remove redundant comments --- R/binned_residuals.R | 1 - R/check_overdispersion.R | 1 - R/check_zeroinflation.R | 1 - 3 files changed, 3 deletions(-) diff --git a/R/binned_residuals.R b/R/binned_residuals.R index 8c6608ebf..5fb8132e4 100644 --- a/R/binned_residuals.R +++ b/R/binned_residuals.R @@ -86,7 +86,6 @@ binned_residuals <- function(model, iterations = 1000, verbose = TRUE, ...) { - # match arguments ci_type <- match.arg(ci_type) residuals <- match.arg(residuals) diff --git a/R/check_overdispersion.R b/R/check_overdispersion.R index 5894c2a39..0d877b0ad 100644 --- a/R/check_overdispersion.R +++ b/R/check_overdispersion.R @@ -288,7 +288,6 @@ check_overdispersion.glmmTMB <- check_overdispersion.merMod #' @rdname check_overdispersion #' @export check_overdispersion.performance_simres <- function(x, alternative = c("two.sided", "less", "greater"), ...) { - # match arguments alternative <- match.arg(alternative) # check for special arguments - we may pass "object_name" from other methods diff --git a/R/check_zeroinflation.R b/R/check_zeroinflation.R index 5f87941f3..a8e34ad79 100644 --- a/R/check_zeroinflation.R +++ b/R/check_zeroinflation.R @@ -120,7 +120,6 @@ check_zeroinflation.performance_simres <- function(x, tolerance = 0.1, alternative = c("two.sided", "less", "greater"), ...) { - # match arguments alternative <- match.arg(alternative) # compute test results