2.8 控制流

2.8.1 分支语句

1.if/else语句

例如：1

x <- c("what","is","truth")
if("Truth" %in% x){
print("Truth is found")
} else {
print("Truth is not found")
}

例如：

x <- c("what","is","truth")
if("Truth" %in% x){
print("Truth is found the first time")
} else if ("truth" %in% x) {
print("truth is found the second time")
} else {
print("No truth found")
}

2.switch语句

x<-3
switch(x,2+2,mean(1:10),rnorm(4))
switch(2,2+2,mean(1:10),rnorm(4))
switch(6,2+2,mean(1:10),rnorm(4))

2.8 控制流

2.8.2 中止语句与空语句

中止语句break：终止循环是程序跳出循环。

空语句是next语句，next语句是继续执行，而不执行某个实质性内容。

结合循环语句来说明

2.8.3 循环语句

for循环，while循环和repeat循环

1.for循环语句

for(name in expr_1) expr_2

n<-4;x<-array(0,dim=c(n,n))
for(i in 1:n){
for(j in 1:n){
x[i,j]<-1/(i+j-1)
}
};x

2.while

例如：求菲波那契数列小于1000的值

F[n]=F[n-1]+Fn-2

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

3.repeat

还是求菲波那契数列中小于1000的值

f<-1;f[2]<-1;i=1
repeat{
if(f[i]+f[i+1]>1000) break;
f[i+2]<-f[i]+f[i+1];
i<-i+1;
};f