从nls获得与SSasymp结合的配方

Question

我的目标是使用数据集＆＃34; days＆＃34; （1至200）和＆＃34;体型＆＃34;并把它放到一个简单的模型中。接下来，我想根据几天（50）的数据预测其他物体的体型。

因此，我使用以下代码行来预测，例如几天的身体大小（我只是以这种情况为例）。由于它是渐近函数，我使用SSasymp（随意提出一个更好的方法）。

model <- nls(bodySize~ SSasymp(day, Asym, R0, lrc), data = myData)

＆＃34;日＆＃34;的范围在这个例子中是200天。

然而，当仅仅基于50天来预测身体尺寸的轨迹时，我遇到的问题是我没有得到我预期的输出：

我运行此代码以获得预测的体型：

predict(model, newdata =  data.frame(day = 1:50))

我期望输出200个基于模型的值（主体大小）。 但是，我明白了：

       Asym         R0       lrc
 [1,] 0.1248008 0.87519923 0.2010490
 [2,] 0.2340263 0.76597370 0.3519158
 [3,] 0.3296204 0.67037959 0.4619947
 [4,] 0.4132843 0.58671570 0.5391165
 [5,] 0.4865069 0.51349313 0.5897930
 [6,] 0.5505912 0.44940880 0.6194236
 [7,] 0.6066778 0.39332223 0.6324723
and so on up to 50
.
.
.

我做错了什么，我需要做些什么来获得200个预测的体型值？