как численно рассчитать асимптоту в R?

Question

Этот вопрос выводится из того, что вычисляет функцию лимба с графиком в R .Мориц Эверс предоставил рабочее решение, но мне нужно, чтобы результат вычисления асимптоты был отмечен на графике красной точкой.

, поэтому здесь lim (\lim_{x \to \infty}\left(\frac{x}{x - 1} - 2\right))

Результат этой функции = -1

как результат этой функции (x / (x - 1) - 2) вычисляется в R?и затем отобразите его на этом графике

my_func <- function(x) x / (x - 1) - 2

library(ggplot2)
ggplot(data.frame(x = 0), aes(x)) +
    stat_function(fun = my_func, aes(colour = "Function")) +
    geom_hline(aes(yintercept = -1, colour = "Asymptote")) +
    scale_colour_manual(values = c("Asymptote" = "blue", "Function" = "orange")) + 
    xlim(-10, 10) +
    theme_minimal()

в виде красной точки.

Answer 1

Так как R соответствует международным стандартам, он возвращает NaN для Inf / (Inf-1), поэтому вам нужно указать очень большое число для функции:

 lim <- my_func(exp(100))
> lim
[1] -1

Число могло быть даже выше. Переполнение происходит где-то между exp (600) и exp (800):

> exp(600)
[1] 3.77302e+260
> exp(800)
[1] Inf