R/fourierscore.R

Defines functions fourierscore

Documented in fourierscore

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)
}

Try the cycle package in your browser

Any scripts or data that you put into this service are public.

cycle documentation built on Nov. 8, 2020, 8:31 p.m.