摘要：
#printstart{#1:3isarrayfor(iin1:3){print(1:i)}}#printend#ifstart{x˂-1if(x==1)print(x)elseprint("noteq1")}#ifend#loopstart{x˂-1repeat{print(9:x)x˂-x+1if(x==10)break}for(yin1:1000){if(y==10)breakprint(1:y)}y˂-0while(y˂=100){if(y==10)breakprint(1:y)y˂-y+1}}#loopend#ifend#switchstarty˂-"fruit"switch(y,fruit="banana",vegetable="broccoli","Neither")y˂-"test"switch(y,fruit="banana",vegetable="broccoli","Neither")x˂-2switch(x,1,2,3)x˂-2switch(x,1,mean(1:10))x˂-3switch(x,1,mean(1:10),rnorm(5))x˂-4switch(x,1,mean(1:10),rnorm(5),"Neither")print("switchwithfunction")centre˂-function(x,type){switch(type,mean=mean(x),median=median(x),trimmend=mean(x,trim=.1))}#随机函数x˂-rcauchy(5)print(x)centre(x,"mean")centre(x,"median")centre(x,"trimmend")#switchend
#print start { #1:3 isarray for(i in 1:3) { print(1:i) } } #print end #if start{ x<- 1 if(x==1) print(x) elseprint("not eq 1") } #if end#loop start { x <- 1repeat { print(9:x) x <- x+1 if(x==10) break} for(y in 1:1000) { if(y==10) breakprint(1:y) } y <- 0 while(y <= 100) { if(y==10) breakprint(1:y) y <- y+1} } #loop end #if end#switchstart y <- "fruit" switch(y,fruit="banana",vegetable = "broccoli","Neither") y <- "test" switch(y,fruit="banana",vegetable = "broccoli","Neither") x <- 2 switch(x,1,2,3) x <- 2 switch(x,1,mean(1:10)) x <- 3 switch(x,1,mean(1:10),rnorm(5)) x <- 4 switch(x,1,mean(1:10),rnorm(5),"Neither") print("switch with function") centre <-function(x,type) { switch(type,mean=mean(x),median=median(x),trimmend=mean(x,trim= .1)) } #随机函数 x <- rcauchy(5) print(x) centre(x,"mean") centre(x,"median") centre(x,"trimmend") #switch end