Version 0.1.2

DESCRIPTION

@@ -13,7 +13,7 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 URL: https://prdm0.github.io/AcceptReject/
 BugReports: https://github.com/prdm0/AcceptReject/issues/
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 VignetteBuilder: knitr
 Imports: 
     assertthat,

R/accept_reject.r

@@ -156,13 +156,13 @@ accept_reject <-
 
     if (warning && f(xlim[2L]) > 0.01) {
       cli::cli_alert_warning(
-        glue::glue("Warning: f({xlim[2L]}) is {f(xlim[2L])}. If f is defined for x >= f({xlim[2L]}), trying a upper limit might be better.")
+        glue::glue("Warning: f({xlim[2L]}) is {f(xlim[2L])}. If f is defined for x >= {xlim[2L]}, trying a upper limit might be better.")
       )
     }
 
     if (warning && xlim[1L] < 0 && f(xlim[1L]) > 0.01) {
       cli::cli_alert_warning(
-        glue::glue("Warning: f({xlim[1L]}) is {f(xlim[1L])}. If f is defined for x <= f({xlim[1L]}), trying a lower limit might be better.")
+        glue::glue("Warning: f({xlim[1L]}) is {f(xlim[1L])}. If f is defined for x <= {xlim[1L]}, trying a lower limit might be better.")
       )
     }
 

README.md

@@ -361,7 +361,7 @@ case_1 <- accept_reject(
   xlim = c(0, 6)
 )
 toc()
-#> 0.01 sec elapsed
+#> 0.008 sec elapsed
 
 # Specifying the base probability density function
 tic()
@@ -377,7 +377,7 @@ case_2 <- accept_reject(
   c = 1.2
 )
 toc()
-#> 0.004 sec elapsed
+#> 0.005 sec elapsed
 
 # Visualizing the results
 p1 <- plot(case_1)