r - 2条曲线同时非线性回归

Question

我正在尝试使用 nlm 拟合两条曲线，但遇到了一些问题。首先，我尝试分别拟合每条曲线，一切正常，获得的参数与用于模拟曲线的参数相似。

每条曲线都由不同的方程定义，但它们共享一些参数。因此，我想知道是否可以使用 nlm 或其他优化方法同时拟合两条曲线。

x<-seq(0,120, by=5)
y<-100/50*exp(-0.02*x)*rnorm(25, mean=1, sd=0.05)
y2<-(1*100/50)*(0.1/(0.1-0.02))*(exp(-0.02*x)-exp(-0.1*x))*rnorm(25, mean=1, sd=0.05)
xy<-data.frame(x,y)
xy2<-data.frame(x,y2)
fit<-nls(y~100/a*exp(-b*x), data=xy, start=c(a=45, b=0.018), trace=T)

fit

# Nonlinear regression model
#  model: y ~ 100/a * exp(-b * x)
#   data: xy
#       a        b 
# 51.68688  0.01936 
# residual sum-of-squares: 0.01934
#
# Number of iterations to convergence: 4 
# Achieved convergence tolerance: 1.395e-07

fit2<-nls(y2~100/a*(c/(c-b))*(exp(-b*x)-exp(-c*x)), data=xy2, 
    start=c(a=45, b=0.018, c=0.15), trace=T)

fit2

# Nonlinear regression model
#  model: y2 ~ 100/a * (c/(c - b)) * (exp(-b * x) - exp(-c * x))
#   data: xy2
#        a        b        c 
# 49.92938  0.01997  0.09903 
# residual sum-of-squares: 0.03024
#
# Number of iterations to convergence: 4 
# Achieved convergence tolerance: 2.12e-06

Answer 1

这是一种方法。 (编辑时:这工作正常，我原始代码中的一个拼写错误使它看起来不起作用，感谢@MrFlick和@Gregor指出了这一点)。首先使用固定的随机种子复制您的代码:

set.seed(1)
x<-seq(0,120, by=5)
y<-100/50*exp(-0.02*x)*rnorm(25, mean=1, sd=0.05)
y2<-(1*100/50)*(0.1/(0.1-0.02))*(exp(-0.02*x)-exp(-0.1*x))*rnorm(25, mean=1, sd=0.05)
xy<-data.frame(x,y)
xy2<-data.frame(x,y2)

fit<-nls(y~100/a*exp(-b*x), data=xy, start=c(a=45, b=0.018))
fit
#     Nonlinear regression model
#   model: y ~ 100/a * exp(-b * x)
#    data: xy
#        a        b 
# 50.29461  0.01962 
#  residual sum-of-squares: 0.0362

# Number of iterations to convergence: 4 
# Achieved convergence tolerance: 1.719e-07


fit2<-nls(y2~100/a*(c/(c-b))*(exp(-b*x)-exp(-c*x)), data=xy2, start=c(a=45, b=0.018, c=0.15))
fit2
# Nonlinear regression model
#   model: y2 ~ 100/a * (c/(c - b)) * (exp(-b * x) - exp(-c * x))
#    data: xy2
#        a        b        c 
# 49.26033  0.02041  0.09455 
#  residual sum-of-squares: 0.02364
#
# Number of iterations to convergence: 5 
# Achieved convergence tolerance: 8.4e-06

现在将它们组合起来:

xy0<-data.frame(x=c(x,x),y=c(y,y2),isY1=c(rep(c(1,0),each=length(x))),
                isY2=c(rep(c(0,1),each=length(x))))
fit0<-nls(y~isY1*(100/a*exp(-b*x))+isY2*(100/a*(c/(c-b))*(exp(-b*x)-exp(-c*x))), data=xy0, start=c(a=45, b=0.018,c=0.15))


fit0
# Nonlinear regression model
#   model: y ~ isY1 * (100/a * exp(-b * x)) + isY2 * (100/a * (c/(c - b)) *     (exp(-b * x) - exp(-c * x)))
#    data: xy0
#        a        b        c 
# 50.19176  0.01978  0.09800 
#  residual sum-of-squares: 0.06114

# Number of iterations to convergence: 5 
# Achieved convergence tolerance: 1.005e-06