我想寫個指令可以自動產生的residual，reg
像是reg y x,res(newvar)

capture program drop autores
program define autores
syntax varlist,res(newvar)
tokenize "`var1ist'"
tempvar yhat
local y `1'
local x:list varlist-y
local res :list newvar
qui{
reg  `y' `x'
predict `yhat'
gen `res'=`y'-`yhat'
}
end

webuse auto
autores price mpg weight,res(k1)

加了紅字程式碼便不可行了，若我想在加入res的效果，我該怎麼改寫程式。

謝謝