Feature.AR: Feature selection with Median

In Bjerring/rispackage4: RIS alpha

Usage

Feature.AR(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 <- data[, which(c.tree == i)]
        trends <- apply(i.data, 2, mean)
        assets[i] <- colnames(i.data)[which(max(trends) == trends)]
    }
    return(assets)
  }

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