```r
ae = load_emuDB(path2ae, verbose = F)
i.sl = query(ae, "[Phonetic==i:]")

i.dft = get_trackdata(ae, i.sl, "fm", resultType = "tibble")

i.dft = i.dft%>%
  group_by(sl_rowIdx)%>%
  mutate(F2_smoothed = emuR::dct(T2,m=2,fit=T))

ggplot(i.dft)+
  aes(x=times_norm,y=T2,group=sl_rowIdx)+
  geom_line()+
  geom_line(aes(y=F2_smoothed,col="smoothed"))+
  ggtitle("Orig. (black) vs. smoothed (red) F2-tracks in /i:/")
```

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