# NOT RUN {
myCounts <- prep_counts(count_input="master_count_data.txt", delim="t")
myTargets <- prep_targets(target_input="master_count_data.txt", delim="t")
#Get data for only "timepoint" at "day1".
data_subset <- exclude_data_subset(counts=myCounts, targets=myTargets,
target_count_id_map="sample_id",
target_exclude_col="timepoint",
target_exclude_val="day1")
#Count data is stored in the first index returned by the function.
subset_counts <- data_subset[[1]]
#Target data is stored in the second index returned by the function.
subset_targets <- data_subset[[2]]
#Get data for only "timepoint" at "day1" and "day2".
data_subset <- exclude_data_subset(counts=myCounts, targets=myTargets,
target_count_id_map="sample_id",
target_exclude_col="timepoint",
target_exclude_val=c("day1","day2"))
#Count data is stored in the first index returned by the function.
subset_counts <- data_subset[[1]]
#Target data is stored in the second index returned by the function.
subset_targets <- data_subset[[2]]
# }
Run the code above in your browser using DataLab