R/module.R

Defines functions module

module <-
function(beta, gamma){
  c=max(c(abs(mean(beta)),abs(mean(gamma))))
  d=min(c(abs(mean(beta)),abs(mean(gamma))))
  q=d/c
  amp=c*sqrt(1+q*q)
  return(amp)
}

Try the CATkit package in your browser

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

CATkit documentation built on May 2, 2019, 2:31 p.m.