Home » date » 2010 » Dec » 28 »

*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: Tue, 28 Dec 2010 09:04:46 +0000
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy.htm/, Retrieved Tue, 28 Dec 2010 10:02:40 +0100
 
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/2010/Dec/28/t1293526948wv56qkoy8rt5fhy.htm/},
    year = {2010},
}
@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 = {2010},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1 22 27 27 5 5 26 26 49 49 35 35 1 23 36 36 4 4 25 25 45 45 34 34 1 27 25 25 4 4 17 17 54 54 13 13 1 19 27 27 3 3 37 37 36 36 35 35 1 25 50 50 4 4 27 27 46 46 35 35 1 25 41 41 4 4 36 36 42 42 36 36 1 21 48 48 5 5 25 25 41 41 27 27 1 22 44 44 2 2 29 29 45 45 29 29 1 21 28 28 3 3 26 26 42 42 15 15 1 20 56 56 3 3 24 24 45 45 33 33 1 21 50 50 5 5 29 29 43 43 32 32 1 23 47 47 4 4 26 26 45 45 21 21 1 19 52 52 2 2 21 21 42 42 25 25 1 23 45 45 4 4 21 21 47 47 22 22 1 27 3 3 30 30 41 41 26 26 1 18 52 52 4 4 21 21 44 44 34 34 1 30 46 46 2 2 29 29 51 51 34 34 1 26 58 58 3 3 28 28 46 46 36 36 1 20 54 54 5 5 19 19 47 47 36 36 1 22 29 29 3 3 26 26 46 46 26 26 1 21 43 43 2 2 34 34 50 50 34 34 1 27 45 45 3 3 24 24 51 51 33 33 1 24 46 46 5 5 20 20 47 47 37 37 1 21 25 25 4 4 21 21 46 46 29 29 1 23 47 47 2 2 33 33 43 43 35 35 1 22 41 41 3 3 22 22 55 55 28 28 1 22 29 29 4 4 18 18 52 52 25 25 1 27 45 45 5 5 20 20 56 56 32 32 1 25 54 54 2 2 26 26 46 46 27 27 1 20 28 28 4 4 23 23 51 51 27 27 1 22 37 etc...
 
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 time18 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135
R Framework
error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.


Multiple Linear Regression - Estimated Regression Equation
Behoefte_affiliatie[t] = -3.40706072545636 + 0.673472126654755geslacht[t] + 0.168252980774944leeftijd[t] -0.145276934162708leeftijd_man[t] -0.501503813733889opleiding[t] + 0.495292574820152opleiding_man[t] + 0.207046157582967Neuroticisme[t] -0.136851415221506Neuroticisme_man[t] + 0.299625022585822Extraversie[t] + 0.0998485589946164Extraversie_man[t] -0.0326076307539497Openheid[t] + 0.103846821229733Openheid_man[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)-3.407060725456362.650164-1.28560.2002060.100103
geslacht0.6734721266547550.04022816.741400
leeftijd0.1682529807749440.0424933.95950.0001075.4e-05
leeftijd_man-0.1452769341627080.065882-2.20510.0286920.014346
opleiding-0.5015038137338890.074938-6.692300
opleiding_man0.4952925748201520.0809946.115200
Neuroticisme0.2070461575829670.0549923.7650.0002240.000112
Neuroticisme_man-0.1368514152215060.075238-1.81890.070560.03528
Extraversie0.2996250225858220.0482146.214400
Extraversie_man0.09984855899461640.0753811.32460.186960.09348
Openheid-0.03260763075394970.069771-0.46740.6408020.320401
Openheid_man0.1038468212297330.0833691.24560.2144920.107246


Multiple Linear Regression - Regression Statistics
Multiple R0.936114779057777
R-squared0.87631087957039
Adjusted R-squared0.868876014407954
F-TEST (value)117.865066874100
F-TEST (DF numerator)11
F-TEST (DF denominator)183
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation4.64178670153387
Sum Squared Residuals3942.95163220421


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
12221.7483489306520.251651069347999
22320.22201632991752.77798367008253
32721.50696111252315.49303888747693
41917.33975701390981.66024298609017
52521.15478323926733.84521676073269
62520.05309636516444.94690363483561
72118.39494899069782.60505100930225
82220.34283019770921.65716980229084
92117.5626485745133.437351425487
102020.5463145682381-0.546314568238074
112119.87682316890781.12317683109217
122319.61883810882773.38116189117226
131918.48170312507090.518296874929094
142320.09209865743262.90790134256737
152712.249935082915614.7500649170844
165251.32842547362850.671574526371483
174647.2679266207769-1.26792662077694
185855.20367195013512.79632804986490
195452.88952507178511.11047492821487
202931.7945137604001-2.79451376040011
214345.2501061251123-2.25010612511227
224546.0413195112632-1.04131951126319
234647.7911635799841-1.79116357998408
242530.5607718821628-5.5607718821628
254747.3390821495466-0.339082149546559
264141.4355709015558-0.435570901555839
272932.5119555182890-3.51195551828896
284546.1674635115992-1.16746351159921
295448.90396764050745.09603235949262
302832.0169455117163-4.01694551171628
313738.5347587524705-1.53475875247047
325645.169638065605910.8303619343941
334339.72725014416813.27274985583187
343434.4515062192942-0.451506219294211
354241.95698982541780.0430101745821530
364641.24272601012164.75727398987844
372529.2203415414979-4.22034154149790
382529.5797919346738-4.57979193467378
392529.4100803347221-4.41008033472211
404846.78469911372381.21530088627617
412731.5384056125168-4.53840561251677
422832.2250573111248-4.22505731112479
432524.88011461191120.119885388088787
442629.6725517431804-3.67255174318038
455149.2584842814791.74151571852099
462930.5008827464202-1.50088274642018
472930.9439613347676-1.94396133476755
484337.5019790027165.49802099728398
494441.45364340624482.5463565937552
502527.5400787928293-2.54007879282926
515145.15118398808695.84881601191314
524241.46836076027280.531639239727157
532530.8665663784858-5.86656637848579
545146.3019559674154.69804403258495
554646.4480132259165-0.448013225916463
562923.90821008057265.09178991942736
5734.92725384568103-1.92725384568103
5814.94552151325091-3.94552151325091
5946.69832203934784-2.69832203934784
6058.92031191402827-3.92031191402827
6147.30864305454018-3.30864305454018
6245.61266300832699-1.61266300832699
6337.1595973397394-4.15959733973940
6457.33154021159766-2.33154021159766
6533.2494488429953-0.249448842995301
662633.0320054432439-7.03200544324394
673019.100544470833710.8994555291663
683543.4343832915794-8.43438329157936
692927.83506930938011.16493069061994
702525.3502114803408-0.350211480340851
712730.2148056939411-3.21480569394109
722423.92430343455960.0756965654403998
733531.31813594036663.6818640596334
743235.2974595728038-3.29745957280375
752431.4607351091177-7.46073510911774
763829.64394458351218.35605541648788
773634.33743572309301.66256427690696
782425.3284257175568-1.32842571755682
791818.9776754681178-0.97767546811778
803429.53712171325334.4628782867467
812324.8483120573274-1.84831205732739
823430.49128827520383.50871172479621
833229.84162667122582.15837332877420
842425.1111628203216-1.11116282032158
853427.95997245982876.04002754017131
863337.9094208330562-4.9094208330562
873314.371415616023018.6285843839770
880-7.105224731006127.10522473100612
8902.06938867088764-2.06938867088764
900-3.335225608443483.33522560844348
9100.204133599192590-0.204133599192590
920-2.405707713476912.40570771347691
930-0.3893288625536550.389328862553655
940-2.487619383049392.48761938304939
950-4.366306180840464.36630618084046
96015.1741635010604-15.1741635010604
9704.45505107693719-4.45505107693719
98015.1490327660078-15.1490327660078
9907.93488129258886-7.93488129258886
10001.23641341591376-1.23641341591376
10106.21966115192624-6.21966115192624
1020-4.944806718055284.94480671805528
10305.72321924406316-5.72321924406316
10403.75774906424738-3.75774906424738
105012.3186109965140-12.3186109965140
1062-2.751584513211124.75158451321112
10720.7423044884133371.25769551158666
108214.9384006508831-12.9384006508831
1092225.4270371949954-3.42703719499536
1101928.3545858820960-9.35458588209604
1111922.5924530319061-3.5924530319061
1122422.27866517142771.7213348285723
1132220.23786853279531.76213146720469
1142621.50118849691754.49881150308245
1152317.34661092909715.6533890709029
1162123.0021649890824-2.00216498908235
1171618.3557139769996-2.35571397699964
1182123.1295240715956-2.12952407159562
1191821.6059475930155-3.60594759301551
1202021.7168958012726-1.71689580127257
1212419.56400640522144.43599359477857
1222424.038289835222-0.0382898352219761
1232321.53326825692191.46673174307814
1242322.84485008404930.155149915950730
1252222.7234868752787-0.723486875278708
1261718.9176817112553-1.91768171125532
1272523.14491553681641.8550844631836
1282518.10674000607726.89325999392276
1292326.0016715322332-3.00167153223319
1302722.67656429620094.32343570379908
1312319.93788599200833.06211400799173
1321921.5732170295688-2.57321702956885
1331921.1834971450390-2.18349714503904
1342623.28754934676512.71245065323492
1351922.4872427258826-3.48724272588259
1362224.8723522021251-2.87235220212512
1372022.8344398790570-2.83443987905705
1382123.4077106878281-2.40771068782806
1392125.2379795171793-4.23797951717931
1402823.93022696126114.06977303873889
1412421.49425977365372.50574022634631
1422921.76416254049637.23583745950366
1432421.80871412800252.19128587199747
1442522.78615737833202.21384262166796
1451914.66423389381534.33576610618471
1462320.91551022286002.08448977714004
1472222.8307942959363-0.830794295936259
1482420.08229445361133.91770554638869
1491920.5856618559172-1.58566185591719
1502125.2376536173498-4.23765361734983
1511821.0030919447211-3.00309194472112
1522422.63997651322281.36002348677723
1532423.66663148446360.333368515536428
1542322.64612058292950.353879417070497
1552424.8194716820622-0.819471682062188
1562021.2190315864365-1.21903158643651
1572021.3324076453930-1.33240764539297
1582216.02705662816775.97294337183228
1591822.5811304858573-4.58113048585735
1601421.6767510419284-7.67675104192838
1612921.42374587390717.57625412609288
1622521.03075975087933.96924024912074
1632019.56194445254890.438055547451104
1642521.52165618422213.47834381577794
1652121.3327154548758-0.332715454875766
1662123.1232970491942-2.12329704919421
1671314.9617834989334-1.96178349893337
1682319.75358326199793.24641673800206
1692424.1611919214367-0.161191921436717
1701621.7489376917492-5.74893769174915
1712020.8191020866479-0.819102086647907
1722424.3112616244492-0.311261624449218
1732722.54210616039064.45789383960938
1742722.94368754911074.05631245088932
1751920.8996468692792-1.89964686927921
1762223.3344280313776-1.33442803137760
1771817.38364637841100.616353621588978
1782424.2907879529218-0.290787952921754
1792023.073566985346-3.073566985346
1802023.3474608443502-3.34746084435016
1812722.34811107609674.6518889239033
1821922.6993152268611-3.69931522686106
1832323.7670757960041-0.767075796004081
1843027.15474886271352.84525113728653
1852226.7075806352532-4.70758063525322
1862323.6901962057048-0.690196205704802
1872221.83676521576590.163234784234105
1882218.90790402687373.09209597312629
1892317.31266040759625.68733959240384
1902721.3614815383275.63851846167302
1912318.77634231275154.22365768724854
1921819.4388515278364-1.43885152783636
1932423.24885571664910.751144283350882
1941917.75640192450081.24359807549921
1952221.74834893065200.251651069347983


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
150.2153625825938490.4307251651876990.78463741740615
160.1003564989052360.2007129978104720.899643501094764
170.07219892048155640.1443978409631130.927801079518444
180.172813490408340.345626980816680.82718650959166
190.1154990375490600.2309980750981190.88450096245094
200.3683625130480280.7367250260960570.631637486951972
210.4089627152369710.8179254304739430.591037284763029
220.3266356060874030.6532712121748060.673364393912597
230.2551138593162520.5102277186325040.744886140683748
240.3843674115520110.7687348231040230.615632588447989
250.3364248783237770.6728497566475550.663575121676223
260.2629092348188690.5258184696377380.737090765181131
270.2056358348825430.4112716697650870.794364165117457
280.1577388370349840.3154776740699680.842261162965016
290.1528355888417290.3056711776834590.847164411158271
300.1626015846102640.3252031692205280.837398415389736
310.1913311218346520.3826622436693040.808668878165348
320.2026132486535970.4052264973071950.797386751346403
330.1616121966847640.3232243933695280.838387803315236
340.1502003795597210.3004007591194420.84979962044028
350.1840245226216230.3680490452432450.815975477378378
360.1469387762609580.2938775525219170.853061223739042
370.1792416384906630.3584832769813250.820758361509337
380.1973412849538680.3946825699077360.802658715046132
390.2104067839390340.4208135678780680.789593216060966
400.1702706396797870.3405412793595740.829729360320213
410.1687783167082470.3375566334164930.831221683291753
420.1930801589957170.3861603179914340.806919841004283
430.1588912967950400.3177825935900810.84110870320496
440.1369695887632470.2739391775264930.863030411236753
450.1099869833521100.2199739667042210.89001301664789
460.09393652512204180.1878730502440840.906063474877958
470.08856705609755040.1771341121951010.91143294390245
480.0791480760278950.158296152055790.920851923972105
490.06405397468012280.1281079493602460.935946025319877
500.05673593549582670.1134718709916530.943264064504173
510.05213593647431990.1042718729486400.94786406352568
520.03970307482883480.07940614965766970.960296925171165
530.03533873242446440.07067746484892880.964661267575536
540.03005893522300900.06011787044601790.96994106477699
550.02267220661313270.04534441322626530.977327793386867
560.02074214349633370.04148428699266750.979257856503666
570.02467554777012170.04935109554024350.975324452229878
580.02966791359630440.05933582719260880.970332086403696
590.02367183177950200.04734366355900410.976328168220498
600.01785200827970170.03570401655940330.982147991720298
610.01403087661203580.02806175322407160.985969123387964
620.01097909144308460.02195818288616930.989020908556915
630.01216359342867080.02432718685734160.98783640657133
640.01107577132504860.02215154265009710.988924228674951
650.009420328834555190.01884065766911040.990579671165445
660.00805074796067820.01610149592135640.991949252039322
670.01436633405506850.0287326681101370.985633665944932
680.01107194213019550.02214388426039100.988928057869805
690.008152477646381720.01630495529276340.991847522353618
700.006078916777469310.01215783355493860.99392108322253
710.004923002440051960.009846004880103930.995076997559948
720.004463376459122490.008926752918244980.995536623540878
730.005462032018239640.01092406403647930.99453796798176
740.00498632831683490.00997265663366980.995013671683165
750.004155953080871960.008311906161743910.995844046919128
760.004335929329119860.008671858658239720.99566407067088
770.004369365003637240.008738730007274480.995630634996363
780.003176460550504050.00635292110100810.996823539449496
790.004062066309886130.008124132619772250.995937933690114
800.005836325904870320.01167265180974060.99416367409513
810.005373294512283760.01074658902456750.994626705487716
820.004211267795889910.008422535591779810.99578873220411
830.003176603677041650.00635320735408330.996823396322958
840.002775725014106270.005551450028212550.997224274985894
850.002323967412086540.004647934824173080.997676032587913
860.001849019018760310.003698038037520620.99815098098124
870.7371381168014990.5257237663970020.262861883198501
880.8962338525226320.2075322949547370.103766147477368
890.9754328066389620.04913438672207570.0245671933610378
900.9721380830515780.05572383389684470.0278619169484223
910.9761659821057440.04766803578851150.0238340178942557
920.9710868771205150.05782624575896910.0289131228794845
930.9678040745626530.06439185087469310.0321959254373465
940.960777940490260.07844411901947930.0392220595097397
950.951427443310610.09714511337878140.0485725566893907
960.997270332208160.00545933558368180.0027296677918409
970.9976440213515740.004711957296851810.00235597864842591
980.9996617391581670.0006765216836656540.000338260841832827
990.999679041530820.000641916938358670.000320958469179335
1000.9995341226781690.0009317546436625720.000465877321831286
1010.9998641831504620.000271633699076310.000135816849538155
1020.9999941105219671.17789560667192e-055.88947803335959e-06
1030.9999994913383011.01732339758802e-065.08661698794012e-07
1040.9999992859514681.42809706335037e-067.14048531675183e-07
1050.9999993739263691.25214726274043e-066.26073631370214e-07
1060.999999425061031.14987793765528e-065.7493896882764e-07
1070.9999989913256062.01734878796480e-061.00867439398240e-06
1080.9999991355918221.72881635581287e-068.64408177906435e-07
1090.9999985676662432.86466751377055e-061.43233375688527e-06
1100.999999045079881.90984024179249e-069.54920120896244e-07
1110.9999985519739132.89605217371246e-061.44802608685623e-06
1120.9999981099259213.78014815759783e-061.89007407879891e-06
1130.9999971277358965.7445282076537e-062.87226410382685e-06
1140.9999977907044834.41859103322388e-062.20929551661194e-06
1150.9999979216406254.15671875069295e-062.07835937534647e-06
1160.9999966143399436.77132011428564e-063.38566005714282e-06
1170.9999956520969568.69580608833472e-064.34790304416736e-06
1180.9999929446370031.41107259943242e-057.05536299716211e-06
1190.9999916726238851.66547522292634e-058.32737611463171e-06
1200.9999915974907651.68050184700253e-058.40250923501267e-06
1210.9999905993179251.88013641510149e-059.40068207550743e-06
1220.99998410141683.17971664004673e-051.58985832002336e-05
1230.9999750282574264.99434851488382e-052.49717425744191e-05
1240.999960099831467.98003370784096e-053.99001685392048e-05
1250.9999350242539630.0001299514920739946.49757460369972e-05
1260.9999305122653270.0001389754693458706.94877346729348e-05
1270.99989626405130.0002074718974000760.000103735948700038
1280.9999115562476760.0001768875046485538.84437523242764e-05
1290.9998771062546770.0002457874906453890.000122893745322694
1300.9998564921827060.0002870156345871060.000143507817293553
1310.9998001308551190.000399738289762560.00019986914488128
1320.9997868160767670.0004263678464660640.000213183923233032
1330.9996871333752830.0006257332494332820.000312866624716641
1340.9996356596016370.0007286807967256570.000364340398362829
1350.99952477435650.0009504512870001530.000475225643500076
1360.9993619370994120.001276125801176580.000638062900588291
1370.9992562056138280.001487588772344920.000743794386172461
1380.9989282882296040.002143423540792050.00107171177039602
1390.9988412849859260.002317430028148730.00115871501407437
1400.9988770383202830.002245923359434910.00112296167971746
1410.9984934559875450.003013088024909640.00150654401245482
1420.99945345807880.001093083842400350.000546541921200173
1430.9992154112804110.001569177439177920.000784588719588961
1440.9991244832942620.001751033411475610.000875516705737805
1450.9987342343760140.002531531247971160.00126576562398558
1460.9982009533172730.003598093365453270.00179904668272663
1470.9974239648767030.005152070246593770.00257603512329689
1480.9970749240805490.005850151838902870.00292507591945143
1490.995575687004230.008848625991541430.00442431299577071
1500.9942883655255020.01142326894899560.0057116344744978
1510.9923012828016440.01539743439671240.00769871719835622
1520.9895072099135680.02098558017286400.0104927900864320
1530.9845275026364020.03094499472719530.0154724973635976
1540.9773980307383070.04520393852338700.0226019692616935
1550.9676481322504610.06470373549907730.0323518677495387
1560.964041140389910.0719177192201820.035958859610091
1570.9501418576534750.0997162846930490.0498581423465245
1580.9429985918084530.1140028163830930.0570014081915467
1590.9447675557633390.1104648884733230.0552324442366614
1600.9811072765434470.03778544691310610.0188927234565530
1610.9874432393432920.02511352131341530.0125567606567076
1620.9846602915805930.03067941683881350.0153397084194067
1630.9784472975521060.04310540489578730.0215527024478936
1640.971788632252880.05642273549424140.0282113677471207
1650.956793026444410.08641394711117840.0432069735555892
1660.9379820036801660.1240359926396670.0620179963198336
1670.9257848249273360.1484303501453280.0742151750726642
1680.8946389020542410.2107221958915180.105361097945759
1690.8531418738545480.2937162522909040.146858126145452
1700.8869129421329820.2261741157340360.113087057867018
1710.8538955529757530.2922088940484930.146104447024247
1720.79539102905450.4092179418910.2046089709455
1730.7842182040996050.431563591800790.215781795900395
1740.8076567732052630.3846864535894740.192343226794737
1750.7382128977228010.5235742045543980.261787102277199
1760.6364457756008330.7271084487983340.363554224399167
1770.5186558596888630.9626882806222730.481344140311137
1780.3914807257270140.7829614514540280.608519274272986
1790.3259616870999640.6519233741999280.674038312900036
1800.2304349755991650.460869951198330.769565024400835


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level670.403614457831325NOK
5% type I error level960.578313253012048NOK
10% type I error level1100.662650602409639NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/102taw1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/102taw1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/1vack1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/1vack1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/2okcn1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/2okcn1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/3okcn1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/3okcn1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/4okcn1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/4okcn1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/5hbbq1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/5hbbq1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/6hbbq1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/6hbbq1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/7r2sb1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/7r2sb1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/8r2sb1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/8r2sb1293527067.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/92taw1293527067.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526948wv56qkoy8rt5fhy/92taw1293527067.ps (open in new window)


 
Parameters (Session):
par1 = 2 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
 
Parameters (R input):
par1 = 2 ; par2 = Do not include Seasonal Dummies ; par3 = No 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