--- a
+++ b/partyMod/R/Memory.R
@@ -0,0 +1,40 @@
+
+# $Id$
+
+ctree_memory <- function(object, MPinv = FALSE) {
+
+    inputs <- object@inputs
+    responses <- object@responses
+    q <- ncol(responses@test_trafo)
+    nobs <- inputs@nobs
+    ninputs <- inputs@ninputs
+    RET <- new("TreeFitMemory")
+    expcovinf <- new("ExpectCovarInfluence", q)
+    expcovinfss <- new("ExpectCovarInfluence", as.integer(1))
+    linexpcov2sample  <- new("LinStatExpectCovar", as.integer(1), q) 
+    splitstatistics <- as.double(rep(0, nobs))
+    varmemory <- vector(mode = "list", length = ninputs)
+    dontuse <- rep(FALSE, ninputs)
+    dontusetmp <- rep(FALSE, ninputs)
+
+    for (j in 1:inputs@ninputs) {
+
+        p <- ncol(inputs@transformations[[j]])
+
+        if (MPinv) {
+            varmemory[[j]] <- new("LinStatExpectCovarMPinv", p, q)
+        } else {
+            varmemory[[j]] <- new("LinStatExpectCovar", p, q)
+        }
+    }
+
+    RET@expcovinf <- expcovinf
+    RET@expcovinfss <- expcovinfss
+    RET@linexpcov2sample  <- linexpcov2sample
+    RET@weights <- as.double(rep(0, nobs))
+    RET@varmemory <- varmemory
+    RET@dontuse <- as.logical(dontuse)
+    RET@dontusetmp <- as.logical(dontusetmp)
+    RET@splitstatistics <- splitstatistics
+    RET
+}