## These examples require the installation of python modules
## See installation instruction at: http://mixkernel.clementine.wf
data("Koren.16S")
if (FALSE) {
sf.res <- select.features(Koren.16S$data.raw, kx.func = "bray", lambda = 1,
keepX = 40, nstep = 1)
colnames(Koren.16S$data.raw)[sf.res]
}
data("nutrimouse")
if (FALSE) {
grb.func <- "gaussian.radial.basis"
genes <- center.scale(nutrimouse$gene)
lipids <- center.scale(nutrimouse$lipid)
sf.res <- select.features(genes, lipids, kx.func = grb.func,
ky.func = grb.func, keepX = 40)
colnames(nutrimouse$gene)[sf.res]
}
Run the code above in your browser using DataLab