r语言学习（2）

> #控制流#
> #if(cond)statement_1 else statement_2#
> #cond是条件成立 则执行第一条命令 否则执行第二条命令
> if(any(x<=0))y<-log(1+x) else y<-log(x)
Warning message:
In log(1 + x) : NaNs produced
> y<-if(any(x<=0))log(1+x) else log(x)
Warning message:
In log(1 + x) : NaNs produced
> y<-if(any(x<=0))log(1+x^2) else log(x)
> y
[1] 4.6151205 3.2580965 0.6931472 2.3025851 2.8332133 4.4067192
> #switch语句#
> x1<-3
> switch(x1,2+2,mean(1:10),rnorm(4))
[1] -1.1085641  0.7534812 -0.2604358 -0.5414846
> switch(x1,2+2,mean(1:10),rnorm(4))
[1] -0.03607889  0.63881596 -1.29253217  0.94352475
> switch(2,2+2,mean(1:10),rnorm(4))
[1] 5.5
> switch(4,2+2,mean(1:10),rnorm(4))
> #循环语句for(name in expr_1) expr_2 name为循环变量 expr_1是一个向量的表达式  _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)}