【发布时间】:2020-11-23 01:02:57
【问题描述】:
我有一个 PDF 文件,其中 t 我是从逆向方法得到的。以及来自 x
PDF = 2 * (b0+b1*x) * exp(-(b0+b1*x)*t) * (1-exp(-(b0+b1*x)*t))
问题是当我执行 maxLik 函数时,maxLik 中的标准误差值返回 NA 值。我将 z1 指定为对数似然函数。
#Likelihood
library(maxLik)
LLF <- function(para){
set.seed(1)
b0 = para[1]
b1 = para[2]
#n = 1
z1 = (n*log(2)) + (n*log(b0+b1*xsum)) - ((b0+b1*xsum)*tsum) + (n*log(1-exp((-(b0 + b1*xsum)*tsum))))
return(z1)
}
mle <- maxLik(LLF, start = c(2,4))
summary(mle)
Maximum Likelihood estimation
Newton-Raphson maximisation, 3 iterations
Return code 1: gradient close to zero
Log-Likelihood: -22.7055
2 free parameters
Estimates:
Estimate Std. error t value Pr(> t)
[1,] 1.986 NA NA NA
[2,] 3.986 NA NA NA
提前谢谢你。
【问题讨论】:
标签: r simulation mle log-likelihood exponential-distribution