if (FALSE) {
# `sahmi_datasets` should be the output of all samples from `prep_dataset()`
slsd <- slsd(lapply(sahmi_datasets, `[[`, "kreport"))
real_taxids_slsd <- slsd$filter(
pl$col("r1")$gt(0),
pl$col("r2")$gt(0),
pl$col("r3")$gt(0),
pl$col("p1")$lt(0.05),
pl$col("p2")$lt(0.05),
pl$col("p3")$lt(0.05)
)$get_column("taxid")
}
Run the code above in your browser using DataLab