Estoy tratando de generar iterativamente algunas funciones usando un bucle For:

# Create a list to hold the functions
funcs <- list()
funcs[]

# loop through to define functions
for(i in 1:21){

    # Make function name
    funcName <- paste( 'func', i, sep = '' )

    # make function
    func = function(x){x * i}

    funcs[[funcName]] = func

    }

Sin embargo, no funciona como esperaba, ya que el valor i no se evalúa dentro de cada función. Quiero intentar y definir la función para que sea igual a x * 1; x * 2; etc., pero con lo que termino es una función que es x * i; donde tengo 21 años

Intenté usar la función eval () y eso solo resultó en que x * eval (i) se almacenara.