r - R：计算最大似然估计

Question

我想计算方差 = 36 的正态分布的均值 mu 的最大似然估计量。

但以下程序显示错误：

set.seed(36)

x <- rnorm(50,mean=20,sd=6)

loglikelikelihood<- function(mu,x){
 L = (-50)*log(sqrt(2*pi)*6)-((1/72)*(sum(x^2)-2*mu*sum(x)+50*mu^2))
 }

optimize(f=loglik,X=x,interval=c(0,100),maximum=T)

Answer 1

你拼错了两个论点。尝试写loglikelihood而不是loglik和x而不是X，它会工作。

> optimize(f=loglikelihood,x=x,interval=c(0,100),maximum=T)
$maximum
[1] 20.86679

$objective
[1] -157.6814