data <- matrix(
c(1, 2, 10, 12,
3, 4, 14, 16),
nrow = 2,
dimnames = list(c("x1", "x2"), c("s1", "s2", "s3", "s4"))
)
metadata <- data.frame(
class = factor(c("A", "A", "B", "B")),
batch = c(1, 1, 2, 2),
row.names = c("s1", "s2", "s3", "s4")
)
dataset <- list(
data = data,
metadata = metadata,
labels = list(),
type = "example",
description = "toy dataset"
)
aggregate_samples(dataset, c(1, 1, 2, 2), "mean")
Run the code above in your browser using DataLab