hello-R

#print start
{
    #1:3 is array
    for(i in 1:3) 
    {
        print(1:i)
    }
}
#print end


#if start
{
    x<- 1
    if(x==1)
        print(x)
    else
        print("not eq 1")
}
#if end
#loop start
{
    x <- 1
    repeat
    {
        
        print(9:x)
        x <- x+1
        if(x==10)
            break
    }
    for(y in 1:1000) 
    {
        if(y==10)
        break
        print(1:y)
    }
    
    y <- 0
    while(y <= 100)
    {
        if(y==10)
        break
        print(1:y)
        y <- y+1
    }

}
#loop end
#if end
#switch start
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