fit_sum<-summary(fit) > write_csv(fit_sum,paste0(out.dir,"fit_sum.csv")) Error in write_delim(x, file, delim = ",", na = na, append = append, col_names = col_names, : is.data.frame(x) is not TRUE

这个错误提示意味着write_csv()函数的参数x不是一个数据框。而在这里，fit_sum是一个summary()函数生成的对象，虽然看起来像一个数据框，但实际上并不是一个完整的数据框，其中包含了一些额外的信息。如果你想将fit_sum保存为csv文件，可以使用下面的代码：

writeLines(capture.output(summary(fit)), paste0(out.dir,"fit_sum.csv"))

这个代码使用了capture.output()函数将summary(fit)的结果输出为字符向量，然后使用writeLines()函数将字符向量写入文件中。注意，这样写入的文件是一个文本文件，不是一个数据框，需要在后续处理中进行解析。