r软件应用作业

《r软件应用作业》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、R软件应用作业一、编程编辑--个计算长方体体积的小程序，如下图：>vol<-function(x){+y=x[l]*x[2]*x[3]+return(y)+}>x=c(lf2f3)>vol(x)[1]6二、指数平滑法预测1、用简单指数平滑法和霍尔特线性指数平滑法根据某产品一年屮11个月的销售额预测第12月的销售额，如下图：>data<-read.table(Hdatal.txt^^header-T)>datasal皂143023S033304410544063907380840094501042011390>sale=ts(dat

2、a$salerstart=l)>saleTimeSeries:Start■1End=11Frequency=1[1]430380330410440390330400450420390>ses(salezh=l)PointForecastLo80Hi80Lo95Hi9512401.8056360.6129442.9982338・8068464・8043>holt(sale,h-1)PointForecastLo80Hi80Lo95Hi9512409.5315368・7585450.3044347.1746471・8883结果显示：简

3、单指数平滑法结果为12月销售额为401.8056万元，霍特线性指数平滑法结果为12刀销售额为409.5315力元。2、用温特线性与季节指数平滑法根据某企业2007-2012年各季度的销售额预测2013年各季度的销售额，如下图：>data<-read.table(ndata2•header=T)>datasale136223853432434153826409749883879473105131158212474135441458215681165571762818707197732059221627227252385424661>

4、sale=ts(dacaSsale^srazr=c(200*r1)rfreq^ezcy=4)>sale-ts(data$salerstart-c(2007r1)rfrequency-4)>saleQcrlQtr2Qtr3Qtr-s2007362385432341200238240949833720094735135S2474201054458268155720-16287077735922012627725854661>hw(3Alerh»4)Po丄△匕ForecastLo80Hl80Lo95H丄952013Ql741.57567

5、07.7703775.3810689.874S793.27652013Q2795.7395764.9342832.5449747.0387350.44042013Q3873.7348839.9294907.5402222.0339925.43562013Q4752.4936718.6882786.2990700.7923304.1945结果显示：温特线性与季节指数平滑法预测2013年第一至四季度销售额分别为：741.5756万元、79&7395万元、873.7348万元、752.4936万元。三、ARIMA模型预测给出某产品199

6、9-2015年销售额预测2016年销售额，如下图：>d&ta<-re&d•匕二巴(?.eadex=T»>datasale112864521455343185899420088452367316250002727772982930019298405103055851131346412323569133454321435E833153719851637862117379052>selects(dataSsale,stArca1999)>saleTimeSeries:Start■1999End■2015Frequency■1[1]128

7、6451455341858992008842367312S0002277729293001298405305585[11]31346432356934543235883337198537S621379052>adf•匕丄e)AugmentedDickey-FullerTestdata:daleD丄ckey・Fuller■-1・5122,Lagorder■2rp-val^e■0.7522alternativehypothesis:stationary>act(saie)>pacf(sale)>xwauto.ariaia(sale)>

8、xSeries:saleARIMAd^.O)Coefficients:arl-0.8016s.e.0.1534estimatedas81576103:loglikelihood-AIC-319.82AICc-320・32BIC-321・23>pre