Nothing
library(jointseg)
## Load original data
dat <- loadCnRegionData(tumorFraction=1, dataSet="GSE29172")
## Length of simulated profile
n <- 100000
## Profile generation
sim <- getCopyNumberDataByResampling(n, 50, minLength=100, regData=dat)
plotSeg(sim$profile, sim$bkp)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.