From 03c9ce78b14ecaf99035192a9c3e48dd8fd9163c Mon Sep 17 00:00:00 2001
From: Ransmond <roberchie@gmail.com>
Date: Thu, 16 Mar 2023 16:44:52 -0600
Subject: [PATCH] Resubmitting work
 https://github.com/UofUEpiBio/PHS7045-advanced-programming/issues/13

@gvegayon @chipmanj
---
 R/VIFpkg.R             | 2 +-
 man/VIFsM.Rd           | 2 +-
 vignettes/vignette.Rmd | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/VIFpkg.R b/R/VIFpkg.R
index cb9686d..ef7f297 100644
--- a/R/VIFpkg.R
+++ b/R/VIFpkg.R
@@ -173,7 +173,7 @@ Plot <- function(x, maxx = 4,multi = FALSE,...){
 #' @param multi logical stating whether to drop the variable with VIF greater than maxim, and proceed to recompute VIF until no multicollinearity exist based on maxim value defined. Default is FALSE, which just computes the VIF of the current data
 #'
 #' @export
-summarY <- function(object,multi = FALSE,...){
+summarY <- function(object,multi = FALSE){
 
   if(!multi){
 
diff --git a/man/VIFsM.Rd b/man/VIFsM.Rd
index 4ba9820..fad5179 100644
--- a/man/VIFsM.Rd
+++ b/man/VIFsM.Rd
@@ -10,7 +10,7 @@ VIFsM(Data, multi = FALSE, maxim = 4)
 
 Plot(x, maxx = 4, multi = FALSE, ...)
 
-summarY(object, multi = FALSE, ...)
+summarY(object, multi = FALSE)
 }
 \arguments{
 \item{Data}{a dataframe or matrix of predictors}
diff --git a/vignettes/vignette.Rmd b/vignettes/vignette.Rmd
index 947f007..f06b2cc 100644
--- a/vignettes/vignette.Rmd
+++ b/vignettes/vignette.Rmd
@@ -83,7 +83,7 @@ VIFsM(Data, multi = FALSE, maxim = 4)
 Plot(x, maxx = 4, multi = FALSE, ...)
 
 
-summarY(object, multi = FALSE, ...)
+summarY(object, multi = FALSE)