R语言学习(6)-流程控制和循环

> if(TRUE)message("TRUE")

TRUE

> if(FALSE)message("FALSE")

> if(FALSE)

+ {

+ message("FALSE")

+ }else

+ {

+ message("TRUE")

+ }

TRUE

> (greek<-switch("gamma",alpha=1,beta=sqrt(4),gamma={

+ a<-sin(pi/3)

+ 4*a^2

+ }

+ ))

[1] 3  

> switch(

+ 3,

+ "one",

+ "two",

+ "three",

+ "four"

+ )

[1] "three"

> for(i in 1:5) message("i=",i)

i=1

i=2

i=3

i=4

i=5

> replicate(5,runif(1))

[1] 0.7449666 0.8121744 0.1391714 0.4133810 0.8871107

> prime_factor <- list(two = 2,three = 3, four = c(2,2),five=5,six=c(2,3))

> lapply(prime_factor,unique)

$two

[1] 2

$three

[1] 3

$four

[1] 2

$five

[1] 5

$six

[1] 2 3

文章来源: blog.csdn.net，作者：冰水比水冰，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/luoyhang003/article/details/38357403