polarolouis/human-microbiome-compendium
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix save path

Browse source
This commit is contained in:
Louis 2026-02-23 14:07:18 +01:00
parent 4d5415bbf4
commit a8bdeecb3a
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
blockmodels_correct_sampling_effort.R
View file

@ -26,6 +26,10 @@ message("At level: ", level, " starting at: ", epoch)
save_path <- here("results", "seq-effort", paste0(author, "_", level, "_", epoch, ".Rds"))
if (!dir.exists(save_path)) {
dir.create(save_path, recursive = TRUE)
}
per_taxa_networks <- collapse_otu_at_taxo(the_data)
covar_mat <- t(colSums(per_taxa_networks[[level]]) %*% t(rep(1, nrow(per_taxa_networks[[level]]))))