R/initialize_findA.R

In krashkov/pcSteiner: Convenient Tool for Solving the Prize-Collecting Steiner Tree Problem

initialize_findA <- function (depth, size) {

        findA <- new.env()

        findA$values      <- list()
        findA$values[[1]] <- rep(-Inf, size)

        for (i in 2:depth) {
                findA$values[[i]] <- rep(-Inf, size)
        }

        return (findA)
}