выхода 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 - мм: нечисловой аргумент бинарного оператора

мне было интересно, как я могу получить его, так что argmin является числовым и я могу выполнить что-то вроде:

argmin +mm и т.д.

Я попытался установить as.numeric в argmin, но я получаю еще одно предупреждение:

(список) объект не может быть принужден к типу «двойной»

Answer 1

inputs список и mm вектор

попробуйте

unlist(argmin) - mm

или

armign[[1]] - mm