Skip to Content
RStudioではじめるRプログラミング入門
book

RStudioではじめるRプログラミング入門

by Garrett Grolemund, 大橋 真也, 長尾 高弘
March 2015
Beginner to intermediate
276 pages
3h 31m
Japanese
O'Reilly Japan, Inc.
Content preview from RStudioではじめるRプログラミング入門

7章プログラム

この章では、R関数の実行によってプレイできる本物の動くスロットマシンを作ります。完成したら、次のようにしてプレイすることができます。

play()
## 0 0 DD
## $0

play()
## 7 7 7
## $80

play関数は、2つのことをしなければなりません。まず、3つのシンボルをランダムに生成しなければなりません。第二に、それらのシンボルをもとに賞金を計算しなければなりません。

第1のステップは簡単にシミュレートできます。sample関数を使えば、ランダムに3つのシンボルを生成することができます。これは、第Ⅰ部で2個のサイコロをランダムに「振った」のとよく似ています。次の関数は、ダイヤ(DD)、セブン(7)、トリプルバー(BBB)、ダブルバー(BB)、シングルバー(B)、チェリー(C)、ゼロ(0)というよく使われているスロットマシンシンボルのグループから3つのシンボルを生成します。シンボルはランダムに選択され、個々のシンボルが現れる確率はそれぞれ異なっています。

get_symbols <- function() {
  wheel <- c("DD", "7", "BBB", "BB", "B", "C", "0")
  sample(wheel, size = 3, replace = TRUE,
    prob = c(0.03, 0.03, 0.06, 0.1, 0.25, 0.01, 0.52))
}

get_symbolsを使えば、スロットマシンで使われるシンボルを生成できます。

get_symbols() ## "BBB" "0" "C" get_symbols() ## "0" "0" "0" get_symbols() ## "7" ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.

Read now

Unlock full access

More than 5,000 organizations count on O’Reilly

AirBnbBlueOriginElectronic ArtsHomeDepotNasdaqRakutenTata Consultancy Services

QuotationMarkO’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.
Julian F.
Head of Cybersecurity
QuotationMarkI wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.
Addison B.
Field Engineer
QuotationMarkI’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.
Amir M.
Data Platform Tech Lead
QuotationMarkI'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Mark W.
Embedded Software Engineer

You might also like

PythonとJavaScriptではじめるデータビジュアライゼーション

PythonとJavaScriptではじめるデータビジュアライゼーション

Kyran Dale, 嶋田 健志, 木下 哲也
プログラミングRust

プログラミングRust

Jim Blandy, Jason Orendorff, 中田 秀基
ユーザーストーリーマッピング

ユーザーストーリーマッピング

Jeff Patton, 川口 恭伸, 長尾 高弘

Publisher Resources

ISBN: 9784873117157Other