correct.range <-
function(ff) {
parameters(ff)$minRange <- apply(exprs(ff),2,min)
parameters(ff)$maxRange <- apply(exprs(ff),2,max)
return(ff)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.