对数据框或矩阵应用（）optimize（）？

Question

I have a dataframe, and a cost function that I want to optimize given each row in the data frame.

simplified example:

funct <- function(x,row,y)
{
  r <- row**2 - (x*y)**3
  return(sum(r))

}
apply(dataFr,1,optimize,f=funct,interval=c(0,250),y=4)

funct is the cost function, x is the variable I want to optimize over, and row is an argument that represents a row in a data frame dataFr

When I run the above code I get an error

Error in f(arg, ...) : unused argument (c(4, 8, 23))

What I want to get is a list of x's that optimze the cost, given each row in dataFr

dataFr can be

  X1 X2 X3
1  4  8 23
2  2  4 12
3  3  5 65

Answer 1

this will work:

apply(dataFr,1,function(r) optimize(f=funct,interval=c(0,250),row=r,y=4))

The problem was, as I mentioned in the comments with the row not being used and assigned to the paramter row of the function funct

By using an anonmous function, naming the current row and assigning it to the row parameter of the function it works