MLE с векторами в качестве аргументов

Question

Я пытаюсь использовать функцию mle() в R, но кажется, что аргумент стартового списка может быть только списком отдельных элементов, а не векторов.

Есть ли способ передатьсписок векторов?

Ниже приведено то, что у меня сейчас:

inits <- list(position=c(-0.5,0.5,0.2,
               -0.2,0.3,-0.3,0.4,0), 
 weight=c(5,1), 
 beta=c(-1,-1), 
 prob_s=c(0.5,0.5))

fit <- mle(LL, start = inits)

Моя функция LL выглядит следующим образом:

LL <- function(position, weight, 
               beta, prob_s)

Answer 1

Если вы говорите о функции mle() из пакета stats4, то, насколько я знаю, у вас не может быть векторных параметров.Что вы можете сделать, это обернуть вашу функцию LL() в другую функцию, которая передается в mle().Например,

LL1 <- function(position1, position2, position3, position4, 
                position5, position6, position7, position8,
                weight1, weight2, 
                beta1, beta2,
                prob_s1, prob_s2)
         LL(position = c(position1, position2, position3, position4, 
                position5, position6, position7, position8),
            weight = c(weight1, weight2),
            beta = c(beta1, beta2),
            prob_s = c(prob_s1, prob_s2))

fit <- mle(LL1, start = unlist(inits))