```r
#plot k2 (the curvature):
ggplot(sS.dctCoefficients) +
  aes(x = labels, y = k2) +
  geom_boxplot()
```

<img src="SpectralAnalysis_files/figure-html/unnamed-chunk-22-1.png" width="480" style="display: block; margin: auto;" />