估计 4PL 回归系数 (dr4pl)

如何解决估计 4PL 回归系数 (dr4pl)

我有以下问题。我正在使用包 (dr4pl) 来计算系数 end 然后使用它通过函数计算浓度

M.4pl:
df$data
concentration Response (RLU)

1     0.0     2640
2    13.5    18760
3    28.9    36457
4    65.1    78312
5   143.0   166636
6   310.0   351377
7   678.0   753676
8  1460.0  1568194
9  3090.0  3206620
10 6570.0  6269717

PTH4pl <- dr4pl(df,conc,RLU,init.parm = NULL,trend = "auto",method.init = "Mead",method.robust = "squared",method.optim = "Nelder-Mead",use.Hessian = FALSE,level = 0.9999,failure.message = FALSE,upperl = NULL,lowerl = NULL)

摘要(PTH4pl)

$call

dr4pl.data.frame(data = df,dose = conc,response = RLU,lowerl = NULL)

$coefficients
Estimate       StdErr        2.5 %       97.5 %
  UpperLimit 1.508662e+07 7.323620e-04 1.508650e+07 1.508674e+07
EC50       8.810751e+03 1.192900e-07 8.416543e+03 9.223423e+03
Slope      1.227595e+00 3.805094e-07 1.164185e+00 1.291005e+00
LowerLimit 4.599281e+04 7.323627e-04 4.587076e+04 4.611486e+04

3. 使用计算系数：

`function(x,lower.asymp,upper.asymp,inflec,hill){
  f <- lower.asymp + ((upper.asymp - lower.asymp)/
                        (1 + (x / inflec)^-hill))
  return(f)
}`

 `M.4pl(df$conc,4.611486e+04,508662e+07,8.810751e+03,1.227595e+00)`

 [1] 4.611486e+04 1.782388e+09 4.534810e+09 1.227006e+10 3.211301e+10 8.219761e+10 2.093635e+11 
     5.043649e+11
 [9] 1.101171e+12 2.090089e+12

我希望获得 df$RLU 值，但它不起作用。请告诉我：这是解决我的 p 任务的正确算法吗？