powered by
kaiserWin(fh,fl,tw,sf,d.sa,d.pbr,type)
kais<-kaiserWin(fl=.08,tw=.025,sf=1/2.16,d.sa=70,d.pbr=.1,type="low") par(mfrow=c(2,1)) ts.plot(kais,main="Low Pass Kaiser Window") rawPeriodogram(kais,1/2.16)
Run the code above in your browser using DataLab