# 一様乱数

# 乱数の個数
n <- 1000

# 一様乱数の発生
r <- runif(n)
print(r)

# ヒストグラム（相対度数）
hist(r, freq = FALSE, main = "一様乱数")