Nothing
fourierscore <-
function(eset, T, times=seq_len(ncol(eset)))
{
et <- t(exprs(eset))
p <- 2 * pi / T * times
sqrt(colSums(cos(p) * et) ^ 2 + colSums(sin(p) * et) ^ 2)
}
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.