fanshenzhang 我打算构造含有100个函数的一个列表 F,作如下运算: lapply( F , uniroot, ........ ) F中每个函数只是参数b不一样,如下代码。请问,怎样快速构建函数列表? b=c(1:100) #根据 f = function(x) x^2+2*x -b #构造100个函数,最后组成一个列表: f1 = function(x) x^2+2*x -1 #...... f10 = function(x) x^2+2*x -10 #......
nan.xiao f <- function (b) { force(b) function(x) x^2 + 2 * x - b } lst <- vector("list", 100) for (i in 1:100) lst[[i]] <- f(i) lapply(lst, rootSolve::uniroot.all, interval = c(-100, 100)) https://adv-r.hadley.nz/function-factories.html