# smoothing 

par(mfrow=c(1,2))
spectrum(lh)


lh.Frequency.6<-ts(as.vector(lh),start=1,frequency=6)
spectrum(lh.Frequency.6) 

par(mfrow=c(1,3))
spectrum(lh, spans=3)
spectrum(lh, spans=c(3,3)) 
spectrum(lh, spans=c(3,5)) 



par(mfrow=c(1,3))
spectrum(lh.Frequency.6, spans=3)
spectrum(lh.Frequency.6, spans=c(3,3)) 
spectrum(lh.Frequency.6, spans=c(3,5)) 



spectrum(ldeaths) 

par(mfrow=c(1,3))
spectrum(ldeaths, spans=3)
spectrum(ldeaths, spans=c(3,3)) 
spectrum(ldeaths, spans=c(3,5))