别人教了随机拟合的方法：

snumber = dim(rd)[1]
nls.sol = list()
for (i in 1:100) {
rown = sample(1:snumber, 6)
rddata = rd[rown,]
nls.sol[]<-nls(ABOVE~a*DBH^b,data=rddata,start=list(a=0.01,b=2))
}

我想请问怎么样才能用一个语句展示所有的拟合结果？
我是一个一个lm.sol[[14]]，lm.sol[[15]]，lm.sol[[16]]........
太费时间了？请问您有什么好的方法，一次全部展示出来呢