Я столкнулся с проблемами с моим заданием, которое генерирует 100 выборок с n = 100 для экспоненциального распределения.Затем я должен оценить параметр, используя оценку максимального правдоподобия (MLE).Я закодировал вопросы, как показано ниже, но я обнаружил ошибку, указанную «несовместимые типы (от замыкания до двойного) в исправлении типа поднабора».Могу ли я узнать, что это значит?Любой, чтобы решить это?
Ваш ответ будет высоко оценен.
nsam=10^2
minuslogL=rep(1,nsam)
MaxLikeEst=rep(1,nsam)
for(i in 1:nsam){
exp=rexp(100,5)
minuslogL[i]=function(lambda){-sum(dexp(exp,lambda[i],log = TRUE))}
library(stats4)
MaxLikeEst[i]=mle(minuslogL[i],start = list(lambda=5))
summary(MaxLikeEst)
i=i+1
}
Error in minuslogL[i] <- function(lambda) { :
incompatible types (from closure to double) in subassignment type fix