Nothing
### R code from vignette source 'FeaLect_feature_scorer.Rnw'
###################################################
### code chunk number 1: FeaLect_example
###################################################
library(FeaLect)
data(mcl_sll)
F <- as.matrix(mcl_sll[ ,-1]) # The Feature matrix
L <- as.numeric(mcl_sll[ ,1]) # The labels
names(L) <- rownames(F)
message(dim(F)[1], " samples and ",dim(F)[2], " features.")
FeaLect.result <-FeaLect(F=F,L=L,maximum.features.num=10,
total.num.of.models=100, talk=TRUE)
###################################################
### code chunk number 2: FeaLect_example
###################################################
plot(FeaLect.result$log.scores, pch=19)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.