## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", message = FALSE, warning = FALSE ) ## ----load_libraries----------------------------------------------------------- # load libraries library(target) ## ----load data---------------------------------------------------------------- # load data data("sim_peaks") data("sim_transcripts") ## ----define_function---------------------------------------------------------- # source the plotting function source(system.file('extdata', 'plot-profiles.R', package = 'target')) ## ----cooperative_example,fig.align='center',fig.width=7, fig.height=6--------- # simulate and plot cooperative factors plot_profiles(sim_peaks, sim_transcripts, n = 5000, change = c(3, 3)) ## ----competitive_example,fig.align='center',fig.width=7, fig.height=6--------- # simulate and plot competitve factors plot_profiles(sim_peaks, sim_transcripts, n = 5000, change = c(3, -3)) ## ----session_info------------------------------------------------------------- sessionInfo()