if (FALSE) { # rlang::is_installed("TreeSummarizedExperiment")
library(TreeSummarizedExperiment)
fakeOTU = t(rTensor::k_unfold(rTensor::as.tensor(Fujita2023$data), 2)@data)
fakeTaxa = as.matrix(Fujita2023$mode2)
fakeSam = as.data.frame(cbind(rep(1:8, 110), rep(1:110, each=8)))
colnames(fakeSam) = c("replicate.id", "timepoint")
fakeTreeObj = TreeSummarizedExperiment(assays = list(Count = fakeOTU),
rowData = fakeSam,
colData = fakeTaxa)
dataset = importTreeSummarizedExperiment(fakeTreeObj,
subjectIDs="replicate.id",
thirdMode="timepoint",
taxa_are_rows=FALSE)
}
Run the code above in your browser using DataLab