R 定义输入为文件且具有nls拟合的函数时出错：“0”；错误：没有返回的函数，跳转到顶层；

我试图将一组数据拟合到一个错误函数。我成功地使用了以下代码：

erf <- function(x) 2 * pnorm(x * sqrt(2)) - 1
data <- read.csv("z0.csv")
x<-data[,1]
y<-data[,2]
y<-y-min(y)
y<-y/max(y)
x<-x[which.max(y):which.min(y)]
x<-(x-min(x))/7200
y<-y[which.max(y):which.min(y)]
m<-nls(y~a/2*(1-erf((sqrt(2)*(x-b))/c)),start=list(a=1,b=0,c=0.001))
r<-summary(m)$coefficients[3,1]
dr<-summary(m)$coefficients[3,2]

---

erf您的
read.csv
函数缺少结束副词
）
您的
read.csv
函数缺少结束副词
）
radius <- function(file) {
  data <- read.csv(file = paste0(file, ".csv")
  x<-data[,1]
  y<-data[,2]
  y<-y-min(y)
  y<-y/max(y)
  x<-x[which.max(y):which.min(y)]
  x<-(x-min(x))/7200
  y<-y[which.max(y):which.min(y)]
  m<-nls(y~a/2*(1-erf((sqrt(2)*(x-b))/c)),start=list(a=1,b=0,c=0.001))
  c<-summary(m)$coefficients[3,1]
  return(c)
}