SwingEffectsr,t=timeadj*𝐬𝐰𝐢𝐧𝐠𝐬𝐭𝐬𝐝𝐞𝐦r=Swinger,p=1*(WDemoct−1−DEMOCPOLITYr=Swingee,t−1+timadj*𝐬𝐰𝐢𝐧𝐠𝐬𝐭𝐝𝐞m𝐫=𝐒𝐰𝐢𝐧𝐠𝐞𝐫,𝐩=𝟐*(DEMOCPOLITYr=Swinger,t−1−DEMOCPOLITYr=Swingee,t−1)+timadj*𝐬𝐰𝐢𝐧𝐠𝐬𝐭𝐝𝐞m𝐫=𝐒𝐰𝐢𝐧𝐠𝐞𝐫,𝐩=𝟑*(RgDemoc−DEMOCPOLITYr=Swingee,t−1)
where timeadj=.2
WDemoct−1=∑RDEMOCPOLITYr,t−1R
else
SwingEffectsr,t=0