r - 在R中的增长曲线中绘制渐近线

问题描述

如何绘制上面这条曲线的渐近线？

 # Create Data
    Conc <- c(0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000, 0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000, 0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000, 0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000, 0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000, 0.03125, 0.06250, 0.12500, 0.25000, 0.50000, 1.00000)

    Response <- c(167.11246201, 53.96960486, 128.42857143, 43.67173252, 4.51975684, 0.34042553, 120.10334347, 101.14589666, 155.17629179, 35.31306991, 8.56534954, 1.71124620, 146.34954407, 108.50151976, 163.60182371, 64.70212766, 2.88145897, 0.50759878, 82.92401216, 109.80547112, 116.69300912, 26.85410334, 3.01519757, 0.37386018, 87.06990881, 84.82978723, 118.36474164, 27.52279635, 2.34650456, 0.10638298, 89.47720365, 109.47112462, 85.43161094, 17.69300912, 2.31306991, 0.07294833)

    df <- data.frame(Conc = Conc, Response = Response)

    #Make Modell
    library(drc)
    #adjust model
    drm <- drm(Response ~ Conc, data = df, fct = LL.4())
    #plot
    plot(drm)

这是我的意思的一个例子？在此处输入图像描述

标签： rmathstatistics

drm您可以从对象中提取渐近线的值：

asymptote <- coef(drm)[3]

该值可用于绘图：

plot(drm)
abline(asymptote, 0)

r - 在R中的增长曲线中绘制渐近线

问题描述

解决方案

推荐阅读