Rで二項分布がデータフレームで機能しない

性別によって心疾患の罹患割合が違うデータを作成したいとする

n <- 100
id <- 1:n
sex <- rbinom(n,1,0.6)
X <- data.frame(id,sex)
riskA <- 0.20
riskB <- 0.05
X$card <- ifelse(X$sex==1,rbinom(1,1,riskA),rbinom(1,1,riskB))
summary(X$card)

とすると、なぜか全てゼロになります。

なぜでしょうか？
どうすれば作成できるのでしょうか？