# NOT RUN {
library(dplyr)
data(actg315raw)
actg315 <- actg315raw %>%
mutate(vl = 10^log10.RNA.) %>%
select(id = Patid, time = Day, vl)
print(head(actg315))
# }
# NOT RUN {
plot_data(actg315, detection_threshold = 100)
# }
Run the code above in your browser using DataCamp Workspace