Half-Vectorize
vech(x, ...)
# S3 method for default
vech(x, ...)If yac_symbol treat as such, else call vech.default().
further arguments passed to vech.default()
A <- mtcars[, c(1, 3, 4, 5, 6, 7)]
x <- cov(A)
vech(x)
#> [1] 3.632410e+01 -6.330972e+02 -3.207321e+02 2.195064e+00 -5.116685e+00
#> [6] 4.509149e+00 1.536080e+04 6.721159e+03 -4.706402e+01 1.076842e+02
#> [11] -9.605168e+01 4.700867e+03 -1.645111e+01 4.419266e+01 -8.677008e+01
#> [16] 2.858814e-01 -3.727207e-01 8.714073e-02 9.573790e-01 -3.054816e-01
#> [21] 3.193166e+00
vech(ysym(x))
#> {36.3241028225806, -0.6330972076e3, -0.3207320564e3, 2.19506350806452, -5.1166846774, 4.50914919354838, 15360.799828629, 6721.15866935484, -0.4706401915e2, 107.684204032258, -0.9605168145e2, 4700.86693548387, -0.1645110887e2, 44.1926612903226, -0.8677008064e2, 0.285881350806452, -0.3727207258, 0.0871407258064515, 0.957378967741936, -0.3054816129, 3.19316612903226}