infile ur using uryear.txt
generate tt = _n+1949
tsset tt, yearly
sum ur in 1/31
more
generate ursesh = r(mean)
local ii=2
while `ii'<=62{
quiet replace ursesh = 0.3*l.ur+0.7*l.ursesh in `ii'/`ii'
local ii = `ii'+1
}
tssmooth exponential urses = ur, parms(0.3)
list ur urses ursesh