From 4a1418087837d855dfd06673497347bde40272b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=B6k=C3=A7en=20Eraslan?= <gokcen.eraslan@gmail.com>
Date: Mon, 10 Feb 2014 19:00:12 +0200
Subject: [PATCH] Revert $theta -> @theta change

---
 R/dmn.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/dmn.R b/R/dmn.R
index 9725f4a..98755c2 100644
--- a/R/dmn.R
+++ b/R/dmn.R
@@ -65,7 +65,7 @@ mixturewt <-
 {
     fit <- object@fit$Estimate
     if (scale)
-        fit <- scale(fit, FALSE, mixturewt(object)@theta)
+        fit <- scale(fit, FALSE, mixturewt(object)$theta)
     fit
 }