Question:

How large is your sample?

Calculate the Chi$-$square value and p$-$value manually.

Ad$.$ data$=$rbind$("$Student$"=c(12,5,6),$

"Parent" $=c(7,15,7),$

"Corporate" $=c(5,5,14)$

colnames $($Ad$.$data$)=$c$("$Party$",$ "Child", "Office"$)$

# look at Ad$.$ data

print$($Ad$.$data$)$

$\backslash$table$[[,$Party,Child,Office$],[$## Studerit,$12,5,6],[$## Parent,$7,15,7],[$## Corporate,$5,5,14]]$

# Empty dataframe

expDat data.frame$()$

# Loop that makes $i=1,$ then $i=2,$ then $i=3$

for $($i in $1$:$3)\{$

# Makes row i and column $1$ into the expected value

expDat rowSums $($Ad$.$data$)[$i$]*-$colSums$($Ad$.$data$)[1])/$ sum$($Ad$.$data$)$

# Makes row i and colum $1$ into the expected value

rowSums $($Ad$.$data$)$ Ad$.$data$)[2]$ sum$($Ad$.$data$)$

#Add a line that calculates the third column values.