## Not run: ------------------------------------
# dc <- create_syn_data_toy()
# ldSharedByAll = variation_shared_by(dc, "all", center = F)
# ldSharedBySome = variation_shared_by(dc, "subset", center = F)
# ldNonUnique = variation_shared_by(dc, "all_and_subset", center = F)
# dNoise <- mapply(function(x,y){x-y}, x=dc$data, y=ldNonUnique, SIMPLIFY = F)
# ggplot_dclst(list(observed = dc$data,
# shared.by.all = ldSharedByAll,
# shared.by.some = ldSharedBySome,
# noise = dNoise),
# ylim = c(-3, 3))
## ---------------------------------------------
Run the code above in your browser using DataLab