R语言基础入门二

判断语句和循环语句使用

判断语句 if...else

x <- runif(1, 0, 10)
x <- trunc(x)
if (x %% 3 == 0) {
  print("=0")
} else if (x %% 3 == 1) {
  print("=1")
} else{
  print("=2")
}

switch 语句

#switch(expr, list)
switch(1, "闽南师范大学", "厦门大学", "福州大学")
switch("a", a = "闽南师范大学", b = "厦门大学", c = "福州大学")

循环语句 repeat

i <- 0
repeat {
  i <- i + 1
  if (i == 3) {
    print("循环终止")
    break
  }
  print(i)
}

循环语句 while

i <- 0
while (i < 3) {
  i <- i + 1
  print(i)
}

循环语句 for

x <- c("闽南师范大学", "厦门大学", "福州大学")
for (value in x) {
  if (stringr::str_detect(value, "师范")) {
    next
  }
  print(value)
}

for (i in 1:3) {
  print(switch(i, "闽南师范大学", "厦门大学", "福州大学"))
}