Feature.MAX: Feature selection with MAX

In Bjerring/RISpackage2: RIS alpha

Usage

Feature.MAX(data, Cno)

Arguments

data
Cno

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 (data, Cno) 
{
    c <- cor.shrink(data, verbose = FALSE)
    d <- as.dist(1 - c)
    hc <- hclust(d, method = "ward")
    c.tree <- cutree(hc, k = Cno)
    assets <- rep(NA, max(c.tree))
    for (i in 1:(max(c.tree))) {
        i.data <- apply(data[(dim(data)[1] - 52):dim(data)[1], 
            which(c.tree == i)], 2, cumprod)
        trends <- rep(NA, length(i.data[1, ]))
        for (j in 1:(length(i.data[1, ]))) {
            trends[j] <- i.data[length(i.data[, j]), j]
        }
        assets[i] <- colnames(i.data)[which(max(trends) == trends)]
    }
    return(assets)
  }

Bjerring/RISpackage2 documentation built on May 6, 2019, 7:56 a.m.