'c' and 'a' G-spline coefficients are related by the expression
$$c_j = \frac{\exp(a_j)}{\sum_{l=1}^{g}\exp(a_l)}, j = 1,\dots, g,$$
where \(a_k = 0,\) k = which.zero.
This function transforms the 'c' coefficients into their 'a' counterparts.
ccoef <- c(0.1, 0.2, 0.15, 0.3, 0.25)
### Compute 'a' counterpartsacoef <- c2a(ccoef, 1)
print(acoef)
### And back 'c', ccoef2 should be same as ccoefccoef2 <- a2c(acoef)
print(ccoef2)