Running examples in 'OddsPlotty-Ex.R' failed
The error most likely occurred in:

> ### Name: odds_plot
> ### Title: odds_plot - a function to create Odds Plots
> ### Aliases: odds_plot
> 
> ### ** Examples
> 
> #We will use the cancer dataset to build a GLM model to predict cancer status
> #this will detail whether the patient has a benign or malignant
> library(mlbench)
> library(caret)
Loading required package: ggplot2
Loading required package: lattice
> library(tibble)
> library(ggplot2)
> library(OddsPlotty)
> library(e1071)
> library(ggthemes)
> 
> #Bring in the data
> data("BreastCancer", package = "mlbench")
> breast <- BreastCancer[complete.cases(BreastCancer), ]
> breast <- breast[, -1]
> head(breast, 10)
   Cl.thickness Cell.size Cell.shape Marg.adhesion Epith.c.size Bare.nuclei
1             5         1          1             1            2           1
2             5         4          4             5            7          10
3             3         1          1             1            2           2
4             6         8          8             1            3           4
5             4         1          1             3            2           1
6             8        10         10             8            7          10
7             1         1          1             1            2          10
8             2         1          2             1            2           1
9             2         1          1             1            2           1
10            4         2          1             1            2           1
   Bl.cromatin Normal.nucleoli Mitoses     Class
1            3               1       1    benign
2            3               2       1    benign
3            3               1       1    benign
4            3               7       1    benign
5            3               1       1    benign
6            9               7       1 malignant
7            3               1       1    benign
8            3               1       1    benign
9            1               1       5    benign
10           2               1       1    benign
> breast$Class <- factor(breast$Class)
> for(i in 1:9) {
+ breast[, i] <- as.numeric(as.character(breast[, i]))
+ }
> 
> #Train GLM model
> glm_model <- train(Class ~ ., data = breast, method = "glm", family = "binomial")