Conditional proportions

निम्न कोड क्रमशः जॉइंट और कंडीशनल proportions की टेबल्स बनाता है:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Print fewer digits
prop.table(tab)     # Joint proportions
prop.table(tab, 2)  # Conditional on columns

इसे कंसोल में चलाइए। लगभग कितने प्रतिशत महिला कैरेक्टर्स good हैं?