拟合逻辑曲线，获取每个记录的参数

Question

我正在尝试拟合一条简单的逻辑曲线，即1个响应〜1个预测变量。

redux

我习惯于使用逻辑回归作为分类方法，而这些软件包的使用对我来说却是未知的。该模型返回以下摘要和拟合图：

模型摘要

情节

我理解“ b”为斜率，“ d”为上限，“ e”为拐点。为了提供一些背景信息，我正在研究给定年份中每个县的拖拉机数量，并希望其遵循S曲线。因此，我正在查找这3个参数，但要查找数据集中的每个县。

Answer 1

类似的东西：

library(drc)

将数据框拆分为数据框列表，每个县一个：

split_df <- split(final.df, final.df$county)

将模型拟合到数据集并返回系数的函数：

fitfun <- function(d) {
    mL <- drm(percent_farm_tractor ~ year, data = d, fct = L.3(), type = "continuous")
    return(coef(mL))
}

将该函数应用于数据的每个块：

lapply(split_df, fitfun)