data(lung)
GenesExpression <- lung[1:12533,] #define the features matrix
Class <- lung[12534,] #define the observations' class labels
CoreIntervals <- CI.emprical(GenesExpression, Class)
CoreIntervals[1:10,] #show classes' core interval for the first 10 features
Run the code above in your browser using DataLab