do_stats <- compute_stats(add_dropout_idx(dropRdemo, 3:54),
by_cond = "experimental_condition",
no_of_vars = 52)
ks <- do_ks(do_stats, 52)
plot_do_ks(do_stats, ks, color_palette = "gray")
# ... or call the do_ks() function directly inside the plotting function
plot_do_ks(do_stats, do_ks(do_stats, 30))
plot_do_ks(do_stats, ks, linetypes = TRUE,
show_confbands = TRUE, color_palette = c("red", "violet"))
Run the code above in your browser using DataLab