如何在新的df中保存循环的输出系数（von bertalanffy）

Question

我使用以下循环输出增长参数/系数'L infinity'和'K'，我想知道是否有一种方法可以让代码将打印值输出到df中，因为有超过400种不同的Haul_ID并且从输出中单独复制它们将花费我一个年龄。

 for(a in unique(growth$Haul_ID)) { 
 svTypical <- vbStarts(Height_t2~t2,data=growth[growth$Haul_ID==a,],plot=FALSE) #can add or remove plot=TRUE
 print(a)
 print(svTypical)
 unlist(svTypical) #unlist to save space when viewing results
 }

在数据框中我只需要;

Haul ID      L infinity      K 

Answer 1

以下可能会有所帮助：

ddf = data.frame(Haul_ID = as.character(), L =as.numeric(), infinity= as.numeric(),  K=as.numeric())
for(i in 1:length(unique(growth$Haul_ID))){
    # your code to get 'a' and 'svTypical'
    ddf[i,]=c(a,unlist(svTypical))
}
ddf