# NOT RUN {
data(microarray)
profiles <- as.matrix(microarray[, -2309])
tumourType <- microarray[, 2309]
margRelv <- marginalRelevance(profiles, tumourType)
# plot 30 gene profiles with highest marginal relevance score
plot(margRelv, type = "parallelcoord", n.feat = 50, col = tumourType )
# }
# NOT RUN {
# another example: wine data from gclus
library(gclus)
data(wine)
dt <- as.matrix(wine[, -1])
colnames(dt) <- names(wine[, -1])
label <- as.factor(wine[, 1])
margRelv <- marginalRelevance(dt, label)
#variables in order of their MR score
colnames(dt)[ margRelv$bestVars]
cparcoord(dt, order = margRelv$bestVars, col = label)
cpairs(dt, order = margRelv$bestVars, col = label)
# }
Run the code above in your browser using DataLab