# NOT RUN {
wns = c('bartlett', 'blackman', 'flattop', 'hamming', 'hanning', 'rectangle', 'gaussian')
l = 200
par(mfrow = c(4, 2))
for (w in wns) {
plot(1:l, soundgen:::ftwindow_modif(wl = l, wn = w), type = 'b', main = w)
}
par(mfrow = c(1, 1))
# }
Run the code above in your browser using DataLab