From ce3b29526cbf4e9f910adf36e79db4d9e47b3ada Mon Sep 17 00:00:00 2001 From: Ransmond Date: Thu, 16 Mar 2023 15:07:49 -0600 Subject: [PATCH] Submitting work https://github.com/UofUEpiBio/PHS7045-advanced-programming/issues/13 --- R/VIFpkg.R | 1 + README.md | 1 + vignettes/vignette.Rmd | 1 - 3 files changed, 2 insertions(+), 1 deletion(-) diff --git a/R/VIFpkg.R b/R/VIFpkg.R index 89cd8da..cb9686d 100644 --- a/R/VIFpkg.R +++ b/R/VIFpkg.R @@ -18,6 +18,7 @@ #' summarY(object=xs, multi = TRUE) #' @export + VIFsM <- function(Data, multi=FALSE,maxim = 4){ # argument is a matrix of the predictor variables VIF <- NULL diff --git a/README.md b/README.md index 38a5878..d307a63 100644 --- a/README.md +++ b/README.md @@ -8,6 +8,7 @@ The main funtion is VIFsM() which finds the VIF values for the variables. The o ### When Interested in the VIF of the current data (multi = FALSE, as in default) + ```{r setup} # load the VIFpkg pacakge diff --git a/vignettes/vignette.Rmd b/vignettes/vignette.Rmd index db365e8..ba27b9b 100644 --- a/vignettes/vignette.Rmd +++ b/vignettes/vignette.Rmd @@ -111,7 +111,6 @@ Plot(x = xs,maxx = 4) ### When Interested in checking the VIF of the data and dropping the variable with VIF > maxim - ```{r, fig.height=12, fig.width=10} # Find VIF values