################################### ## 10/06の宿題 ##################### ################################### # 以下から、奇数偶数の好み実験結果の一部のデータをインポートしてください。 # http://lab.kenrikodaka.com/_download/class/2022_AppliedMedia/oddeven.csv #Environmentパネルの「Import Dataset」から #oddeven.csvのデータを、expdatという変数に読み込みます。 #Name:expdat(入力してください) #Encoding:Automatic #Heading:Yes #Row names:Automatic #Separator:Comma #Decimal:Period #Quote:Double #Coomen:None #na.stfings:NA #Strings as factors:Unchecked(チェックは要りません) #誕生日と奇数偶数の好みに関するアンケートの架空のデータ(1000人分)です。 #month(誕生月)・name(誕生日)・preference(奇数が好き:1, 偶数が好き:0) #sex(男性:1, 女性:0)・$domhand(利き手が左:1, 利き手が右:0) #age(年齢) #最初の6行をちょっと出し head(expdat) # month day preference sex domhand age #1 8 29 1 1 0 19 #2 1 29 0 0 1 18 #3 3 19 0 1 0 18 #4 10 6 0 0 0 18 #5 10 10 1 0 0 18 #6 1 13 0 1 0 19 # 翻訳すると以下の様になります。 # 8月1日、奇数好き、男性、右利き、19歳 # 1月29日、偶数好き、女性、左利き、18歳 # 3月19日、偶数好き、男性、右利き、18歳 # 10月6日、偶数好き、女性、右利き、18歳 # 10月10日、奇数好き、女性、右利き、18歳 # 1月13日、偶数好き、男性、右利き、19歳 #(課題1)男性の偶数好きの割合を求めよ。 #(課題2)女性の偶数好きの割合を求めよ。 #(課題3)4月 or 8月 or 12月の偶数好きの割合を求めよ。 #(課題4)3月 or 7月 or 11月の奇数好きの割合を求めよ。 # それぞれ、変数をQ1,Q2,Q3,Q4として、 # 全ての行を実行すると、それらの変数に課題の回答が対応する様にしてください。 #作成したプログラムは、指定のリンク先に提出してください。 #ファイル名は「Class1006_Work_1950XX.R」でお願いします。 #(例題1)左利きの割合(R1)は? #左利きの総数は dom.left = sum(expdat$domhand==1) #[1] 75 #右利きの総数は dom.right = sum(expdat$domhand==0) #[1] 925 R1 = dom.left / (dom.left + dom.right) #[1] 0.075 #(例題2)左利きの偶数好きの割合(R2)とは? # 左利きに限った好みベクトルは以下で抽出できます。 pref.left = expdat$preference[expdat$domhand==1] #[1] 0 1 1 0 1 0 1 0 1 1 1 0 0 1 1 0 0 1 0 1 1 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 1 1 #[39] 1 0 1 1 0 1 0 0 0 0 1 0 1 1 0 1 0 0 0 0 1 0 0 0 1 1 0 0 0 1 0 0 0 1 0 0 0 # 左利きの偶数好き・奇数好きの数は以下で求まります。 pref.even = sum(pref.left == 0) #偶数好き #[1] 45 pref.odd = sum(pref.left == 1) #奇数好き #[1] 30 R2 = pref.even / (pref.even + pref.odd) #[1] 0.6 #ついでに、右利きの偶数好きの割合(R3)も計算しましょう。 pref.right = expdat$preference[expdat$domhand==0] pref.even = sum(pref.right == 0) #偶数好き #[1] 555 pref.odd = sum(pref.right == 1) #奇数好き #[1] 370 R3 = pref.even / (pref.even + pref.odd) #たまたま同じ!! #[1] 0.6 # 同じ要領で以下の課題にチャレンジしてみてください。 # (再掲) # ブール演算子 # A & B(AかつBが真のとき真) # A | B(AまたはBが真のとき真) # xor(A,B)(AとBのうち1つだけが真のとき真) # !A(Aが偽のとき偽) # any(A,B,C,...)(いずれかが真のとき真) # all(A,B,C,...)(いずれも真のとき真) #(課題1)男性の偶数好きの割合を求めよ。 #Q1 = ? #(課題2)女性の偶数好きの割合を求めよ。 #Q2 = ? #(課題3)4月・8月・12月の偶数好きの割合を求めよ。 #Q3 = ? #(課題4)3月・7月・11月の奇数好きの割合を求めよ。 #Q4 = ?