x <- resistance_predict(example_isolates,
- col_ab = "AMX",
- year_min = 2010,
- model = "binomial")
+ x <- resistance_predict(example_isolates,
+ col_ab = "AMX",
+ year_min = 2010,
+ model = "binomial"
+)
#> ℹ Using column 'date' as input for `col_date`.
plot(x)
@@ -302,14 +303,16 @@ A microorganism is categorised as Susceptible, Increased exposure when
filter_first_isolate() %>%
filter(mo_genus(mo) == "Staphylococcus") %>%
resistance_predict("PEN", model = "binomial")
- plot(x)
+ print(plot(x))
# get the model from the object
mymodel <- attributes(x)$model
summary(mymodel)
}
+#> Including isolates from ICU.
#> ℹ Using column 'date' as input for `col_date`.
+#> NULL
#>
#> Call:
#> glm(formula = df_matrix ~ year, family = binomial)
@@ -333,15 +336,16 @@ A microorganism is categorised as Susceptible, Increased exposure when
#>
# create nice plots with ggplot2 yourself
-if (require("dplyr") & require("ggplot2")) {
-
+if (require("dplyr") && require("ggplot2")) {
data <- example_isolates %>%
filter(mo == as.mo("E. coli")) %>%
- resistance_predict(col_ab = "AMX",
- col_date = "date",
- model = "binomial",
- info = FALSE,
- minimum = 15)
+ resistance_predict(
+ col_ab = "AMX",
+ col_date = "date",
+ model = "binomial",
+ info = FALSE,
+ minimum = 15
+ )
head(data)
autoplot(data)
}
diff --git a/reference/rsi_translation.html b/reference/rsi_translation.html
index 4b8ee2dbf..70b5e7c64 100644
--- a/reference/rsi_translation.html
+++ b/reference/rsi_translation.html
@@ -10,7 +10,7 @@
AMR (for R)
- 1.8.1.9030
+ 1.8.1.9045