In the section Joining tables together, the following code could be altered:
trans_cts_long <- full_join(trans_cts_long, sample_info, by = ("sample")) to trans_cts_long <- full_join(trans_cts_long, sample_info, by = "sample") to make it more consistent with the code further down.
In the section Joining tables together, the following code could be altered:
trans_cts_long <- full_join(trans_cts_long, sample_info, by = ("sample"))
totrans_cts_long <- full_join(trans_cts_long, sample_info, by = "sample")
to make it more consistent with the code further down.