Функция возвращает неожиданное значение

Question

Я хотел бы получить функцию, которая возвращает матрицу.

mat1 <- function(k) 
{ 
    mat2 <- matrix(0, ncol = 664, nrow = 182) 
    for (i in 1:664) 
    { 
    mat2[,i] <- weight0.0025(i,k) 
    } 
} 

, где weight0.0025 - это функция, которая возвращает 182 длинный вектор, но почему-то это не работает.

Что еще больше расстраивает то, что

mat2 <- matrix(0, ncol = 664, nrow = 182) 
for(i in 1:664) 
{ 
    mat2[,i] <- weight0.0025(i,k) 
} 

работает, как ожидалось.

Я знаю, что могу написать в виде трехмерного массива, но мне нужно оптимизировать k.

Answer 1

Ваша функция требует оператора возврата.

mat1 <- function(k){ 
    mat2 <- matrix(0, ncol = 664, nrow = 182) 
    for (i in 1:664){ 
    mat2[,i] <- weight0.0025(i,k) 
    } 
    return(mat2) 
}