Error in sum(x) : invalid 'type' (character) of argument

[nirgrahamuk]

I'm thinking you intend:

chisq.test(table(Group4_subset$Mood.Change), correct=FALSE)