如何找到此功能的确切值？

Question

我想找到拉普拉斯密度的精确值，例如，x1 = 0.462234和x2 = 0.53885的函数值是多少。

x <- seq(from=0, to = 1, by= 0.001)
laplace <- (1/(2*0.08))*exp(-abs(x-0.5)/(0.08))

Answer 1

你的意思是这样吗？

laplace <- function(x) {
    1 / (2 * 0.08) * exp(-abs(x - 0.5) / 0.08);
}

x <- c(0.462234, 0.53885);
laplace(x);
#[1] 3.898167 3.845703