Cook's d bar plot threshold rounded to 3 decimal points

[aravindhebbali]

Threshold returned by ols_cooksd_bplot() rounded to 3 decimal points. It must be formatted only in the plot.

> model <- lm(mpg ~ disp + hp + wt + drat, data = mtcars)
> k <- olsrr::ols_cooksd_barplot(model)
> k$outliers
# A tibble: 2 x 2
  Observation `Cook's Distance`
        <int>             <dbl>
1          17         0.2713382
2          31         0.3940639
> k$threshold
[1] 0.125

Session Info

> sessionInfo()
R version 3.4.1 (2017-06-30)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_India.1252  LC_CTYPE=English_India.1252   
[3] LC_MONETARY=English_India.1252 LC_NUMERIC=C                  
[5] LC_TIME=English_India.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.11     tidyr_0.6.3      dplyr_0.7.1      assertthat_0.2.0
 [5] plyr_1.8.4       grid_3.4.1       R6_2.2.2         gtable_0.2.0    
 [9] magrittr_1.5     scales_0.4.1     ggplot2_2.2.1    rlang_0.1.1     
[13] lazyeval_0.2.0   bindrcpp_0.2     goftest_1.0-3    olsrr_0.2.0     
[17] nortest_1.0-4    tools_3.4.1      glue_1.1.1       purrr_0.2.2.2   
[21] munsell_0.4.3    compiler_3.4.1   colorspace_1.2-7 pkgconfig_2.0.1 
[25] bindr_0.1        gridExtra_2.2.1  tibble_1.3.3