R nls函数，二元运算符的lhs-rhs非数值参数出错

我试图在一些新冠病毒数据上使用nls（非线性最小二乘）函数。我认为错误在我的“sigfunction”中，但我似乎不知道如何使它工作

covid <- read.csv("covid19.csv")
plot(covid$Algeria ~  covid$days,xlab = "Time (days)",ylab="Cases")

多亏了G.Grothendieck，我修复了函数中的一个问题，但现在当我运行它时，我得到了以下错误：

Error in qr(.swts * gr) : dims [product 4] do not match the length of object [146]

我将最后两行更改为：

Algeria <- covid$Algeria
sigfunction <- function(a,x,m,s){a*exp(((x-m)/s)^2)}
mod <- nls(Algeria ~ sigfunction(a,x,m,s), start=list(x=75,m=70,s=60,a=30), trace=TRUE)

---

阿尔及利亚必须提供sigfunction的参数：y~sigfunction（a，x，m，s）谢谢你指出我的疏忽，但我编辑了我的问题，因为我在NLS中遇到了另一个问题。必须提供sigfunction的参数：y~sigfunction（a，x，m，s）谢谢你指出我的疏忽，但我编辑了我的问题，因为我在nls中遇到了另一个问题
Error in qr(.swts * gr) : dims [product 4] do not match the length of object [146]

Algeria <- covid$Algeria
sigfunction <- function(a,x,m,s){a*exp(((x-m)/s)^2)}
mod <- nls(Algeria ~ sigfunction(a,x,m,s), start=list(x=75,m=70,s=60,a=30), trace=TRUE)