R语言循环语句while和repeat

• • 1、for语句
  • 2、while循环语句
  • 3、repeat语句
  • 4、举例
  • 5、引用
  • • 看完如果对你有帮助，感谢点赞支持！
    • 如果你是电脑端，看到右下角的 “一键三连” 了吗，没错点它[哈哈]

R语言批量处理1——输出list文件及数据框长宽转换
R语言批量处理2——导入excel，定位提取合并为数据框data.frame

• 注意执行顺序，先执行f[i]+f[i+1]<1000，然后往下走，与下面repeat有区别
• 例子 计算斐波那契数列 （兔子数列）

> f=1
> f[2]=1
> i=1
> while(f[i]+f[i+1]<1000){
+   f[i+2]=f[i]+f[i+1]
+   i=i+1
+ }
> f
 [1]   1   1   2   3   5   8  13  21  34  55  89 144 233 377 610 987
> i
[1] 15

• 与if常常联用，注意执行顺序，f[i]+f[i+1]>1000，与while<1000不同

> f=1
> f[2]=1
> i=1
> repeat{
+   f[i+2]=f[i]+f[i+1]
+   i=i+1
+   if (f[i]+f[i+1]>1000) break
+ };f
 [1]   1   1   2   3   5   8  13  21  34  55  89 144 233 377 610 987
> i
[1] 15

• 甲和乙玩游戏，规则如下：

  • 甲每胜一局赢1元，负一局输1元，甲每局获胜的概率都是0.5，每局之间相互独立。（类似抛硬币）
  • 问题：甲的初始资产为50元，反复游戏，直到甲资产变成0或者200为止。请问，甲先输到0 的概率。

• while语句

a=c(1,-1)
f[1]=50
i=1
while (f[i]!=0) {
  x <- sample(a,1)
  f[i+1]=f[i]+x
  i=i+1
}
i

• repeat语句

a <- c(1,-1)
f=50
i=1
repeat{
  x <- sample(a,1)
  f[i+1]=f[i]+x
  i=i+1
  if(f[i]==0|f[i]==200) break
};f
i

R语言︱函数使用技巧（循环、if族/for、switch、repeat、ifelse、stopifnot）