Created extract subroutine

-Subroutine take the place of #TCGA_hier, TCGA_NMF and marchini