R/G0.R

In Hanchao-Zhang/ProDenICA: Product Density Estimation for ICA using tilted Gaussian density estimates

Defines functions G0

Documented in G0

G0 <-
function(s,a=1)
### kurtosos negentropy
list(Gs = (s^4)/4, gs = s^3, gps = 3 * s^2)