my_data <- data.frame(
clone_seq = c("ATCG", rep("ACAC", 2), rep("GGGG", 4)),
clone_count = rep(1, 7),
clone_freq = rep(1/7, 7),
time_point = c("t_0", rep(c("t_0", "t_1"), 3)),
subject_id = c(rep(1, 5), rep(2, 2))
)
my_data
aggregateIdenticalClones(
my_data,
"clone_seq",
"clone_count",
"clone_freq",
)
# group clones by time point
aggregateIdenticalClones(
my_data,
"clone_seq",
"clone_count",
"clone_freq",
grouping_cols = "time_point"
)
# group clones by subject ID
aggregateIdenticalClones(
my_data,
"clone_seq",
"clone_count",
"clone_freq",
grouping_cols = "subject_id"
)
# group clones by time point and subject ID
aggregateIdenticalClones(
my_data,
"clone_seq",
"clone_count",
"clone_freq",
grouping_cols =
c("subject_id", "time_point")
)
Run the code above in your browser using DataLab