# Test for homogeneity of multinomial proportions.
# 67 male and 67 female university sports participants
# were asked about their reasons for being involved in
# sports.
#         HH: high social comparison/high mastery
#         HL: high social comparison/low mastery, etc.

X1=c(14,7,21,25)
X2=c(31,18,5,13)

# Stack X1 and X2 as rows in a matrix.
M=rbind(X1,X2)

chisq.test(M)