dummy_euc_GR_treated <- GRanges(seqnames="DummyRNA",
IRanges(start=round(runif(100)*100),
width=round(runif(100)*100+1)), strand="+",
EUC=round(runif(100)*100))
dummy_comp_GR_treated <- comp(dummy_euc_GR_treated)
dummy_swinsor <- swinsor(dummy_comp_GR_treated)
plotRNA(dummy_swinsor, RNAid="DummyRNA")
Run the code above in your browser using DataLab