Description Usage Arguments Details Value Author(s) Examples
Ranks features by largest Kullback-Leibler distance and chooses the features which have best resubstitution performance.
1 2 3 4 5 6 7 8 | ## S4 method for signature 'matrix'
KullbackLeiblerSelection(measurements, classes, ...)
## S4 method for signature 'DataFrame'
KullbackLeiblerSelection(measurements, classes, datasetName,
trainParams, predictParams, resubstituteParams, ...,
selectionName = "Kullback-Leibler Divergence", verbose = 3)
## S4 method for signature 'MultiAssayExperiment'
KullbackLeiblerSelection(measurements, targets = names(measurements), ...)
|
measurements |
Either a |
classes |
Either a vector of class labels of class |
targets |
If |
... |
Variables not used by the |
datasetName |
A name for the data set used. Stored in the result. |
trainParams |
A container of class |
predictParams |
A container of class |
resubstituteParams |
An object of class |
selectionName |
A name to identify this selection method by. Stored in the result. |
verbose |
Default: 3. A number between 0 and 3 for the amount of progress messages to give. This function only prints progress messages if the value is 3. |
The distance is defined as 0.5 * ((location1 - location2)^2 / scale1^2 + (location1 - location2)^2 / scale2^2 + scale1^2 / scale2^2 + scale2^2 / scale1^2)
The subscripts denote the group which the parameter is calculated for.
Data tables which consist entirely of non-numeric data cannot be analysed. If measurements
is an object of class MultiAssayExperiment, the factor of sample classes must be stored
in the DataFrame accessible by the colData function with column name "class".
An object of class SelectResult or a list of such objects, if the classifier which was
used for determining the specified performance metric made a number of prediction varieties.
Dario Strbenac
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # First 20 features have bimodal distribution for Poor class.
# Other 80 features have normal distribution for both classes.
genesMatrix <- sapply(1:25, function(sample)
{
randomMeans <- sample(c(8, 12), 20, replace = TRUE)
c(rnorm(20, randomMeans, 1), rnorm(80, 10, 1))
}
)
genesMatrix <- cbind(genesMatrix, sapply(1:25, function(sample) rnorm(100, 10, 1)))
classes <- factor(rep(c("Poor", "Good"), each = 25))
resubstituteParams <- ResubstituteParams(nFeatures = seq(5, 25, 5),
performanceType = "balanced error",
better = "lower")
KullbackLeiblerSelection(genesMatrix, classes, "Example",
trainParams = TrainParams(naiveBayesKernel),
predictParams = PredictParams(NULL),
resubstituteParams = resubstituteParams
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.