我应该定义非线性模型的起始值吗？

问：

尝试使用 （nls） 函数通过数据集拟合非线性模型，当我运行代码时，它显示错误（错误：未找到对象“H0_1”）。

尝试了这段代码：

library(readxl)
my_data <- read_excel("C:/Users/ADMIN/Desktop/my_data.xlsx", 
                      col_types = c("numeric", "numeric"))
View(my_data)
Tmax = c(my_data$Tmax)
HI = c(my_data$HI)

### Transforms h to log
lTmax = log(Tmax)

### Plots observed data
plot(HI ~ lTmax)

### Nonlinear least squares fit 
my_model = nls(H0_1*(1-exp(-(Tmax/beta)^theta))+c, start=list(H0_1=320, beta=442, theta=-33, c=20))
my_model