Chciałbym stworzyć wektor funkcji za pomocą funkcji dwóch funkcji 'func', na przykład tej:

func = function(number, coefficient) {  
     return(coefficient*number)  
}

Oto jak tworzę wektor funkcji:

vector_of_functions = NULL  
for (i in 1:4) {  
     vector_of_functions = c(vector_of_functions, 
                             function(number) func(number=number, coefficient=i))  
}

Moim problemem jest to, że wszystkie funkcje tworzące mój wektor są takie same, nawet jeśli zostały utworzone przy użyciu innegoi przez pętlę. Wygląda na to, że są oceniane przy użyciu ostatniej wartościi (która jest tutaj zmienną globalną).

Czy ktoś ma pomysł?