# $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

}