## ----包括= false -------------------------------------------------------------------------------------------------------------库（道具）## ----结果= false -------------------------------------------------------------------------------------------数据（example_healthy）example_healthy [1：5,1：5] ## ----- echo = false，结果='asis'----------------------------------------------------------------------------------------------- kable（example_healthy [1：5,1：5]）## ----结果= false -----------------------------------------------------------------------------------------------------------------------------------数据（example_data）example_data [1：5,1：5] ## ----- echo = false，结果='asis'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------props_features <-props（example_healthy，example_data）props_features [1：5,1：5] ## -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- knitr::kable(props_features[1:5,1:5]) ## ----结果= false ------------------------------------------------------------------------------------------------ healthy_batches = c（rep（1，25），rep（2，25））dat_batches =c（rep（1，20），rep（2，30））props_features_batchcortected <-props（example_healthy，example_data，batch_correct = true，true，health_batches = healthy_batches，date_batches，dat_batches = dat_batches = dat_batches）--- echo = false，结果='asis'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------尼特尔:: kable（props_features_batchcorcrected [1：5,1：5]）## ----结果= false -----------------------------------------------------------------------------------------------------------------------------数据（example_edges）example_edges [1：8，]＃＃----- echo = false，结果='asis'------------------------------------------------------------------------------------------------------------------------------------------------------------- knitr::kable(example_edges[1:8, ]) ## ---- results = FALSE--------------------------------------------------------- props_features_userpathways <- props(example_healthy, example_data, pathway_edges = example_edges) props_features_userpathways[,1:5] ## ---- echo = FALSE, results='asis'-------------------------------------------- knitr::kable(props_features_userpathways[,1:5])