# 我々の世界とは微妙に異なるプリキュアの世界をシミュレートします。 # プリキュアの人数は61人。 # ただし、同じプリキュアが複数いたり、 # 我々の世界にいるプリキュアがいなかったり # これを50000回ほど繰り返すと、信頼区間が計算できます。 #プリキュアの世界を定義 set<-c("キュアブラック","キュアホワイト","シャイニールミナス", "キュアブルーム","キュアイーグレット","キュアドリーム", "キュアルージュ","キュアレモネード","キュアミント", "キュアアクア","ミルキーローズ","キュアピーチ", "キュアベリー","キュアパイン","キュアパッション", "キュアブロッサム","キュアマリン","キュアサンシャイン", "キュアムーンライト","キュアメロディ","キュアリズム", "キュアビート","キュアミューズ","キュアハッピー", "キュアサニー","キュアピース","キュアマーチ", "キュアビューティ","キュアハート","キュアダイヤモンド", "キュアロゼッタ","キュアソード","キュアエース", "キュアラブリー","キュアプリンセス","キュアハニー", "キュアフォーチュン","キュアフローラ","キュアマーメイド", "キュアトゥインクル","キュアスカーレット","キュアミラクル", "キュアマジカル","キュアフェリーチェ","キュアホイップ", "キュアカスタード","キュアジェラート","キュアマカロン", "キュアショコラ","キュアパルフェ","キュアエール", "キュアアンジュ","キュアエトワール","キュアマシェリ", "キュアアムール","キュアスター","キュアミルキー", "キュアセレーネ","キュアソレイユ","キュアモフルン", "キュアエコー") # プリキュアの名前のリスト確認 set # 何人のプリキュアがいますか? n<-length(set) # 何人か確認。2019年時点で61人のはず n # 新たなプリキュアの世界をリサンプリングで作り上げましょう resample<-sample(set,n,replace=TRUE) #resampling # どんな世界ができたでしょうか? resample