argmin的输出无法更改为数字

Question

对于以下示例：

    f<-function(x,y){x^2+y^2}
mm<-c(0.2,0.5,0.3)

inputs<- list(c(1,0,0),c(0,1,0),c(0,0,1))
outputs<-mapply(f,inputs,mm )
argmin<-inputs[which.min(outputs)]
argmin-mm

我收到错误： argmin中的错误 - mm：二元运算符的非数字参数

我很想知道，我怎样才能得到argmin是一个数字，我可以执行以下操作：

argmin +mm等

我已尝试将as.numeric设置为argmin，但我收到了另一个警告：

（list）对象无法强制键入＆＃39; double＆＃39;

Answer 1

inputs是一个列表，mm是一个向量

尝试

unlist(argmin) - mm

或

armign[[1]] - mm