R 函数中的NaN

R 函数中的NaN,r,function,nan,R,Function,Nan,我试图运行以下函数,但我得到了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) preg对于dunif,参数为x,min,max

我试图运行以下函数,但我得到了
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)

preg对于
dunif
,参数为
x
min
max
。根据
?dunif

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

sigma

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

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