IIScore <- IIS(microApath = micro.eg, metaApath = metabo.eg,
conf = confounder.eg, groupInfo = groupInfo.eg)
MMfunc_res <- MMfunc(IIS = IIScore)
TarNet_res <- TarNet(IIS = IIScore, mm2path = MMfunc_res)
IPScore <- IPS(TarnetPairs = TarNet_res,IIS = IIScore)
Run the code above in your browser using DataLab