Home » date » 2008 » Nov » 20 »

MLRS met trend zonder dummy

*The author of this computation has been verified*
R Software Module: rwasp_multipleregression.wasp (opens new window with default values)
Title produced by software: Multiple Regression
Date of computation: Thu, 20 Nov 2008 07:24:17 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v.htm/, Retrieved Thu, 20 Nov 2008 14:25:49 +0000
 
BibTeX entries for LaTeX users:
@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v.htm/},
    year = {2008},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
 
Feedback Forum:

Post a new message
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1687 0 1508 0 1507 0 1385 0 1632 0 1511 0 1559 0 1630 0 1579 0 1653 0 2152 0 2148 0 1752 0 1765 0 1717 0 1558 0 1575 0 1520 0 1805 0 1800 0 1719 0 2008 0 2242 0 2478 0 2030 0 1655 0 1693 0 1623 0 1805 0 1746 0 1795 0 1926 0 1619 0 1992 0 2233 0 2192 0 2080 0 1768 0 1835 0 1569 0 1976 0 1853 0 1965 0 1689 0 1778 0 1976 0 2397 0 2654 0 2097 0 1963 0 1677 0 1941 0 2003 0 1813 0 2012 0 1912 0 2084 0 2080 0 2118 0 2150 0 1608 0 1503 0 1548 0 1382 0 1731 0 1798 0 1779 0 1887 0 2004 0 2077 0 2092 0 2051 0 1577 0 1356 0 1652 0 1382 0 1519 0 1421 0 1442 0 1543 0 1656 0 1561 0 1905 0 2199 0 1473 0 1655 0 1407 0 1395 0 1530 0 1309 0 1526 0 1327 0 1627 0 1748 0 1958 0 2274 0 1648 0 1401 0 1411 0 1403 0 1394 0 1520 0 1528 0 1643 0 1515 0 1685 0 2000 0 2215 0 1956 0 1462 0 1563 0 1459 0 1446 0 1622 0 1657 0 1638 0 1643 0 1683 0 2050 0 2262 0 1813 0 1445 0 1762 0 1461 0 1556 0 1431 0 1427 0 1554 0 1645 0 1653 0 2016 0 2207 0 1665 0 1361 0 1506 0 1360 0 1453 0 1522 0 1460 0 1552 0 1548 0 1827 0 1737 0 1941 0 1474 0 1458 0 1542 0 1404 0 1522 0 1385 0 1641 0 1510 0 1681 0 1938 0 1868 0 1726 0 1456 0 1445 0 1456 0 1365 0 1487 0 1558 0 1488 0 1684 0 1594 0 1850 0 1998 0 2079 0 1494 0 1057 1 1218 1 1168 1 1236 1 1076 1 1174 1 1139 1 1427 1 1487 1 1483 1 1513 1 1357 1 1165 1 1282 1 1110 1 1297 1 1185 1 1222 1 1284 1 1444 1 1575 1 1737 1 1763 1
 
Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'George Udny Yule' @ 72.249.76.132


Multiple Linear Regression - Estimated Regression Equation
Roadaccidents[t] = + 1846.02995173261 -251.176611180784Dummy[t] -1.50915849932545t + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)1846.0299517326138.7814347.600900
Dummy-251.17661118078467.520939-3.720.0002630.000131
t-1.509158499325450.395585-3.8150.0001849.2e-05


Multiple Linear Regression - Regression Statistics
Multiple R0.505523756005193
R-squared0.255554267885598
Adjusted R-squared0.247676535270630
F-TEST (value)32.4400789384575
F-TEST (DF numerator)2
F-TEST (DF denominator)189
p-value7.73159314348959e-13
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation251.198646170456
Sum Squared Residuals11926043.6093574


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
116871844.52079323326-157.520793233258
215081843.01163473395-335.011634733954
315071841.50247623463-334.502476234629
413851839.99331773530-454.993317735303
516321838.48415923598-206.484159235977
615111836.97500073665-325.975000736652
715591835.46584223733-276.465842237326
816301833.956683738-203.956683738001
915791832.44752523868-253.447525238675
1016531830.93836673935-177.93836673935
1121521829.42920824002322.570791759975
1221481827.9200497407320.079950259301
1317521826.41089124137-74.4108912413737
1417651824.90173274205-59.9017327420482
1517171823.39257424272-106.392574242723
1615581821.88341574340-263.883415743397
1715751820.37425724407-245.374257244072
1815201818.86509874475-298.865098744746
1918051817.35594024542-12.3559402454209
2018001815.84678174610-15.8467817460955
2117191814.33762324677-95.33762324677
2220081812.82846474744195.171535252555
2322421811.31930624812430.680693751881
2424781809.81014774879668.189852251206
2520301808.30098924947221.699010750532
2616551806.79183075014-151.791830750143
2716931805.28267225082-112.282672250817
2816231803.77351375149-180.773513751492
2918051802.264355252172.7356447478336
3017461800.75519675284-54.755196752841
3117951799.24603825352-4.24603825351549
3219261797.73687975419128.26312024581
3316191796.22772125486-177.227721254865
3419921794.71856275554197.281437244461
3522331793.20940425621439.790595743786
3621921791.70024575689400.299754243112
3720801790.19108725756289.808912742437
3817681788.68192875824-20.6819287582373
3918351787.1727702589147.8272297410881
4015691785.66361175959-216.663611759586
4119761784.15445326026191.845546739739
4218531782.6452947609470.3547052390645
4319651781.13613626161183.86386373839
4416891779.62697776228-90.6269777622846
4517781778.11781926296-0.117819262959129
4619761776.60866076363199.391339236366
4723971775.09950226431621.900497735692
4826541773.59034376498880.409656235017
4920971772.08118526566324.918814734343
5019631770.57202676633192.427973233668
5116771769.06286826701-92.0628682670064
5219411767.55370976768173.446290232319
5320031766.04455126836236.955448731644
5418131764.5353927690348.46460723097
5520121763.02623426970248.973765730295
5619121761.51707577038150.482924229621
5720841760.00791727105323.992082728946
5820801758.49875877173321.501241228272
5921181756.98960027240361.010399727597
6021501755.48044177308394.519558226923
6116081753.97128327375-145.971283273752
6215031752.46212477443-249.462124774426
6315481750.9529662751-202.952966275101
6413821749.44380777578-367.443807775775
6517311747.93464927645-16.9346492764500
6617981746.4254907771251.5745092228754
6717791744.916332277834.0836677222009
6818871743.40717377847143.592826221526
6920041741.89801527915262.101984720852
7020771740.38885677982336.611143220177
7120921738.87969828050353.120301719503
7220511737.37053978117313.629460218828
7315771735.86138128185-158.861381281846
7413561734.35222278252-378.352222782521
7516521732.84306428320-80.8430642831955
7613821731.33390578387-349.33390578387
7715191729.82474728454-210.824747284545
7814211728.31558878522-307.315588785219
7914421726.80643028589-284.806430285894
8015431725.29727178657-182.297271786568
8116561723.78811328724-67.7881132872428
8215611722.27895478792-161.278954787917
8319051720.76979628859184.230203711408
8421991719.26063778927479.739362210734
8514731717.75147928994-244.751479289941
8616551716.24232079062-61.2423207906155
8714071714.73316229129-307.73316229129
8813951713.22400379196-318.224003791965
8915301711.71484529264-181.714845292639
9013091710.20568679331-401.205686793314
9115261708.69652829399-182.696528293988
9213271707.18736979466-380.187369794663
9316271705.67821129534-78.6782112953373
9417481704.1690527960143.8309472039881
9519581702.65989429669255.340105703314
9622741701.15073579736572.849264202639
9716481699.64157729804-51.6415772980355
9814011698.13241879871-297.13241879871
9914111696.62326029938-285.623260299385
10014031695.11410180006-292.114101800059
10113941693.60494330073-299.604943300734
10215201692.09578480141-172.095784801408
10315281690.58662630208-162.586626302083
10416431689.07746780276-46.0774678027573
10515151687.56830930343-172.568309303432
10616851686.05915080411-1.05915080410641
10720001684.54999230478315.450007695219
10822151683.04083380546531.959166194544
10919561681.53167530613274.46832469387
11014621680.02251680680-218.022516806805
11115631678.51335830748-115.513358307479
11214591677.00419980815-218.004199808154
11314461675.49504130883-229.495041308828
11416221673.98588280950-51.9858828095028
11516571672.47672431018-15.4767243101773
11616381670.96756581085-32.9675658108519
11716431669.45840731153-26.4584073115264
11816831667.949248812215.0507511877990
11920501666.44009031288383.559909687125
12022621664.93093181355597.06906818645
12118131663.42177331422149.578226685775
12214451661.9126148149-216.912614814899
12317621660.40345631557101.596543684426
12414611658.89429781625-197.894297816248
12515561657.38513931692-101.385139316923
12614311655.87598081760-224.875980817597
12714271654.36682231827-227.366822318272
12815541652.85766381895-98.8576638189464
12916451651.34850531962-6.34850531962096
13016531649.839346820303.16065317970451
13120161648.33018832097367.66981167903
13222071646.82102982164560.178970178355
13316651645.3118713223219.6881286776809
13413611643.80271282299-282.802712822994
13515061642.29355432367-136.293554323668
13613601640.78439582434-280.784395824343
13714531639.27523732502-186.275237325017
13815221637.76607882569-115.766078825692
13914601636.25692032637-176.256920326366
14015521634.74776182704-82.747761827041
14115481633.23860332772-85.2386033277155
14218271631.72944482839195.27055517161
14317371630.22028632906106.779713670935
14419411628.71112782974312.288872170261
14514741627.20196933041-153.201969330414
14614581625.69281083109-167.692810831088
14715421624.18365233176-82.1836523317628
14814041622.67449383244-218.674493832437
14915221621.16533533311-99.1653353331119
15013851619.65617683379-234.656176833786
15116411618.1470183344622.8529816655390
15215101616.63785983514-106.637859835136
15316811615.1287013358165.8712986641899
15419381613.61954283648324.380457163515
15518681612.11038433716255.889615662841
15617261610.60122583783115.398774162166
15714561609.09206733851-153.092067338508
15814451607.58290883918-162.582908839183
15914561606.07375033986-150.073750339857
16013651604.56459184053-239.564591840532
16114871603.05543334121-116.055433341206
16215581601.54627484188-43.546274841881
16314881600.03711634256-112.037116342556
16416841598.5279578432385.47204215677
16515941597.01879934390-3.01879934390459
16618501595.50964084458254.490359155421
16719981594.00048234525403.999517654746
16820791592.49132384593486.508676154072
16914941590.98216534660-96.9821653466028
17010571338.29639566649-281.296395666493
17112181336.78723716717-118.787237167168
17211681335.27807866784-167.278078667842
17312361333.76892016852-97.7689201685167
17410761332.25976166919-256.259761669191
17511741330.75060316987-156.750603169866
17611391329.24144467054-190.241444670540
17714271327.7322861712199.2677138287851
17814871326.22312767189160.776872328111
17914831324.71396917256158.286030827436
18015131323.20481067324189.795189326761
18113571321.6956521739135.3043478260870
18211651320.18649367459-155.186493674588
18312821318.67733517526-36.6773351752621
18411101317.16817667594-207.168176675937
18512971315.65901817661-18.6590181766112
18611851314.14985967729-129.149859677286
18712221312.64070117796-90.6407011779603
18812841311.13154267863-27.1315426786349
18914441309.62238417931134.377615820691
19015751308.11322567998266.886774320016
19117371306.60406718066430.395932819342
19217631305.09490868133457.905091318667


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
60.1593853120926010.3187706241852020.840614687907399
70.07600637656955880.1520127531391180.923993623430441
80.04209128045406930.08418256090813860.95790871954593
90.01706142320254110.03412284640508220.982938576797459
100.007893973203794970.01578794640758990.992106026796205
110.1905869838597960.3811739677195930.809413016140204
120.2418024138454660.4836048276909320.758197586154534
130.2102276484375170.4204552968750330.789772351562483
140.1730494543778920.3460989087557840.826950545622108
150.1547568673787360.3095137347574710.845243132621264
160.2069900940943810.4139801881887630.793009905905618
170.2174969547816780.4349939095633550.782503045218322
180.2372136776881490.4744273553762980.762786322311851
190.1824028930306260.3648057860612520.817597106969374
200.1360465493486510.2720930986973020.863953450651349
210.1028045310619530.2056090621239070.897195468938047
220.09588825491445370.1917765098289070.904111745085546
230.1598935580231650.3197871160463290.840106441976835
240.3793752600865550.7587505201731110.620624739913445
250.3200817326252540.6401634652505080.679918267374746
260.3969189704069440.7938379408138880.603081029593056
270.4243416770455220.8486833540910440.575658322954478
280.4769655099948240.9539310199896470.523034490005176
290.433927886066390.867855772132780.56607211393361
300.4080012338138370.8160024676276740.591998766186163
310.3660913204662660.7321826409325330.633908679533734
320.3122932959252990.6245865918505980.687706704074701
330.3395742266290270.6791484532580530.660425773370973
340.2944044049801640.5888088099603270.705595595019836
350.3221875338005110.6443750676010230.677812466199489
360.3184096175413080.6368192350826170.681590382458692
370.2806193250121890.5612386500243780.71938067498781
380.2774719109635240.5549438219270470.722528089036476
390.2521793200135950.504358640027190.747820679986405
400.3319822839290040.6639645678580080.668017716070996
410.2878528059642990.5757056119285970.712147194035701
420.2540985754814500.5081971509628990.745901424518550
430.2163168563666730.4326337127333470.783683143633326
440.2254761011533990.4509522023067970.774523898846601
450.2062667986108920.4125335972217850.793733201389108
460.1742991229881800.3485982459763610.82570087701182
470.2685125214419770.5370250428839530.731487478558023
480.5945221332447320.8109557335105370.405477866755268
490.5692586448316460.8614827103367080.430741355168354
500.5389174085287480.9221651829425030.461082591471252
510.5861957357969240.8276085284061520.413804264203076
520.5553102416384850.8893795167230290.444689758361515
530.5249884671876350.950023065624730.475011532812365
540.5149947752308720.9700104495382560.485005224769128
550.4872246030543730.9744492061087450.512775396945627
560.461458274212470.922916548424940.53854172578753
570.4477875039883950.895575007976790.552212496011605
580.436728655406690.873457310813380.56327134459331
590.4382133422322680.8764266844645370.561786657767732
600.4541381777188430.9082763554376860.545861822281157
610.5402466192607860.9195067614784280.459753380739214
620.6623759711155740.6752480577688530.337624028884426
630.728860203248330.5422795935033410.271139796751670
640.8423610011838640.3152779976322710.157638998816136
650.8327226168909020.3345547662181960.167277383109098
660.8157906067000150.3684187865999710.184209393299985
670.7985765673936180.4028468652127640.201423432606382
680.7793266168777580.4413467662444840.220673383122242
690.774517927033610.4509641459327810.225482072966390
700.7890974527594420.4218050944811160.210902547240558
710.8114222539862290.3771554920275420.188577746013771
720.8274544799194810.3450910401610390.172545520080519
730.8452700191350230.3094599617299540.154729980864977
740.9079430187187470.1841139625625050.0920569812812526
750.9040582926355570.1918834147288860.0959417073644431
760.9346062831789220.1307874336421560.0653937168210779
770.9384104460807160.1231791078385680.0615895539192842
780.9505112749472960.0989774501054070.0494887250527035
790.9570390574821930.08592188503561450.0429609425178073
800.9545771662455560.09084566750888870.0454228337544443
810.9463994549010720.1072010901978560.053600545098928
820.9410551745100530.1178896509798940.058944825489947
830.9373308370371270.1253383259257460.062669162962873
840.968050864007150.06389827198570020.0319491359928501
850.9685421769734370.06291564605312580.0314578230265629
860.962308210286670.07538357942666020.0376917897133301
870.9661532379520170.06769352409596530.0338467620479827
880.9698167188095790.06036656238084290.0301832811904214
890.9658241618720950.06835167625580990.0341758381279049
900.9747386874750330.05052262504993320.0252613125249666
910.9709280969847610.05814380603047770.0290719030152388
920.9771753216021510.04564935679569760.0228246783978488
930.971280245541660.05743950891668110.0287197544583406
940.9644502613682330.07109947726353480.0355497386317674
950.9669049512583190.06619009748336290.0330950487416814
960.991111669587070.01777666082586030.00888833041293016
970.9884799992085070.02304000158298560.0115200007914928
980.9887411631451650.02251767370967050.0112588368548352
990.9887185798442660.02256284031146760.0112814201557338
1000.9889056172963210.02218876540735750.0110943827036787
1010.9893750684709350.02124986305812920.0106249315290646
1020.987230398931820.02553920213635820.0127696010681791
1030.9846009238592930.03079815228141350.0153990761407067
1040.9800585245782780.03988295084344460.0199414754217223
1050.976637815012980.04672436997403760.0233621849870188
1060.970199964603840.05960007079231960.0298000353961598
1070.9759433669314870.04811326613702640.0240566330685132
1080.9926795833098640.01464083338027120.00732041669013558
1090.9942781327749640.01144373445007220.00572186722503608
1100.9933057594148810.01338848117023760.0066942405851188
1110.9912350554575540.01752988908489160.0087649445424458
1120.9898987357188220.02020252856235650.0101012642811783
1130.9887204150028050.02255916999438990.0112795849971950
1140.9851225101583730.02975497968325400.0148774898416270
1150.980577129541630.03884574091673840.0194228704583692
1160.9748485720092830.05030285598143410.0251514279907170
1170.967756910373690.06448617925262150.0322430896263107
1180.959456371765560.08108725646887930.0405436282344396
1190.9757295920288250.04854081594235030.0242704079711751
1200.9968010845193330.006397830961333720.00319891548066686
1210.9969582502907870.006083499418426050.00304174970921302
1220.9961843069168310.007631386166337480.00381569308316874
1230.995918664508830.008162670982338530.00408133549116927
1240.9947526130578220.01049477388435540.00524738694217772
1250.9928982838970430.01420343220591390.00710171610295696
1260.991333335872310.01733332825538060.00866666412769029
1270.9896005427990270.02079891440194560.0103994572009728
1280.9861127429435840.02777451411283290.0138872570564164
1290.982020656649840.03595868670032080.0179793433501604
1300.977131578000350.04573684399930040.0228684219996502
1310.9901068206889550.01978635862209110.00989317931104557
1320.9995587380530520.0008825238938957310.000441261946947866
1330.9995260553163330.0009478893673329920.000473944683666496
1340.9993904727820380.001219054435924600.000609527217962298
1350.9991118115963530.001776376807294300.000888188403647148
1360.9988859527372980.002228094525404880.00111404726270244
1370.9984061570616750.003187685876649570.00159384293832479
1380.9976817890954670.004636421809065360.00231821090453268
1390.9967350922509180.006529815498163720.00326490774908186
1400.995344591408840.009310817182318320.00465540859115916
1410.993411823641680.01317635271664230.00658817635832116
1420.995261473695620.009477052608759880.00473852630437994
1430.9955585899690930.008882820061813920.00444141003090696
1440.9989919566904270.002016086619145520.00100804330957276
1450.9984949275870330.003010144825933090.00150507241296655
1460.9977617011066070.004476597786786160.00223829889339308
1470.9968156404121620.006368719175677020.00318435958783851
1480.9955770706351250.008845858729749920.00442292936487496
1490.993565093262940.01286981347411790.00643490673705897
1500.9918184307228720.01636313855425540.00818156927712772
1510.9892947373435240.02141052531295150.0107052626564757
1520.9847784716663610.03044305666727740.0152215283336387
1530.9812454086811580.03750918263768370.0187545913188418
1540.9925795916671920.01484081666561690.00742040833280845
1550.996723726044420.006552547911161810.00327627395558090
1560.9971475344975270.005704931004945740.00285246550247287
1570.9956287078785380.008742584242924950.00437129212146247
1580.993616898484010.01276620303198170.00638310151599084
1590.990975860666730.01804827866654170.00902413933327083
1600.9911320882884470.01773582342310620.00886791171155312
1610.9885673244927780.02286535101444380.0114326755072219
1620.9841713562263830.03165728754723470.0158286437736173
1630.983849511802050.03230097639589760.0161504881979488
1640.9767366111690.04652677766199940.0232633888309997
1650.9745301180874850.05093976382503080.0254698819125154
1660.9642727254811340.07145454903773290.0357272745188664
1670.9642838967144850.07143220657102950.0357161032855148
1680.9913236604357760.01735267912844790.00867633956422396
1690.9858502509560480.02829949808790480.0141497490439524
1700.9786678511722720.04266429765545620.0213321488277281
1710.9680600037661360.06387999246772830.0319399962338641
1720.9509854113988010.09802917720239750.0490145886011987
1730.9290525995130610.1418948009738770.0709474004869386
1740.907327219143010.1853455617139790.0926727808569894
1750.8701903614332970.2596192771334060.129809638566703
1760.8373857084606350.3252285830787290.162614291539365
1770.8033167768258220.3933664463483560.196683223174178
1780.8085780638762360.3828438722475280.191421936123764
1790.8448142542883140.3103714914233720.155185745711686
1800.9484875957441520.1030248085116960.0515124042558478
1810.9803392969539760.03932140609204740.0196607030460237
1820.9694296769375450.0611406461249090.0305703230624545
1830.9880278283086960.02394434338260850.0119721716913043
1840.9703298177855160.05934036442896730.0296701822144836
1850.995665892695890.008668214608219060.00433410730410953
1860.991156993354210.01768601329158200.00884300664579099


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level240.132596685082873NOK
5% type I error level750.414364640883978NOK
10% type I error level1010.558011049723757NOK
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/10ydkr1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/10ydkr1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/1mu0x1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/1mu0x1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/2o4l31227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/2o4l31227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/3t5dq1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/3t5dq1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/48wqk1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/48wqk1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/5topy1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/5topy1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/681bv1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/681bv1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/7dnkr1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/7dnkr1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/8q2wn1227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/8q2wn1227191050.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/99gk61227191050.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/20/t1227191138c38y1303sy12k2v/99gk61227191050.ps (open in new window)


 
Parameters (Session):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = Linear Trend ;
 
Parameters (R input):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = Linear Trend ;
 
R code (references can be found in the software module):
library(lattice)
library(lmtest)
n25 <- 25 #minimum number of obs. for Goldfeld-Quandt test
par1 <- as.numeric(par1)
x <- t(y)
k <- length(x[1,])
n <- length(x[,1])
x1 <- cbind(x[,par1], x[,1:k!=par1])
mycolnames <- c(colnames(x)[par1], colnames(x)[1:k!=par1])
colnames(x1) <- mycolnames #colnames(x)[par1]
x <- x1
if (par3 == 'First Differences'){
x2 <- array(0, dim=c(n-1,k), dimnames=list(1:(n-1), paste('(1-B)',colnames(x),sep='')))
for (i in 1:n-1) {
for (j in 1:k) {
x2[i,j] <- x[i+1,j] - x[i,j]
}
}
x <- x2
}
if (par2 == 'Include Monthly Dummies'){
x2 <- array(0, dim=c(n,11), dimnames=list(1:n, paste('M', seq(1:11), sep ='')))
for (i in 1:11){
x2[seq(i,n,12),i] <- 1
}
x <- cbind(x, x2)
}
if (par2 == 'Include Quarterly Dummies'){
x2 <- array(0, dim=c(n,3), dimnames=list(1:n, paste('Q', seq(1:3), sep ='')))
for (i in 1:3){
x2[seq(i,n,4),i] <- 1
}
x <- cbind(x, x2)
}
k <- length(x[1,])
if (par3 == 'Linear Trend'){
x <- cbind(x, c(1:n))
colnames(x)[k+1] <- 't'
}
x
k <- length(x[1,])
df <- as.data.frame(x)
(mylm <- lm(df))
(mysum <- summary(mylm))
if (n > n25) {
kp3 <- k + 3
nmkm3 <- n - k - 3
gqarr <- array(NA, dim=c(nmkm3-kp3+1,3))
numgqtests <- 0
numsignificant1 <- 0
numsignificant5 <- 0
numsignificant10 <- 0
for (mypoint in kp3:nmkm3) {
j <- 0
numgqtests <- numgqtests + 1
for (myalt in c('greater', 'two.sided', 'less')) {
j <- j + 1
gqarr[mypoint-kp3+1,j] <- gqtest(mylm, point=mypoint, alternative=myalt)$p.value
}
if (gqarr[mypoint-kp3+1,2] < 0.01) numsignificant1 <- numsignificant1 + 1
if (gqarr[mypoint-kp3+1,2] < 0.05) numsignificant5 <- numsignificant5 + 1
if (gqarr[mypoint-kp3+1,2] < 0.10) numsignificant10 <- numsignificant10 + 1
}
gqarr
}
bitmap(file='test0.png')
plot(x[,1], type='l', main='Actuals and Interpolation', ylab='value of Actuals and Interpolation (dots)', xlab='time or index')
points(x[,1]-mysum$resid)
grid()
dev.off()
bitmap(file='test1.png')
plot(mysum$resid, type='b', pch=19, main='Residuals', ylab='value of Residuals', xlab='time or index')
grid()
dev.off()
bitmap(file='test2.png')
hist(mysum$resid, main='Residual Histogram', xlab='values of Residuals')
grid()
dev.off()
bitmap(file='test3.png')
densityplot(~mysum$resid,col='black',main='Residual Density Plot', xlab='values of Residuals')
dev.off()
bitmap(file='test4.png')
qqnorm(mysum$resid, main='Residual Normal Q-Q Plot')
qqline(mysum$resid)
grid()
dev.off()
(myerror <- as.ts(mysum$resid))
bitmap(file='test5.png')
dum <- cbind(lag(myerror,k=1),myerror)
dum
dum1 <- dum[2:length(myerror),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main=paste('Residual Lag plot, lowess, and regression line'), ylab='values of Residuals', xlab='lagged values of Residuals')
lines(lowess(z))
abline(lm(z))
grid()
dev.off()
bitmap(file='test6.png')
acf(mysum$resid, lag.max=length(mysum$resid)/2, main='Residual Autocorrelation Function')
grid()
dev.off()
bitmap(file='test7.png')
pacf(mysum$resid, lag.max=length(mysum$resid)/2, main='Residual Partial Autocorrelation Function')
grid()
dev.off()
bitmap(file='test8.png')
opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
plot(mylm, las = 1, sub='Residual Diagnostics')
par(opar)
dev.off()
if (n > n25) {
bitmap(file='test9.png')
plot(kp3:nmkm3,gqarr[,2], main='Goldfeld-Quandt test',ylab='2-sided p-value',xlab='breakpoint')
grid()
dev.off()
}
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Estimated Regression Equation', 1, TRUE)
a<-table.row.end(a)
myeq <- colnames(x)[1]
myeq <- paste(myeq, '[t] = ', sep='')
for (i in 1:k){
if (mysum$coefficients[i,1] > 0) myeq <- paste(myeq, '+', '')
myeq <- paste(myeq, mysum$coefficients[i,1], sep=' ')
if (rownames(mysum$coefficients)[i] != '(Intercept)') {
myeq <- paste(myeq, rownames(mysum$coefficients)[i], sep='')
if (rownames(mysum$coefficients)[i] != 't') myeq <- paste(myeq, '[t]', sep='')
}
}
myeq <- paste(myeq, ' + e[t]')
a<-table.row.start(a)
a<-table.element(a, myeq)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('http://www.xycoon.com/ols1.htm','Multiple Linear Regression - Ordinary Least Squares',''), 6, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',header=TRUE)
a<-table.element(a,'Parameter',header=TRUE)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,'T-STAT<br />H0: parameter = 0',header=TRUE)
a<-table.element(a,'2-tail p-value',header=TRUE)
a<-table.element(a,'1-tail p-value',header=TRUE)
a<-table.row.end(a)
for (i in 1:k){
a<-table.row.start(a)
a<-table.element(a,rownames(mysum$coefficients)[i],header=TRUE)
a<-table.element(a,mysum$coefficients[i,1])
a<-table.element(a, round(mysum$coefficients[i,2],6))
a<-table.element(a, round(mysum$coefficients[i,3],4))
a<-table.element(a, round(mysum$coefficients[i,4],6))
a<-table.element(a, round(mysum$coefficients[i,4]/2,6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Regression Statistics', 2, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Multiple R',1,TRUE)
a<-table.element(a, sqrt(mysum$r.squared))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'R-squared',1,TRUE)
a<-table.element(a, mysum$r.squared)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Adjusted R-squared',1,TRUE)
a<-table.element(a, mysum$adj.r.squared)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (value)',1,TRUE)
a<-table.element(a, mysum$fstatistic[1])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (DF numerator)',1,TRUE)
a<-table.element(a, mysum$fstatistic[2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (DF denominator)',1,TRUE)
a<-table.element(a, mysum$fstatistic[3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'p-value',1,TRUE)
a<-table.element(a, 1-pf(mysum$fstatistic[1],mysum$fstatistic[2],mysum$fstatistic[3]))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Residual Statistics', 2, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Residual Standard Deviation',1,TRUE)
a<-table.element(a, mysum$sigma)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Sum Squared Residuals',1,TRUE)
a<-table.element(a, sum(myerror*myerror))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Actuals, Interpolation, and Residuals', 4, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Time or Index', 1, TRUE)
a<-table.element(a, 'Actuals', 1, TRUE)
a<-table.element(a, 'Interpolation<br />Forecast', 1, TRUE)
a<-table.element(a, 'Residuals<br />Prediction Error', 1, TRUE)
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,i, 1, TRUE)
a<-table.element(a,x[i])
a<-table.element(a,x[i]-mysum$resid[i])
a<-table.element(a,mysum$resid[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable4.tab')
if (n > n25) {
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Goldfeld-Quandt test for Heteroskedasticity',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-values',header=TRUE)
a<-table.element(a,'Alternative Hypothesis',3,header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'breakpoint index',header=TRUE)
a<-table.element(a,'greater',header=TRUE)
a<-table.element(a,'2-sided',header=TRUE)
a<-table.element(a,'less',header=TRUE)
a<-table.row.end(a)
for (mypoint in kp3:nmkm3) {
a<-table.row.start(a)
a<-table.element(a,mypoint,header=TRUE)
a<-table.element(a,gqarr[mypoint-kp3+1,1])
a<-table.element(a,gqarr[mypoint-kp3+1,2])
a<-table.element(a,gqarr[mypoint-kp3+1,3])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable5.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Description',header=TRUE)
a<-table.element(a,'# significant tests',header=TRUE)
a<-table.element(a,'% significant tests',header=TRUE)
a<-table.element(a,'OK/NOK',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'1% type I error level',header=TRUE)
a<-table.element(a,numsignificant1)
a<-table.element(a,numsignificant1/numgqtests)
if (numsignificant1/numgqtests < 0.01) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'5% type I error level',header=TRUE)
a<-table.element(a,numsignificant5)
a<-table.element(a,numsignificant5/numgqtests)
if (numsignificant5/numgqtests < 0.05) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'10% type I error level',header=TRUE)
a<-table.element(a,numsignificant10)
a<-table.element(a,numsignificant10/numgqtests)
if (numsignificant10/numgqtests < 0.1) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable6.tab')
}
 





Copyright

Creative Commons License

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa


Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.


Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

  • personalize online software applications according to your needs
  • enforce strict security rules with respect to the data that you upload (e.g. statistical data)
  • manage user sessions of online applications
  • alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.


FreeStatistics.org is powered by