Lesson 1.4

=====================================================

die <- 1:6

sample(die, size = 2)   # 同じ値が続かない

## [1] 1 3

sample(die, size = 2, replace = TRUE)　　# 独立した無作為サンプルとなる

## [1] 3 4

dice <- sample(die, size = 2, replace = TRUE)
dice

## [1] 3 3

sum(dice)

## [1] 6

# my_function <- function() {  }

roll <- function() {
  die <- 1:6
  dice <- sample(die, size = 2, replace = TRUE)
  sum(dice)　　# 最後の行の結果を返す
}
roll()

## [1] 8

roll

## function() {
##   die <- 1:6
##   dice <- sample(die, size = 2, replace = TRUE)
##   sum(dice)　　# 最後の行の結果を返す
## }

dice

## [1] 3 3

1 + 2

## [1] 3

sqrt(3)

## [1] 1.732051

dice <- sample(die, size = 2, replace = TRUE)
three <- 1 + 2
a <- sqrt(3)

roll2 <- function() {
dice <- sample(bones, size = 2, replace = TRUE)
# die <- 1:6 削除、　ice > bones　に変えた
sum(dice) 　　 }

roll2 <- function(bones) {
  dice <- sample(bones, size = 2, replace = TRUE)
  # die <- 1:6 削除、　ice > bones　に変えた
  sum(dice)　　
}

roll2(bones = 1:6)

## [1] 8

roll2(bones = 1:20)

## [1] 23

# roll2()

roll2 <- function(bones = 1:6) {
  dice <- sample(bones, size = 2, replace = TRUE)
  # die <- 1:6 削除、　dice > bones　に変えた
  sum(dice)　　
}

roll2()

## [1] 7

roll2(bones =20:30)

## [1] 49

roll2(30:40)

## [1] 71