Как я могу определить эту функцию

Question

Я уже определил функцию MAMeanCov.

MAMeanCov <- function(listmodel.pred, weights){
### Calculate the ensemble model mean:
# Extract means
list.muvec <- lapply(listmodel.pred,
FUN = function(pred){unname(unlist(pred$mu_vector))})}

После того, как я хочу определить

mu.weight <- Map('*', list.muvec, weights)

Но это дает мне следующую ошибку: Ошибка в mapply (FUN = f,. .., SIMPLIFY = FALSE): объект 'list.muve c' не найден