高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

795: 04/24(木)07:03 ID:9AuNSRyA(1) AAS
# 仮定
p_kokuritsu <- 0.01
p_f_ran <- 0.05
ratio_kokuritsu <- 0.1
ratio_f_ran <- 0.2
n_simulations <- 10000

# シミュレーション結果を格納するベクトル
kokuritsu_counts <- 0
f_ran_counts <- 0

for (i in 1:n_simulations) {
# ランダムに学歴を生成 (簡略化のため二択)
education <- sample(c("kokuritsu", "f_ran", "other"), 1, prob = c(ratio_kokuritsu, ratio_f_ran, 1 - ratio_kokuritsu - ratio_f_ran))

# 学歴に基づいて侮蔑語を使用するかどうかをシミュレート
uses_slur <- FALSE
if (education == "kokuritsu" && runif(1) < p_kokuritsu) {
uses_slur <- TRUE
kokuritsu_counts <- kokuritsu_counts + 1
} else if (education == "f_ran" && runif(1) < p_f_ran) {
uses_slur <- TRUE
f_ran_counts <- f_ran_counts + 1
}
}

# シミュレーション結果の表示
cat("シミュレーション回数:", n_simulations, "\n")
cat("難関国立大学卒で侮蔑語を使用した回数:", kokuritsu_counts, "\n")
cat("Fラン卒で侮蔑語を使用した回数:", f_ran_counts, "\n")

# 確率の比較 (あくまでシミュレーション上の数値)
prob_slur_kokuritsu <- kokuritsu_counts / (ratio_kokuritsu * n_simulations)
prob_slur_f_ran <- f_ran_counts / (ratio_f_ran * n_simulations)

cat("難関国立大学卒の人が侮蔑語を使う確率 (シミュレーション):", prob_slur_kokuritsu, "\n")
cat("Fラン卒の人が侮蔑語を使う確率 (シミュレーション):", prob_slur_f_ran, "\n")

if (prob_slur_f_ran > prob_slur_kokuritsu) {
cat("シミュレーションの結果では、Fラン卒の人の方が侮蔑語を使う可能性が高い傾向にあります。\n")
} else if (prob_slur_kokuritsu > prob_slur_f_ran) {
cat("シミュレーションの結果では、難関国立大学卒の人の方が侮蔑語を使う可能性が高い傾向にあります。\n")
} else {
cat("シミュレーションの結果では、両者の侮蔑語使用の可能性に大きな差は見られませんでした。\n")
}

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.033s