R/grad.R

Defines functions grad

Documented in grad

grad <-
function(x,omega,l_period,n,freq,h){

 -colSums(kern(omega,h,freq)$v*as.vector((-1+exp(l_period-x[1]-t((t(freq)-omega))%*%x[2:3])))*cbind(rep(1,n),t((t(freq)-omega))))

}

Try the coloredICA package in your browser

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

coloredICA documentation built on May 1, 2019, 10:55 p.m.