Control Structures

if-else

if(x>0){
    y <- 1
} else {
    y <- 0
}

y <- if(x >0){
    1   
} else {
    0
}

for loop

for (i in 1:10){
    print(i)
}

create vector x

x <- c('a', 'b', 'c', 'd')

for (i in 1:4){
    print (x[i])
}

for (i in 1:4) 
    print (x[i])

for (i in 1:4) print (x[i])

for (i in seq_along(x)){
    print (x[i])
}

for (letter in x){
    print(letter)
}

create matrix

m <- matrix(1:8, 2, 4)

for(x in seq_len(nrow(m))){
    for(y in seq_len(ncol(m))){
        print(m[x,y])
    } 
}

while loop

count <- 10
while(count>0){
    print(count)
    count <- count - 1
}

repeat, next, break

x <- 100
repeat {
    x <- (x - 1)
    if(x < 1)
        break
    if(x%%2 == 0)
        next
    print(x)
}