hello-R

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

#if start
{
    x<-
    if(x==)
        print(x)
    else
        print("not eq 1")
}
#if end
#loop start
{
    x <-
    repeat
    {

        print(:x)
        x <- x+
        if(x==)
            break
    }
    for(y in :)
    {
        if(y==)
        break
        print(:y)
    }

    y <-
    while(y <= )
    {
        if(y==)
        break
        print(:y)
        y <- y+
    }

}
#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 <-
switch(x,,,)
x <-
switch(x,,mean(:))
x <-
switch(x,,mean(:),rnorm())
x <-
switch(x,,mean(:),rnorm(),"Neither")
print("switch with function")
centre <- function(x,type)
{
    switch(type,mean=mean(x),median=median(x),trimmend=mean(x,trim= .))
}
#随机函数
x <- rcauchy()
print(x)
centre(x,"mean")
centre(x,"median")
centre(x,"trimmend")
#switch end