r - 如何解决HA：px≠py？

Question

我有两个样本：

allprogrammers <- subset(df, job == "programmer")
sampleprogrammers <- sample(1:523, 50, replace=FALSE)
allprogrammers_sample = allprogrammers[sampleprogrammers]

和

allanalysts <- subset(df, job == "analysts")
sampleanalysts <- sample(1:482, 50, replace=FALSE)
allanalysts_sample = allanalysts[sampleanalysts]

我需要证明HA: px ≠ py（所以allprogrammers ≠ allanalysts）有2%。

在开始在家工作之前老师给我们的所有信息都是这样的，但我真的不明白如何使用它来解决问题。

Cas de deux populations
Exemple 9.5
H0: px=py contre HA: px != py
prop.test(x = c(54, 108), n = c(300, 450), alternative="two.sided", conf.level=0.90)

标签： rsample