【正文】 par(mfcol=c(1,2),cex=) plot(fujian[,2],xlab=時間,ylab=地方財政收入合計,type=n) grid(col=lightblue) points(fujian[,2],type=o,xlab=時間,ylab=地方財政收入合計) plot(fujian[,3],xlab=時間,ylab=增值稅,type=n) grid(col=lightblue) points(fujian[,3],type=o,xlab=時間,ylab=增值稅) plot(fujian[,4],xlab=時間,ylab=營業(yè)稅,type=n) grid(col=lightblue) points(fujian[,4],type=o,xlab=時間,ylab=營業(yè)稅) plot(fujian[,5],xlab=時間,ylab=企業(yè)所得稅,type=n) grid(col=lightblue) points(fujian[,5],type=o,xlab=時間,ylab=企業(yè)所得稅) plot(fujian[,6],xlab=時間,ylab=房產(chǎn)稅,type=n) grid(col=lightblue) points(fujian[,6],type=o,xlab=時間,ylab=房產(chǎn)稅) plot(fujian[,7],xlab=時間,ylab=印花稅,type=n) grid(col=lightblue) points(fujian[,7],type=o,xlab=時間,ylab=印花稅) plot(fujian[,8],xlab=時間,ylab=公共財政收入,type=n) grid(col=lightblue) points(fujian[,8],type=o,xlab=時間,ylab=公共財政收入) fujian=ts(fujian,start=1999) dfczzchjforecast=HoltWinters(fujian[,2],beta=FALSE,gamma=FALSE) dfczsrhjforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 2], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients: [,1]a 20880968 zzsforecast=HoltWinters(fujian[,3],beta=FALSE,gamma=FALSE) zzsforecastHoltWinters exponential smoothing without trend and without seasonal 泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 15 頁，共 34 頁ponent.Call:HoltWinters(x = fujian[, 3], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients: [,1]a 2215998 yysforecast=HoltWinters(fujian[,4],beta=FALSE,gamma=FALSE) yysforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 4], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients: [,1]a 1623526 qysdsforecast=HoltWinters(fujian[,4],beta=FALSE,gamma=FALSE) qysdsforecast=HoltWinters(fujian[,5],beta=FALSE,gamma=FALSE) qysdsforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 5], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients:泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 16 頁，共 34 頁 [,1]a 1155919 fcsforecast=HoltWinters(fujian[,4],beta=FALSE,gamma=FALSE) fcsforecast=HoltWinters(fujian[,6],beta=FALSE,gamma=FALSE) fcsforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 6], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients: [,1]a yhsforecast=HoltWinters(fujian[,7],beta=FALSE,gamma=FALSE) yhsforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 7], beta = FALSE, gamma = FALSE)Smoothing parameters: alpha: beta : FALSE gamma: FALSECoefficients: [,1]a ggczsrforecast=HoltWinters(fujian[,8],beta=FALSE,gamma=FALSE) ggczsrforecastHoltWinters exponential smoothing without trend and without seasonal ponent.Call:HoltWinters(x = fujian[, 8], beta = FALSE, gamma = FALSE)Smoothing parameters:泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 17 頁，共 34 頁 alpha: beta : FALSE gamma: FALSECoefficients: [,1]a 11418015 dfczsrhjforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 1881388 18813882022 2199052 21990522022 2719016 27190162022 2690986 26909862022 3005450 30054502022 3384447 33844472022 4088489 40884892022 4767177 47671772022 8389636 83896362022 8431397 84313972022 11076438 110764382022 13991379 139913792022 15351278 153512782022 15796768 15796768 zzsforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 18 頁，共 34 頁2022 2022 2022 2022 yysforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 qysdsforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 19 頁，共 34 頁 fcsforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 yhsforecast$fittedTime Series:Start = 2022 End = 2022 Frequency = 1 xhat level2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 2022 ggczsrforecast$fittedTime Series:Start = 2022 End = 2022 泰迪杯大學(xué)生數(shù)據(jù)挖掘競賽論文報告第 20 頁，共 34 頁Frequency = 1 xhat level2022 1761499 17614992022 2022442 20224422022 2461907 24619072022 2458737 24587372022 2747686 27476862022 3028671 30286712022 3712582 37125822022 4270790 42707902022 5237790 52377902022 6132128 61321282022 7026461 70264612022 8726344 87263442022 9794689 97946892022 11023870 11023870 par(cex=) plot(fujian[,2],type=o,xlab=時間,ylab=地方財政收入合計) lines(fujian[,1][1],dfczsrhjforecast$fitted[,1],type=o,lty=2,col=bl