확률변수 (random variable)를 만들어 보자.

예제 코드

magic_box <- function(){
    random_num0to1 <- runif(1)
    
    if (random_num0to1 < 0.5) {
        result <- 0
    } else {
        result <- 1
    }

    return(result)
}

우리가 만든 함수를 실행을 시켜 봅시다!

magic_box()

## [1] 0

짧은 버전

magic_box <- function(){
    ifelse(runif(1) < 0.5, 0, 1) 
}

1. 짧은 버전에서 쓰인 ifelse() 함수 문법에 대하여 알아두면 좋아요.

ifelse(조건, 조건이 참일 경우 값, 조건이 참이 아닐 경우 값)

2. R에서는 result 변수를 꼭 생성해서 반환 (return) 할 필요가 없습니다.

연습 문제

magic_box <- function(){
    
    # runif(1) 사용해서
    # 만들어보세요.
    
    return(result)
}

magic_box <- function(){
    random_num0to1 <- runif(1)
    
    if (random_num0to1 < (2/3)) {
        result <- 0
    } else {
        result <- 1
    }

    return(result)
}

---

random_1or2 <- function(){
  
    # magic_box()를 사용해서 
    # 어떻게 만들 수 있을까요?
    
}

# 이 함수를 실행시키기 위해서는
# magic_box()가 로딩되어 있어야 합니다.
random_1or2 <- function(){
  
    magic_box() + 1
    
}

---

random_0or3 <- function(){
  
    # magic_box()를 사용해서 
    # 어떻게 만들 수 있을까요?
    
}

# 이 함수를 실행시키기 위해서는
# magic_box()가 로딩되어 있어야 합니다.
random_0or3 <- function(){
  
    3 * magic_box()
    
}