R 기초 / 제어문, 사용자 정의 함수

조건문

1) if문

- 벡터 연산 불가. 스칼라 값만 가능

- 조건 하나만 사용: if + else

- 조건 여러개 사용: if + else if + else

rm(list=ls())
myweight <- 55

if (myweight > 80) {
  print('비만입니다')   # 조건이 TRUE일 때, 실행될 명령
} else {
  print('정상입니다')   # 조건이 FALSE일 때, 실행될 명령
}

# OUTPUT: "정상입니다"



if (myweight > 80) {
  print('비만입니다')
} else if (myweight < 40) {
  print('저체중입니다')
} else {
  print('정상입니다')
}

# OUTPUT: "정상입니다"

 

2) ifelse문

- if문의 한계를 보완함 (벡터 연산이 가능함. 즉 벡터의 각 요소별 조건문 적용가능)

weights <- c(55, 90, 77, 85, 65)
ifelse(weights > 80, '비만', '정상')

# OUTPUT: "정상" "비만" "정상" "비만" "정상"

 

반복문

1) for문

rm(list=ls())
res <- c()
for (i in 1:5) {
  res[i] <- 2*i - 1
}

 

 

2) while문

rm(list=ls())
num <- 10
while(num < 60) {
  print(num)
  num <- num + 10
}

# OUTPUT: 10 20 30 40 50

 

 

사용자 정의 함수

rm(list=ls())
mysum <- function(x,y) {
  total <- 0
  for (i in x:y) {
    total <- total + i
  }
  return(total)
}

mysum(1, 10)

# OUTPUT: 55