vignettes/AMR.Rmd
AMR.Rmd
So only 53.5% is suitable for resistance analysis! We can now filter +
So only 53.2% is suitable for resistance analysis! We can now filter on it with the filter() function, also from the dplyr package:
filter()
dplyr
@@ -634,11 +634,11 @@ on it with the data_1st <- data %>% filter_first_isolate() # Including isolates from ICU.
data_1st <- data %>% filter_first_isolate() # Including isolates from ICU.
So we end up with 10,709 isolates for analysis. Now our data looks +
So we end up with 10,641 isolates for analysis. Now our data looks like:
head(data_1st)
Time for the analysis!
data_1st %>% freq(genus, species)
Frequency table
Class: character -Length: 10,709 -Available: 10,709 (100%, NA: 0 = 0%) +Length: 10,641 +Available: 10,641 (100%, NA: 0 = 0%) Unique: 4
Shortest: 16 Longest: 24
proportion_SI()
data_1st %>% resistance(AMX) -# [1] 0.5429078
Or can be used in conjunction with group_by() and summarise(), both from the dplyr package:
group_by()
summarise()
@@ -1152,19 +1152,19 @@ own: Hospital A -0.5461974 +0.5447103 Hospital B -0.5343758 +0.5458963 Hospital C -0.5487149 +0.5324921 Hospital D -0.5482517 +0.5330882 @@ -1189,23 +1189,23 @@ all isolates available for every group (i.e. values S, I or R): Hospital A -0.5461974 -3182 +0.5447103 +3176 Hospital B -0.5343758 -3709 +0.5458963 +3704 Hospital C -0.5487149 -1673 +0.5324921 +1585 Hospital D -0.5482517 -2145 +0.5330882 +2176 @@ -1230,27 +1230,27 @@ therapies very easily: Escherichia -0.7635383 -0.8770227 -0.9766990 +0.7681096 +0.8736132 +0.9769415 Klebsiella -0.8128120 -0.9109817 -0.9833611 +0.8434856 +0.9069374 +0.9780034 Staphylococcus -0.7972434 -0.8734131 -0.9818643 +0.8043478 +0.8909359 +0.9837878 Streptococcus -0.5399527 +0.5474860 0.0000000 -0.5399527 +0.5474860 @@ -1278,23 +1278,23 @@ classes, use a antibiotic class selector such as Hospital A -54.6% -27.7% +54.5% +25.0% Hospital B -53.4% -26.4% +54.6% +26.7% Hospital C -54.9% -25.2% +53.2% +26.2% Hospital D -54.8% -26.7% +53.3% +25.5% @@ -1410,16 +1410,18 @@ classes) <mic> and <disk>: mic_values <- random_mic(size = 100) mic_values # Class 'mic' -# [1] 8 64 2 1 0.002 128 0.01 0.25 2 0.125 -# [11] 16 0.01 256 4 64 2 0.002 256 0.01 8 -# [21] 0.025 0.025 16 0.025 8 1 128 0.125 4 0.001 -# [31] 4 256 4 1 0.01 0.025 1 0.001 0.002 2 -# [41] 0.001 2 0.01 128 0.01 1 16 0.5 64 0.0625 -# [51] 8 0.005 16 32 128 4 0.01 32 0.025 0.005 -# [61] 32 0.01 0.125 256 32 16 8 0.025 4 1 -# [71] 16 16 0.125 0.002 16 32 0.5 0.0625 256 2 -# [81] 0.005 0.01 1 0.005 0.125 0.0625 0.001 0.025 4 0.01 -# [91] 2 1 0.025 256 0.0625 0.001 0.125 0.005 0.0625 0.001
<mic>
<disk>
mic_values <- random_mic(size = 100) mic_values # Class 'mic' -# [1] 8 64 2 1 0.002 128 0.01 0.25 2 0.125 -# [11] 16 0.01 256 4 64 2 0.002 256 0.01 8 -# [21] 0.025 0.025 16 0.025 8 1 128 0.125 4 0.001 -# [31] 4 256 4 1 0.01 0.025 1 0.001 0.002 2 -# [41] 0.001 2 0.01 128 0.01 1 16 0.5 64 0.0625 -# [51] 8 0.005 16 32 128 4 0.01 32 0.025 0.005 -# [61] 32 0.01 0.125 256 32 16 8 0.025 4 1 -# [71] 16 16 0.125 0.002 16 32 0.5 0.0625 256 2 -# [81] 0.005 0.01 1 0.005 0.125 0.0625 0.001 0.025 4 0.01 -# [91] 2 1 0.025 256 0.0625 0.001 0.125 0.005 0.0625 0.001
# base R: plot(mic_values)
disk_values <- random_disk(size = 100, mo = "E. coli", ab = "cipro") disk_values # Class 'disk' -# [1] 31 26 18 31 23 20 17 17 28 29 27 20 23 19 19 24 23 29 20 17 24 26 31 21 20 -# [26] 26 19 20 18 31 18 17 31 19 26 20 19 27 20 22 17 25 24 29 19 24 28 25 20 22 -# [51] 30 23 18 28 29 22 18 23 30 18 18 22 24 29 26 23 31 31 21 20 31 21 26 23 25 -# [76] 23 26 25 29 22 26 18 23 29 26 31 25 17 30 23 21 28 31 26 30 29 29 25 28 27
# base R: plot(disk_values, mo = "E. coli", ab = "cipro")
head(my_TB_data) # rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin -# 1 R R S I R I -# 2 S I I R I I -# 3 I R S R R I -# 4 R R R R R S -# 5 R I I I I R -# 6 S S S I S S +# 1 R R S R I I +# 2 R S S S I S +# 3 R S R I S S +# 4 R S S I I R +# 5 S R R I I I +# 6 S I I R R S # kanamycin -# 1 R +# 1 S # 2 R -# 3 S -# 4 S +# 3 R +# 4 R # 5 I -# 6 I
We can now add the interpretation of MDR-TB to our data set. You can use:
@@ -428,40 +428,40 @@ Unique: 5 1 Mono-resistant -3210 -64.20% -3210 -64.20% +3254 +65.08% +3254 +65.08% 2 Negative -1010 -20.20% -4220 -84.40% +960 +19.20% +4214 +84.28% 3 Multi-drug-resistant -451 -9.02% -4671 -93.42% +443 +8.86% +4657 +93.14% 4 Poly-resistant -235 -4.70% -4906 -98.12% +240 +4.80% +4897 +97.94% 5 Extensively drug-resistant -94 -1.88% +103 +2.06% 5000 100.00% diff --git a/articles/PCA.html b/articles/PCA.html index 79b004c2..6d96f27b 100644 --- a/articles/PCA.html +++ b/articles/PCA.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -280,7 +280,7 @@ function: # [1] "Caryophanales" "Enterobacterales" "Lactobacillales" "Pseudomonadales" # Importance of components: # PC1 PC2 PC3 PC4 PC5 PC6 PC7 -# Standard deviation 2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 5.121e-17 +# Standard deviation 2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 # Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 # Cumulative Proportion 0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00
# Groups (n=4, named as 'order'): diff --git a/articles/PCA_files/figure-html/unnamed-chunk-5-1.png b/articles/PCA_files/figure-html/unnamed-chunk-5-1.png index 34be1bb1..568c261e 100644 Binary files a/articles/PCA_files/figure-html/unnamed-chunk-5-1.png and b/articles/PCA_files/figure-html/unnamed-chunk-5-1.png differ diff --git a/articles/PCA_files/figure-html/unnamed-chunk-6-1.png b/articles/PCA_files/figure-html/unnamed-chunk-6-1.png index e4d7127e..a5668a59 100644 Binary files a/articles/PCA_files/figure-html/unnamed-chunk-6-1.png and b/articles/PCA_files/figure-html/unnamed-chunk-6-1.png differ diff --git a/articles/PCA_files/figure-html/unnamed-chunk-7-1.png b/articles/PCA_files/figure-html/unnamed-chunk-7-1.png index fa91144f..6e5b7b3f 100644 Binary files a/articles/PCA_files/figure-html/unnamed-chunk-7-1.png and b/articles/PCA_files/figure-html/unnamed-chunk-7-1.png differ diff --git a/articles/SPSS.html b/articles/SPSS.html index 5a5179aa..db90107f 100644 --- a/articles/SPSS.html +++ b/articles/SPSS.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -168,7 +168,7 @@ Dr. Matthijs Berends - 29 November 2022 + 09 December 2022 Source: vignettes/SPSS.Rmd SPSS.Rmd @@ -247,7 +247,7 @@ data using a custom made website. The webdesign knowledge needed R has a huge community. Many R users just ask questions on websites like StackOverflow.com, the largest -online community for programmers. At the time of writing, 472,394 +online community for programmers. At the time of writing, 473,435 R-related questions have already been asked on this platform (that covers questions and answers for any programming language). In my own experience, most questions are answered within a couple of diff --git a/articles/WHONET.html b/articles/WHONET.html index a7dc6b3e..b690a881 100644 --- a/articles/WHONET.html +++ b/articles/WHONET.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/datasets.html b/articles/datasets.html index f005163b..8135254e 100644 --- a/articles/datasets.html +++ b/articles/datasets.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -166,7 +166,7 @@ Data sets for download / own use - 29 November 2022 + 09 December 2022 Source: vignettes/datasets.Rmd datasets.Rmd diff --git a/articles/index.html b/articles/index.html index f79e7609..767b01c1 100644 --- a/articles/index.html +++ b/articles/index.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html index a286ef80..3a6bd202 100644 --- a/articles/resistance_predict.html +++ b/articles/resistance_predict.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png index 2706d340..c0fea349 100644 Binary files a/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png and b/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png differ diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png index 2ad28878..01b47606 100644 Binary files a/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png and b/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png differ diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html index b4628758..5f9a7ece 100644 --- a/articles/welcome_to_AMR.html +++ b/articles/welcome_to_AMR.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/authors.html b/authors.html index 8e8d29de..e7988120 100644 --- a/authors.html +++ b/authors.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/index.html b/index.html index 753e8984..e47eeccd 100644 --- a/index.html +++ b/index.html @@ -42,7 +42,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -527,7 +527,7 @@ Manually, using: install.packages("remotes") # if you haven't already -remotes::install_github("msberends/AMR") +remotes::install_github("msberends/AMR") Automatically, using the rOpenSci R-universe platform, by adding our R-universe address to your list of repositories (‘repos’): diff --git a/news/index.html b/news/index.html index 9dd49afd..84118429 100644 --- a/news/index.html +++ b/news/index.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -132,10 +132,10 @@ -AMR 1.8.2.9054 +AMR 1.8.2.9057 This version will eventually become v2.0! We’re happy to reach a new major milestone soon! -Breaking +Breaking Removed all species of the taxonomic kingdom Chromista from the package. This was done for multiple reasons: CRAN allows packages to be around 5 MB maximum, some packages are exempted but this package is not one of them Chromista are not relevant when it comes to antimicrobial resistance, thus lacking the primary scope of this package @@ -151,7 +151,7 @@ Using units in ab_ddd(..., units = "...") had been deprecated and is now not supported anymore. Use ab_ddd_units() instead. -New +New EUCAST 2022 and CLSI 2022 guidelines have been added for as.rsi(). EUCAST 2022 (v12.0) is now the new default guideline for all MIC and disks diffusion interpretations, and for eucast_rules() to apply EUCAST Expert Rules. Support for the following languages: Chinese, Greek, Japanese, Polish, Turkish and Ukrainian. We are very grateful for the valuable input by our colleagues from other countries. The AMR package is now available in 16 languages. The automatic language determination will give a note at start-up on systems in supported languages. @@ -193,16 +193,17 @@ -Changed -Fixes and changes for using as.rsi(): -On certain EUCAST breakpoints for MIC values -On NA values (e.g. as.rsi(as.disk(NA), ...)) -On bug-drug combinations with multiple breakpoints for different body sites +Changes +For as.rsi(): +Fixed certain EUCAST breakpoints for MIC values +Allow NA values (e.g. as.rsi(as.disk(NA), ...)) +Fix for bug-drug combinations with multiple breakpoints for different body sites Interpretation from MIC and disk zones is now more informative about availability of breakpoints and more robust The default guideline (EUCAST) can now be changed with options(AMR_guideline = "...") Removed the as.integer() method for MIC values, since MIC are not integer values and running table() on MIC values consequently failed for not being able to retrieve the level position (as that’s how normally as.integer() on factors work) +Fixed determination of Gram stains (mo_gramstain()), since the taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, and Tenericutes have been renamed to respectively Actinomycetota, Chloroflexota, Bacillota, and Mycoplasmatota in 2021 droplevels() on MIC will now return a common factor at default and will lose the mic class. Use droplevels(..., as.mic = TRUE) to keep the mic class. Small fix for using ab_from_text() @@ -231,7 +232,7 @@ Cleaning columns with as.rsi(), as.mic(), or as.disk() will now show the column name in the warning for invalid results -Other +Other New website to make use of the new Bootstrap 5 and pkgdown 2.0. The website now contains results for all examples and will be automatically regenerated with every change to our repository, using GitHub Actions Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, and Jonas Salm as contributors, to thank them for their valuable input All R and Rmd files in this project are now styled using the styler package diff --git a/pkgdown.yml b/pkgdown.yml index ad098317..aeda53e8 100644 --- a/pkgdown.yml +++ b/pkgdown.yml @@ -11,7 +11,7 @@ articles: datasets: datasets.html resistance_predict: resistance_predict.html welcome_to_AMR: welcome_to_AMR.html -last_built: 2022-11-29T18:41Z +last_built: 2022-12-09T10:24Z urls: reference: https://msberends.github.io/AMR/reference article: https://msberends.github.io/AMR/articles diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html index d355012b..155f22b9 100644 --- a/reference/AMR-deprecated.html +++ b/reference/AMR-deprecated.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/AMR.html b/reference/AMR.html index ade89d64..917ea575 100644 --- a/reference/AMR.html +++ b/reference/AMR.html @@ -62,7 +62,7 @@ Principal component analysis for AMR AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/Rplot005.png b/reference/Rplot005.png index 69b46159..e89e6374 100644 Binary files a/reference/Rplot005.png and b/reference/Rplot005.png differ diff --git a/reference/Rplot006.png b/reference/Rplot006.png index 10cbeaef..4d5057e4 100644 Binary files a/reference/Rplot006.png and b/reference/Rplot006.png differ diff --git a/reference/Rplot007.png b/reference/Rplot007.png index 864b525e..1013447e 100644 Binary files a/reference/Rplot007.png and b/reference/Rplot007.png differ diff --git a/reference/Rplot008.png b/reference/Rplot008.png index f070b283..087b8a3a 100644 Binary files a/reference/Rplot008.png and b/reference/Rplot008.png differ diff --git a/reference/Rplot009.png b/reference/Rplot009.png index 8fe109c0..4b608c5d 100644 Binary files a/reference/Rplot009.png and b/reference/Rplot009.png differ diff --git a/reference/Rplot010.png b/reference/Rplot010.png index 5129464a..46064676 100644 Binary files a/reference/Rplot010.png and b/reference/Rplot010.png differ diff --git a/reference/WHOCC.html b/reference/WHOCC.html index 7626bf55..da0f6fb3 100644 --- a/reference/WHOCC.html +++ b/reference/WHOCC.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/WHONET.html b/reference/WHONET.html index 1e1f1122..3706b5c7 100644 --- a/reference/WHONET.html +++ b/reference/WHONET.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/ab_from_text.html b/reference/ab_from_text.html index ee0574cf..fd5e033f 100644 --- a/reference/ab_from_text.html +++ b/reference/ab_from_text.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/ab_property.html b/reference/ab_property.html index dbd2ca0e..611e26c7 100644 --- a/reference/ab_property.html +++ b/reference/ab_property.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html index 59f9b7ca..c39f142e 100644 --- a/reference/add_custom_antimicrobials.html +++ b/reference/add_custom_antimicrobials.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/reference/age.html b/reference/age.html index 04f85202..c1e7f47e 100644 --- a/reference/age.html +++ b/reference/age.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -195,16 +195,16 @@ df #> birth_date age age_exact age_at_y2k -#> 1 1944-12-30 77 77.91507 55 -#> 2 1946-04-06 76 76.64932 53 -#> 3 1933-09-07 89 89.22740 66 -#> 4 1992-05-18 30 30.53425 7 -#> 5 1970-02-25 52 52.75890 29 -#> 6 1944-11-05 78 78.06575 55 -#> 7 1950-02-10 72 72.80000 49 -#> 8 1995-05-07 27 27.56438 4 -#> 9 1998-09-17 24 24.20000 1 -#> 10 1969-01-26 53 53.84110 30 +#> 1 1982-05-17 40 40.56438 17 +#> 2 1992-09-06 30 30.25753 7 +#> 3 1996-06-28 26 26.44932 3 +#> 4 1999-03-07 23 23.75890 0 +#> 5 1965-11-27 57 57.03288 34 +#> 6 1939-11-24 83 83.04110 60 +#> 7 1955-12-24 66 66.95890 44 +#> 8 1948-04-02 74 74.68767 51 +#> 9 1950-10-19 72 72.13973 49 +#> 10 1978-01-02 44 44.93425 21
vignettes/SPSS.Rmd
SPSS.Rmd
R has a huge community.
Many R users just ask questions on websites like StackOverflow.com, the largest -online community for programmers. At the time of writing, 472,394 +online community for programmers. At the time of writing, 473,435 R-related questions have already been asked on this platform (that covers questions and answers for any programming language). In my own experience, most questions are answered within a couple of diff --git a/articles/WHONET.html b/articles/WHONET.html index a7dc6b3e..b690a881 100644 --- a/articles/WHONET.html +++ b/articles/WHONET.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/datasets.html b/articles/datasets.html index f005163b..8135254e 100644 --- a/articles/datasets.html +++ b/articles/datasets.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -166,7 +166,7 @@ Data sets for download / own use - 29 November 2022 + 09 December 2022 Source: vignettes/datasets.Rmd datasets.Rmd diff --git a/articles/index.html b/articles/index.html index f79e7609..767b01c1 100644 --- a/articles/index.html +++ b/articles/index.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html index a286ef80..3a6bd202 100644 --- a/articles/resistance_predict.html +++ b/articles/resistance_predict.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png index 2706d340..c0fea349 100644 Binary files a/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png and b/articles/resistance_predict_files/figure-html/unnamed-chunk-6-1.png differ diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png index 2ad28878..01b47606 100644 Binary files a/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png and b/articles/resistance_predict_files/figure-html/unnamed-chunk-7-1.png differ diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html index b4628758..5f9a7ece 100644 --- a/articles/welcome_to_AMR.html +++ b/articles/welcome_to_AMR.html @@ -38,7 +38,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/authors.html b/authors.html index 8e8d29de..e7988120 100644 --- a/authors.html +++ b/authors.html @@ -10,7 +10,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 diff --git a/index.html b/index.html index 753e8984..e47eeccd 100644 --- a/index.html +++ b/index.html @@ -42,7 +42,7 @@ AMR (for R) - 1.8.2.9054 + 1.8.2.9057 @@ -527,7 +527,7 @@ Manually, using: install.packages("remotes") # if you haven't already -remotes::install_github("msberends/AMR") +remotes::install_github("msberends/AMR")
vignettes/datasets.Rmd
datasets.Rmd
Manually, using:
install.packages("remotes") # if you haven't already -remotes::install_github("msberends/AMR")
Automatically, using the rOpenSci R-universe platform, by adding our R-universe address to your list of repositories (‘repos’):
This version will eventually become v2.0! We’re happy to reach a new major milestone soon!
units
ab_ddd(..., units = "...")
ab_ddd_units()
as.rsi()
eucast_rules()
AMR
NA
as.rsi(as.disk(NA), ...)
options(AMR_guideline = "...")
as.integer()
table()
factor
mo_gramstain()
droplevels()
mic
droplevels(..., as.mic = TRUE)
ab_from_text()
as.mic()
as.disk()
styler
kurtosis(rnorm(10000)) -#> [1] 3.060168 +#> [1] 2.942494 kurtosis(rnorm(10000), excess = TRUE) -#> [1] 0.01364338 +#> [1] -0.008191898