Last chance! 50% off unlimited learning
Sale ends in
data(military)
grade
enlisted
officer
or warrant officer
.branch
air force
, army
, marine corps
, navy
.gender
female
or male
.race
ami/aln
(american indian/alaskan native), asian
, black
, multi
(multi-ethinic), p/i
(pacific islander), unk
(unknown), or white
.hisp
TRUE
) or not (FALSE
).rank
data(military)
cond1 <- military$grade == "officer"
cond2 <- military$branch == "army"
cond3 <- military$gender == "female"
tabF <- table(military$rank[cond1 & cond2 & cond3])
barplot((tabF/sum(tabF)), main = "female army officer ranks")
tabM <- table(military$rank[cond1 & cond2 & !cond3])
barplot(tabM/sum(tabM), main = "male army officer ranks")
(tabFM <- table(military$branch, military$gender) /
matrix(rep(table(military$branch), 2), ncol = 2))
barplot(tabFM[,1], main = "proportion female")
Run the code above in your browser using DataLab