Как включить функцию в стандартное отклонение параметра pnorm?

Question

Я хочу создать функцию a (v, x), используя pnorm, но со стандартным отклонением pnorm, которое зависит от x. R возвращает ошибку: нечисловой аргумент в математическую функцию.

Я довольно новичок в R, поэтому я не знаю, как справиться с этой проблемой, но мне не удалось найти ответ в другом месте.

x0 = 6
R = 5 
r = 2
p=0.5
sig = 5
sigR <- function(x){ sig*(x - r)*sqrt(p*(1-p))}

a <- function(v,x) {
 pnorm(v + p*(x0-x) + (1-p)*(R-r), sd = sigR)
  }

Спасибо за помощь.

Answer 1

Поскольку sigR является функцией x, вам необходимо передать значение x в эту функцию, чтобы получить константу. Параметр sd= ожидает числовое значение, а не функцию.

a <- function(v,x) {
 pnorm(v + p*(x0-x) + (1-p)*(R-r), sd = sigR(x))
}