Revert $theta -> @theta change

This change causes the following error:

> heatmapdmn(count, fit[[1]], fit[[4]])
Error in scale.default(fit, FALSE, mixturewt(object)@theta) : 
  trying to get slot "theta" from an object (class "data.frame") that is not an S4 object