Separate a flattened DCT coefficient vector into its An and Bn components.
See also
dct() to generate coefficients
Examples
# Create coefficient vector
data(olea)
coefs <- dct(olea$VD[[1]], nb_h = 12)
dct_split(coefs)
#> $an
#> A1 A2 A3 A4 A5 A6
#> -3.11820730 -0.13206715 -0.24781390 -0.09660325 -0.06788311 -0.06691169
#> A7 A8 A9 A10 A11 A12
#> -0.03519719 -0.06016120 -0.02071002 -0.06544994 -0.01169704 -0.06810722
#>
#> $bn
#> B1 B2 B3 B4 B5 B6
#> 0.032926049 -0.914830858 0.005334948 -0.268975696 -0.006644877 -0.101625518
#> B7 B8 B9 B10 B11 B12
#> 0.003834764 -0.049467452 0.003042230 -0.028964333 -0.002260202 -0.022833346
#>
