GDPDeflator2023=INTERPOLATE_VALUE(GDPDEF,20230101)
GDPDeflator2024=INTERPOLATE_VALUE(GDPDEF,20240101)
GDPDeflatorGrowth=LOG(GDPDeflator2024/GDPDeflator2023)

WAHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"WA")
WAIncome=LOOP_US_COUNTY(PCPI##,"WA")
WAListings=LOOP_US_COUNTY(TOTLISCOU##,"WA")
WARealGDP=LOOP_US_COUNTY(REALGDPALL##,"WA")

ORHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"OR")
ORIncome=LOOP_US_COUNTY(PCPI##,"OR")
ORListings=LOOP_US_COUNTY(TOTLISCOU##,"OR")
ORRealGDP=LOOP_US_COUNTY(REALGDPALL##,"OR")

IDHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"ID")
IDIncome=LOOP_US_COUNTY(PCPI##,"ID")
IDListings=LOOP_US_COUNTY(TOTLISCOU##,"ID")
IDRealGDP=LOOP_US_COUNTY(REALGDPALL##,"ID")

TXHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"TX")
TXIncome=LOOP_US_COUNTY(PCPI##,"TX")
TXListings=LOOP_US_COUNTY(TOTLISCOU##,"TX")
TXRealGDP=LOOP_US_COUNTY(REALGDPALL##,"TX")

NYHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"NY")
NYIncome=LOOP_US_COUNTY(PCPI##,"NY")
NYListings=LOOP_US_COUNTY(TOTLISCOU##,"NY")
NYRealGDP=LOOP_US_COUNTY(REALGDPALL##,"NY")

ILHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"IL")
ILIncome=LOOP_US_COUNTY(PCPI##,"IL")
ILListings=LOOP_US_COUNTY(TOTLISCOU##,"IL")
ILRealGDP=LOOP_US_COUNTY(REALGDPALL##,"IL")

MDHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"MD")
MDIncome=LOOP_US_COUNTY(PCPI##,"MD")
MDListings=LOOP_US_COUNTY(TOTLISCOU##,"MD")
MDRealGDP=LOOP_US_COUNTY(REALGDPALL##,"MD")

WVHousePrice=LOOP_US_COUNTY(ATNHPIUS##A,"WV")
WVIncome=LOOP_US_COUNTY(PCPI##,"WV")
WVListings=LOOP_US_COUNTY(TOTLISCOU##,"WV")
WVRealGDP=LOOP_US_COUNTY(REALGDPALL##,"WV")

HousePrice=LIST(WAHousePrice,ORHousePrice,IDHousePrice,TXHousePrice,NYHousePrice,ILHousePrice,MDHousePrice,WVHousePrice)
PersonalIncome=LIST(WAIncome,ORIncome,IDIncome,TXIncome,NYIncome,ILIncome,MDIncome,WVIncome)
Listings=LIST(WAListings,ORListings,IDListings,TXListings,NYListings,ILListings,MDListings,WVListings)
RealGDP=LIST(WARealGDP,ORRealGDP,IDRealGDP,TXRealGDP,NYRealGDP,ILRealGDP,MDRealGDP,WVRealGDP)

HousePriceGrowth=LOGDIFF(HousePrice)
PersonalIncomeGrowth=LOGDIFF(PersonalIncome)
AnnualListings=TO_ANNUAL(Listings)
ListingGrowth=LOGDIFF(AnnualListings)
RealGDPGrowth=LOGDIFF(RealGDP)
NominalGDPGrowth=RealGDPGrowth+GDPDeflatorGrowth

Aligned=ALIGN_FIPS(HousePriceGrowth,PersonalIncomeGrowth,ListingGrowth,NominalGDPGrowth)
C=CROSS_SECTION(Aligned,20240101)

StateHousePrice=LOOP_STATE2($$STHPI)
StateHousePriceGrowth=LOGDIFF(StateHousePrice)
StateHousePriceHistory=SERIES_BETWEEN(StateHousePriceGrowth,19750101,20231231)

StatePCAnalysis=PC_ANALYSIS(StateHousePriceHistory)
SLIDESHOW(StatePCAnalysis)

CPCA=STATE_PCA_EFFECTS(C,StateHousePriceHistory,3,"State House-Price Dynamics")
SLIDESHOW(CPCA)