Hardcoded row selection in Multi-omics Integration chapter

[artur-sannikov]

Currently, the selection of rows for Intermediate Fusion algorithm is hardcoded. A better solution would be to select indices based on FeatureType.

pathways_ind <- which(feature_metadata$featureType == "Pathways")
species_ind <- which(feature_metadata$featureType == "Species")

dataList[[1]] <- t(feature_table[pathways_ind, ])
dataList[[2]] <- t(feature_table[species_ind, ])

It's more robust to changes in the number of rows.