Studentized residuals vs leverage plot threshold rounded to 3 decimal points

[aravindhebbali]

Threshold in ols_rsdlev_plot() rounded to 2 decimal points. It must be formatted only in the plot.

> model <- lm(mpg ~ disp + hp + wt + drat, data = mtcars)
> k <- olsrr::ols_rsdlev_plot(model)
> k$leverage
  Observation   Leverage Studentized Residuals
1          17 0.23636908              2.244689
2          18 0.08435766              2.495829
3          20 0.10355543              2.515970
> k$threshold
[1] 0.375

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