如何在R中將一長串參數傳遞給`nls`函數

Question

nls函數的正常工作方式如下：

 x <- 1:10
 y <- 2*x + 3                            # perfect fit
 yeps <- y + rnorm(length(y), sd = 0.01) # added noise
 nls(yeps ~ a + b*x, start = list(a = 0.12345, b = 0.54321))#

因為我使用的模型有很多參數，或者我事先不知道參數列表中將包含什么，所以我想要以下內容

tmp <- function(x,p) { p["a"]+p["b"]*x }
p0 <- c(a = 0.12345, b = 0.54321)
nls(yeps ~ tmp(x,p), start = list(p=p0))

有誰知道如何修改nls函數，以便它可以接受公式中的參數矢量參數而不是許多單獨的參數？

Answer 1

您可以像這樣給出初始系數的向量：

tmp  <- function(x, coef){
       a <- coef[1]
       b <- coef[2]
       a +b*x
     }

x <- 1:10
yeps <- y + rnorm(length(y), sd = 0.01)  # added noise
nls(yeps ~ a + b*x, start = list(a = 0.12345, b = 0.54321))#                     
nls(yeps ~ tmp(x,coef), start = list(coef = c(0.12345, 0.54321)))

Nonlinear regression model
  model:  yeps ~ tmp(x, coef) 
   data:  parent.frame() 
coef1 coef2 
    3     2 
 residual sum-of-squares: 0.0016

Number of iterations to convergence: 2 
Achieved convergence tolerance: 3.47e-08 

PS：

 example(nls)

應該是了解如何使用nls的一個良好的開始。