Nothing
plot_up <-
function(N, eset_up, cells_type,fontsize){
probes <- 1:N
plot(
as.numeric(as.character(pData(featureData(eset_up))[probes,"Numbre_up"])),
as.numeric(as.character(pData(featureData(eset_up))[probes,"Delta_median_up"])),
cex=(1/(0.1+as.numeric(as.character(pData(featureData(eset_up))[probes,"IQR_up"])))),
pch=21,
main = c("Over-expression in :",cells_type),
xlab = "Number of samples in the sub-population over-expressing the gene",
ylab = "Difference of expression between median of the sub-population and the maximum of CTRL samples"
)
text(
as.numeric(as.character(pData(featureData(eset_up))[probes,"Numbre_up"])),
as.numeric(as.character(pData(featureData(eset_up))[probes,"Delta_median_up"])),
as.character(pData(featureData(eset_up))[probes,"Gene.Symbol"]),
pos=2,
cex=fontsize
)
}
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.