用R写代码 library ffpp3 使用aus_accommodation数据集，对于每个州，拟合一个动态回归模型的消费物价指数调整的收入与季节性虚拟变量，一个分段线性时间趋势与一个节点在2008年Q1的ARIMA误差。用R写成代码并展示代码

library(ffpp3)# Fit a dynamic regression model for each state, with the CPI-adjusted income and seasonal dummy variables, a segmented linear time trend, and an ARIMA error term at the node in 2008Q1
ffpp3(aus_accommodation,
CPI.adj.income ~ dummy_season + time_trend(linear_segmented),
ARIMA.error~2008Q1)