(tab  <-  as.table(c("CC"=33, "CD"=40, "DC"=50, "DD"=100))  )
 CC  CD  DC  DD
 33  40  50 100
  chisq.test(tab)

    Chi-squared test for given probabilities

data:  tab
X-squared = 49.448, df = 3, p-value = 1.047e-10