dc <- create_syn_data_toy()
ccr <- cocoreg(dc$data)
ggplot_dflst(dc$data, ncol=1)
ggplot_dflst(ccr$data, ncol=1)
## Not run: ------------------------------------
# ggplot_dclst(list(orig = dc$data, ccr = ccr$data))
# ggplot_dclst(list(orig = dc$data, shared = ccr$data), legendMode = 'none')
# ggplot_dclst(list(orig = dc$data, ccr = ccr$data), legendMode = 'all')
## ---------------------------------------------
Run the code above in your browser using DataLab