S&P500 forecast after 2017 Nov. jobs report.

> my_sp5(kg,m_GDP,m_PA,m_UC)
[1] "m_m params! apply.quarter - UC w/ nominal GDP"
               [,1]
2018-01-01 2553.472
2018-04-01 2606.021
2018-07-01 2660.625
2018-10-01 2717.719
2019-01-01 2777.573
> head(m_PA,n=6)
               [,1]
2018-01-01 147599.0
2018-04-01 148108.1
2018-07-01 148578.3
2018-10-01 149020.6
2019-01-01 149443.0
2019-04-01 149851.1
> last(UC)
           UNDCONTSA
2017-10-01      1096
> head(m_UC,n=6)
               [,1]
2018-01-01 1119.792
2018-04-01 1138.671
2018-07-01 1153.191
2018-10-01 1164.359
2019-01-01 1172.948
2019-04-01 1179.555