Nothing
normalizeqntadd <- function(abo,qnt.scale){
###############################################
x = affy::pm(abo)
ord = sort.list(x)
pm(abo) = qnt.scale[sort.list(ord)]
return(abo)
}
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.