add<-function(a,b){
return(a*b,a+b)
}

add(1,2)

报错：
In return(a * b, a + b) : multi-argument returns are deprecated

怎样才能定义两个返回值使得

nls(~add(a,b),data=list(a=1),start=list(b=1)) 有效?想要最小化a*b