powered by
get.slepians(npoints = 900, nwin = 5, npi = 3)
nwin <- 5 npi <- 3 npoints <- 900 sleps <- get.slepians(npoints, nwin, npi) matplot(sleps, type='l', xlab="Index", ylab="Taper Amplitude") legend('topleft', legend=1:nwin, lty=1:nwin, col=1:nwin)
Run the code above in your browser using DataLab