NaNs в функции

Question

Я пытаюсь запустить следующую функцию, но получаю NaNs Я не понимаю свою ошибку ... есть идеи?

preg<-seq(0.15,0.42,length=100) 
sigma<-seq(0.01,0.1, length=100) 

y <- c(0.1851852,0.4210526,0.3243243)
lf <- function(preg, sigma) prod(dunif(y, preg, sigma))
lf(0.3, 0.02)

Так!

Answer 1

С dunif аргументы: x, min, max. Согласно ?dunif

dunif (x, min = 0, max = 1, log = FALSE)

Здесь «preg» начинается с более высокого значения (для min) по сравнению с sigma

dunif(y, preg[1], sigma[1])
#[1] NaN NaN NaN

dunif(y, 0.02, 0.3)
#[1] 3.571429 0.000000 0.000000