Nothing
`plotRatio.parGADA` <-
function(x, Sample, segments=FALSE, ...)
{
setwd(x)
load("SBL/gen.info.Rdata")
if (!segments)
{
load(paste("SBL/setupGADA",Sample,sep=""))
attr(temp, "gen.info")<- gen.info
plotlogRatio(temp, ...)
}
else
{
load(paste("SBL/segments",Sample,sep=""))
attr(step2, "gen.info")<- gen.info
plotRatio(step2, ...)
}
title(paste("Sample",Sample), line=-.5)
}
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.