如何实现循环线性回归R语言

Question

我有一个数据，是100个人，A列是体重，B列是身高，C列是时间，一共有3年，也就是说这个excel有300行数据，3列数据，包含100个人3年的身高和体重。
我想对数据中的每一个人的身高体重进行线性回归，并且将每个人的系数和显著性对应没人的姓名输出到excel表格中，我应该如何快速的实现呢？我想用循环，但是没做出来。
有没有会R语言的大shen可以解决一下啊！谢谢啦！

Answer 1

不知道你这个问题是否已经解决, 如果还没有解决的话:

• 这有个类似的问题, 你可以参考下: https://ask.csdn.net/questions/7693285
• 这篇博客你也可以参考下：26个大写字母里面，有一部分字母是带有圈的，比如A有1个圈，B有2个圈，C没有圈， 给你一个带有n个大写字母组成的字符串，请问一共有多少个圈圈。 你可以将字母中完全封闭的一个区域当作一个圈。 输入描
• 除此之外, 这篇博客: 期末复习数据结构与算法练习题中的 2.24 假设有两个按元素值递增有序排列的线性表A和B，均以单链表作存储结构，请编写算法将A表和B表归并成一个按元素值递减有序（即非递增有序，允许表中含有值相同的元素）排列的线性表C，并要求利用原表（即A表和B表）的结点空间构造C表。 部分也许能够解决你的问题, 你可以仔细阅读以下内容或者直接跳转源博客中阅读:
  

  解：

  // 将合并逆置后的结果放在C表中，并删除B表
  Status ListMergeOppose_L(LinkList &A,LinkList &B,LinkList &C)
  {
  	LinkList pa,pb,qa,qb;
  	pa=A;
  	pb=B;
  	qa=pa;	// 保存pa的前驱指针
  	qb=pb;	// 保存pb的前驱指针
  	pa=pa->next;
  	pb=pb->next;
  	A->next=NULL;
  	C=A;
  	while(pa&&pb){
  		if(pa->data<pb->data){
  			qa=pa;
  			pa=pa->next;
  			qa->next=A->next;	//将当前最小结点插入A表表头
  			A->next=qa;
  		}
  		else{
  			qb=pb;
  			pb=pb->next;
  			qb->next=A->next;	//将当前最小结点插入A表表头
  			A->next=qb;
  		}
  	}
  	while(pa){
  		qa=pa;
  		pa=pa->next;
  		qa->next=A->next;
  		A->next=qa;
  	}
  	while(pb){
  		qb=pb;
  		pb=pb->next;
  		qb->next=A->next;
  		A->next=qb;
  	}
  	pb=B;
  	free(pb);
  	return OK;
  }
  

  其他写法：
  解：

  void reverse_merge(LinkList &A,LinkList &B,LinkList &C)//把元素递增排列的链表A和B合并为C,且C中元素递减排列,使用原空间
  {
    pa=A->next;pb=B->next;pre=NULL; //pa和pb分别指向A,B的当前元素
    while(pa||pb)
    {
      if(pa->data<pb->data||!pb)
      {
        pc=pa;q=pa->next;pa->next=pre;pa=q; //将A的元素插入新表
      }
      else
      {
        pc=pb;q=pb->next;pb->next=pre;pb=q; //将B的元素插入新表
      }
      pre=pc;
    }
    C=A;A->next=pc; //构造新表头
  }//reverse_merge
  

  分析:本算法的思想是,按从小到大的顺序依次把A和B的元素插入新表的头部pc处,最后处理A或B的剩余元素.

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^