format.subsets: format subsets

In aasrinivasan/hleaps: Hierarchy Supporting Ordinary Least Squares

Description

Formats the selected subsets for alternative output.

Usage

format.subsets(sdf)

Arguments

sdf

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (sdf) 
{
    numRow <- nrow(sdf)
    numCol <- ncol(sdf)
    numDCol <- numCol%/%5
    if ((numCol%%5) > 0) 
        numDCol <- numDCol + 1
    sd <- data.frame(c(1:numRow))[, -1]
    row <- 1
    while (row <= numRow) {
        col <- 1
        dCol <- 1
        while (col <= numCol) {
            if ((col + 4) < numCol) {
                endCol <- col + 4
            }
            else {
                endCol <- numCol
            }
            sd[row, dCol] <- paste(paste(ifelse(sdf[row, col:endCol] == 
                TRUE, "T", ".")), collapse = "")
            col <- col + 5
            dCol <- dCol + 1
        }
        row <- row + 1
    }
    col <- 1
    dCol <- 1
    sdNames <- c(1)
    while (col <= numCol) {
        if ((col + 4) < numCol) {
            endCol <- col + 4
        }
        else {
            endCol <- numCol
        }
        this.name <- c(seq(col + 1, endCol))
        this.index <- this.name[1]%/%10
        this.name <- this.name%%10
        sdNames[dCol] <- paste(col, endCol, sep = "-")
        col <- col + 5
        dCol <- dCol + 1
    }
    names(sd) <- sdNames
    sd
  }

aasrinivasan/hleaps documentation built on May 10, 2019, 4:05 a.m.