2020-03-27：R流程控制

1、条件：if...else

p <- 0.1 
if(p<=0.05) {
print("p小于0.05!")
}else{                     #else前后应该要像这样：}else{ ，不然报错：错误: 意外的'else' in "else"
print("p大于0.05!")
}

2、循环：for和while

for (i in 1:10) {
 print(i)
}

##############
i<- 1
while(i<10) {
print(i)
i=i+1
} 

3、循环控制next、break

（1）next

跳过循环的当次迭代，不终止循环，开始循环的下次迭代，类似于continue，跳过该轮，继续下一轮循环

v <- LETTERS[1:6]
for (i in v){
 if(i == 'D'){      #遇到字母D就跳过循环，继续下轮的循环,最终输出结果为A B C E F
   next
 }
 print(i)
}

有关函数：
LETTERS[]: 26个大写字母;
letters[]: 26个小写字母

（2）break

当循环中遇见break时终止循环

v <- LETTERS[1:6]
for (i in v) {
if (i=='D') {     #最终输出结果为A B C
 break
}
print(i)
}

4、R函数

函数是组织好的，可重复使用的，用来实现单一，或相关联功能的代码段

rcal<-function(x,y)
{
  z <- x^2 + y^2; 
  result<-sqrt(z) ;
  result;
}
rcal(3,4)# 调用函数