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 11:47:43 +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/t1293536724g4w3es2qehr5590.htm/, Retrieved Tue, 28 Dec 2010 12:45:27 +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/t1293536724g4w3es2qehr5590.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 «
27 5 40 26 49 35 36 4 45 25 45 34 25 4 38 17 54 13 27 3 28 37 36 35 25 3 35 36 28 44 3 38 15 53 32 50 4 39 27 46 35 41 4 37 36 42 36 48 5 30 25 41 27 43 4 30 30 45 29 47 2 30 27 47 27 41 3 26 33 42 28 44 2 29 29 45 29 47 5 31 30 40 28 40 3 27 25 45 30 46 3 25 23 40 25 28 3 39 26 42 15 56 3 35 24 45 33 49 4 27 35 47 31 25 4 40 39 31 37 41 4 34 23 46 37 26 3 32 32 34 34 50 5 34 29 43 32 47 4 38 26 45 21 52 2 21 21 42 25 37 5 33 35 51 32 41 3 27 23 44 28 45 4 35 21 47 22 26 4 33 28 47 25 3 36 30 41 26 52 4 21 44 34 46 2 37 29 51 34 58 3 37 28 46 36 54 5 37 19 47 36 29 3 32 26 46 26 50 3 25 33 38 26 43 2 31 34 50 34 30 3 33 33 48 33 47 2 18 40 36 31 45 3 42 24 51 33 48 1 26 35 35 22 48 3 26 35 49 29 26 4 32 32 38 24 46 5 31 20 47 37 3 29 35 36 32 50 3 35 35 47 23 25 4 44 21 46 29 47 2 35 33 43 35 47 2 30 40 53 20 41 3 32 22 55 28 45 2 24 35 39 26 41 4 34 20 55 36 45 5 27 28 41 26 40 3 31 46 33 33 29 4 38 18 52 25 34 5 41 22 42 29 45 5 40 20 56 32 52 3 2 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 time7 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk
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
Intrinsieke_waarden[t] = + 92.3771983580845 -0.304005715886726leeftijd[t] -0.516637029897194opleiding[t] -0.541055956742284Neuroticisme[t] -0.47626425329013Extraversie[t] -0.332630416187557`Openheid `[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)92.37719835808457.260912.722600
leeftijd-0.3040057158867260.081221-3.74290.0002410.000121
opleiding-0.5166370298971940.087621-5.896300
Neuroticisme-0.5410559567422840.073745-7.336900
Extraversie-0.476264253290130.091552-5.20211e-060
`Openheid `-0.3326304161875570.082601-4.0278.2e-054.1e-05


Multiple Linear Regression - Regression Statistics
Multiple R0.647112133930724
R-squared0.418754113880375
Adjusted R-squared0.403377238586205
F-TEST (value)27.2327183429225
F-TEST (DF numerator)5
F-TEST (DF denominator)189
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation11.8843861455204
Sum Squared Residuals26694.1018365531


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
14032.53939102657647.46060897342359
24533.098719999583711.9012800004163
33843.4700909886035-5.47009098860349
42833.8124848549776-5.81248485497759
53535.7779925241264-0.777992524126385
61511.28503145232793.71496854767208
72715.816661389557611.1833386104424
83616.209482109718119.7905178902819
92526.012521920403-1.01252192040295
103021.86925363799018.13074636200994
112724.34346415998452.65653584001546
123327.33713084554525.66286915445479
132922.99390209966076.0060979003393
143026.55856784252063.44143215747942
152523.57953660646581.42046339353421
162335.6867592077983-12.6867592077983
172622.82071975540273.17928024459731
182417.01975635885526.98024364114482
193528.70239346374316.29760653625693
203922.463335204214416.5366647957856
212322.43677427527670.563225724723339
223223.71238830323428.2876116967658
232919.15201895612879.84798104387127
242619.88311934419586.11688065580424
252133.9815273841012-12.9815273841012
263517.33599082921317.664009170787
272325.4057514859759-2.40575148597589
282128.5230450879891-7.52304508798912
292835.7780259602269-7.77802596022694
304125.770163978110215.2298360218898
313425.11262109332188.88737890667822
323412.095180422750121.9048195772499
333616.194066608511719.8059333914883
343634.55556052767011.44443947232986
352623.91039536808522.08960463191481
362628.1833250494164-2.18332504941643
373427.57187732674786.42812267325217
383325.17692633391367.8230736660864
393121.87124835316599.12875164683409
403323.63723165424999.36276834575006
412227.6068327512708-5.6068327512708
422929.8050986306249-0.805098630624858
432425.4353701352059-1.43537013520592
443734.93824785297682.06175214702324
455034.966126327506315.0338736724937
462536.1011883120994-11.1011883120994
474734.68229704744812.317702952552
484732.547400368862814.4525996311372
494141.7506616865069-0.750661686506878
504537.0365285881817.96347141181904
514142.0785958985905-1.07859589859045
524532.179884632219112.8201153677809
534034.79204236255325.20795763744681
542939.046374803845-10.046374803845
553434.1029920598119-0.102992059811904
564536.21802618475568.78197381524437
575236.974958704548615.0250412954514
584138.78585183959742.21414816040256
594845.62059404755012.37940595244995
604538.72435663967436.27564336032571
615432.248067427859621.7519325721404
622538.6519987606336-13.6519987606336
632635.4307443692423-9.43074436924228
642833.5926395228081-5.59263952280808
655040.44639099276119.5536090072389
664834.166194225887313.8338057741127
675134.106507197385416.8934928026146
685336.726900585652816.2730994143472
693734.46762373156082.53237626843921
705649.86844840732436.13155159267575
714341.16152819525591.83847180474405
723434.5386225249966-0.538622524996606
734244.7650788261328-2.76507882613283
743235.6497987584591-3.64979875845913
753131.2451694013108-0.245169401310842
764638.57455632755817.42544367244187
773044.703843978225-14.703843978225
784727.465806096686819.5341939033132
793325.0510087468737.94899125312705
802531.1538757106491-6.15387571064914
812539.5294990328182-14.5294990328182
822136.1234666806205-15.1234666806205
833633.26578988052522.73421011947483
845043.18271629206286.81728370793717
854839.3588088792548.64119112074601
864830.253488177897817.7465118221022
872540.5219061335348-15.5219061335348
884841.64848188750726.35151811249281
894934.69509297599414.304907024006
902730.1836863881547-3.18368638815467
912830.0967677433173-2.09676774331727
924330.316332468132512.6836675318675
934840.19137830952297.8086216904771
944831.364072705064216.6359272949358
952545.9924981336161-20.9924981336161
964945.45327150183273.5467284981673
972637.0553285366894-11.0553285366894
985142.01164042355938.98835957644072
992527.9960979307587-2.99609793075874
1002937.5064670741246-8.50646707412458
1012942.2527611638624-13.2527611638624
1024334.17917623941268.82082376058744
1034646.1626339579283-0.162633957928265
1044430.747903461784913.2520965382151
1052536.3060603054146-11.3060603054146
1065138.567379161383412.4326208386166
1074237.54453852946164.4554614705384
1085332.166405717022520.8335942829775
1092534.6731417780003-9.6731417780003
1104932.59462981284816.405370187152
1115136.498650457604814.5013495423952
1122044.0841045910609-24.0841045910609
1134440.83813023546043.16186976453962
1143833.40867293496424.5913270650358
1154632.398996892534413.6010031074656
1164235.10683607384836.8931639261517
1172919.37846443702569.62153556297436
118421.2967246445253-17.2967246445253
119214.666621903141-12.666621903141
120316.4396784459303-13.4396784459303
121319.4273755534065-16.4273755534065
1221350.2730748361739-37.2730748361739
1232229.9084777145267-7.90847771452665
1242925.2316957782223.76830422177804
1253025.48721941300744.51278058699261
1262427.6734778966619-3.67347789666189
1272023.0984776134085-3.09847761340853
1282922.01079194304436.98920805695573
1292623.2087712798552.79122872014495
1302021.500645022831-1.50064502283098
1314018.897635285851821.1023647141482
1322918.10069551452410.899304485476
1333217.431752748597514.5682472514025
1343332.80954827317630.190451726823726
1353221.113473554389510.8865264456105
1363421.03731197209512.962688027905
1372424.016547310793-0.016547310792958
1382523.66114044620441.33885955379561
1394134.50085533378656.49914466621346
1403924.677395547868714.3226044521313
1412123.9763709875974-2.97637098759737
1423826.439802677562511.5601973224375
1432828.7780775037463-0.778077503746348
1443738.7140546792898-1.71405467928981
1454628.911264895722317.0887351042777
1463914.790853548670124.2091464513299
1472138.780305885236-17.780305885236
1483133.753746160025-2.75374616002501
1492528.1176105717317-3.11761057173165
1502913.770996294099415.2290037059006
1513142.0360213842561-11.0360213842561
1524042.4240390559347-2.42403905593473
1534934.570239182449714.4297608175503
1543842.0895052201835-4.08950522018346
1553238.6754747923305-6.67547479233046
1564641.8686588126734.13134118732701
1573232.5133332386866-0.513333238686616
1584147.3196832689716-6.31968326897162
1594340.06517270646652.93482729353352
1604431.077647093877212.9223529061228
161516.7399385020929-11.7399385020929
162326.7186080374193-23.7186080374193
163121.9011043646141-20.9011043646141
164221.3240454814979-19.3240454814979
16559.57740478933114-4.57740478933114
166419.5031923206486-15.5031923206486
167427.321978216279-23.321978216279
16849.37828119328644-5.37828119328644
169319.9414576990592-16.9414576990592
170413.4385706627882-9.43857066278816
171322.4876931676216-19.4876931676216
172317.7183904207536-14.7183904207536
173415.8052158379184-11.8052158379184
174412.9331713735988-8.93317137359878
175218.2126673382932-16.2126673382932
176310.8562759109007-7.85627591090074
177513.9188822022708-8.91888220227084
178212.0159889606893-10.0159889606893
179518.5411390670181-13.5411390670181
180314.396718147705-11.396718147705
18125.36960708630196-3.36960708630196
18236.38005898918652-3.38005898918652
18331.973596555256891.02640344474311
184410.1361983489485-6.13619834894854
185418.9183453140679-14.9183453140679
186317.6287945328651-14.6287945328651
187325.3155455445228-22.3155455445228
188427.4724203861792-23.4724203861792
189418.09587655163-14.09587655163
190324.7491279382184-21.7491279382184
191327.7905759433758-24.7905759433758
19247.41100623324648-3.41100623324648
193523.3665736085699-18.3665736085699
194516.8557878146264-11.8557878146264
195411.915572111654-7.91557211165402


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
90.06721371142636730.1344274228527350.932786288573633
100.03275321015199060.06550642030398110.96724678984801
110.02480131738878260.04960263477756520.975198682611217
120.01079721371462230.02159442742924450.989202786285378
130.003696940048824160.007393880097648330.996303059951176
140.00125073936903780.00250147873807560.998749260630962
150.000448999634291150.00089799926858230.99955100036571
160.0001357265551329320.0002714531102658640.999864273444867
170.0002604367106237470.0005208734212474940.999739563289376
180.000151194804344730.0003023896086894590.999848805195655
190.001096843667874930.002193687335749850.998903156332125
200.0006238798796513470.001247759759302690.999376120120349
210.0003012964824493050.0006025929648986090.99969870351755
220.0001354427345132430.0002708854690264850.999864557265487
235.63708273697442e-050.0001127416547394880.99994362917263
242.28557000142778e-054.57114000285557e-050.999977144299986
251.52932330628172e-053.05864661256344e-050.999984706766937
263.64338020357563e-057.28676040715126e-050.999963566197964
271.79571001928842e-053.59142003857683e-050.999982042899807
289.01006869843972e-061.80201373968794e-050.999990989931302
294.79425746253434e-069.58851492506868e-060.999995205742537
302.48574171451135e-064.9714834290227e-060.999997514258286
311.35879113787931e-062.71758227575862e-060.999998641208862
327.44895022277805e-071.48979004455561e-060.999999255104978
334.17058319103472e-078.34116638206943e-070.999999582941681
341.77808876021986e-073.55617752043973e-070.999999822191124
351.50370896498666e-073.00741792997332e-070.999999849629103
361.95733983287409e-073.91467966574818e-070.999999804266017
371.19836717999224e-072.39673435998448e-070.999999880163282
385.14557242066258e-081.02911448413252e-070.999999948544276
392.71737775985396e-085.43475551970791e-080.999999972826222
401.45296568553963e-082.90593137107926e-080.999999985470343
412.04367517711704e-084.08735035423407e-080.999999979563248
422.81220837939698e-085.62441675879396e-080.999999971877916
432.10222559048526e-084.20445118097051e-080.999999978977744
441.11290202599758e-082.22580405199516e-080.99999998887098
458.30664316587167e-091.66132863317433e-080.999999991693357
466.914092914075e-071.382818582815e-060.999999308590709
474.25345995243362e-078.50691990486723e-070.999999574654005
482.70133547472604e-075.40267094945209e-070.999999729866453
491.33386644511617e-072.66773289023234e-070.999999866613355
506.56522326325853e-081.31304465265171e-070.999999934347767
513.00367398771681e-086.00734797543361e-080.99999996996326
521.58173523240309e-083.16347046480617e-080.999999984182648
537.78054766117728e-091.55610953223546e-080.999999992219452
541.58450885611884e-083.16901771223767e-080.999999984154911
551.77703602262092e-083.55407204524185e-080.99999998222964
561.04752913865117e-082.09505827730234e-080.999999989524709
571.42172503032749e-082.84345006065498e-080.99999998578275
586.70933142702049e-091.3418662854041e-080.999999993290669
597.09423144472389e-091.41884628894478e-080.999999992905769
603.60374708149876e-097.20749416299753e-090.999999996396253
616.28648990382731e-091.25729798076546e-080.99999999371351
625.49367142736086e-081.09873428547217e-070.999999945063286
632.53612134218436e-075.07224268436872e-070.999999746387866
645.89716557741003e-071.17943311548201e-060.999999410283442
656.35911449346476e-071.27182289869295e-060.99999936408855
665.43201449942562e-071.08640289988512e-060.99999945679855
676.87915598153579e-071.37583119630716e-060.999999312084402
681.15881651738289e-062.31763303476577e-060.999998841183483
697.74171759185466e-071.54834351837093e-060.99999922582824
701.88674086463135e-063.77348172926271e-060.999998113259135
711.06535167015015e-062.1307033403003e-060.99999893464833
728.07317299838075e-071.61463459967615e-060.9999991926827
734.51221627025701e-079.02443254051402e-070.999999548778373
744.82529523692141e-079.65059047384282e-070.999999517470476
754.58540313524617e-079.17080627049233e-070.999999541459687
763.02354568271632e-076.04709136543264e-070.999999697645432
773.65491759163354e-077.30983518326707e-070.99999963450824
783.95007724882972e-077.90015449765944e-070.999999604992275
794.15731402250013e-078.31462804500027e-070.999999584268598
809.25968580811202e-071.8519371616224e-060.99999907403142
812.04690410281715e-064.0938082056343e-060.999997953095897
826.58064580461795e-061.31612916092359e-050.999993419354195
834.43950285612772e-068.87900571225544e-060.999995560497144
844.15252537449052e-068.30505074898105e-060.999995847474626
853.63129821268454e-067.26259642536908e-060.999996368701787
864.56078210356307e-069.12156420712615e-060.999995439217896
878.40716417992426e-061.68143283598485e-050.99999159283582
887.15150734065786e-061.43030146813157e-050.99999284849266
898.92039471454802e-061.7840789429096e-050.999991079605285
901.02366186803802e-052.04732373607604e-050.99998976338132
911.03604120976993e-052.07208241953985e-050.999989639587902
928.9622499205936e-061.79244998411872e-050.99999103775008
938.25009810997574e-061.65001962199515e-050.99999174990189
941.22786964859153e-052.45573929718306e-050.999987721303514
952.81423319013909e-055.62846638027818e-050.999971857668099
962.37131179505214e-054.74262359010429e-050.99997628688205
972.9932988455323e-055.98659769106461e-050.999970067011545
983.2653863801272e-056.5307727602544e-050.9999673461362
994.15028715719197e-058.30057431438393e-050.999958497128428
1003.91137076518404e-057.82274153036807e-050.999960886292348
1014.09953813490006e-058.19907626980013e-050.99995900461865
1023.36639360758372e-056.73278721516743e-050.999966336063924
1032.40067102914424e-054.80134205828848e-050.999975993289709
1042.61081031032069e-055.22162062064138e-050.999973891896897
1053.33895978984065e-056.6779195796813e-050.999966610402102
1064.35316166928938e-058.70632333857876e-050.999956468383307
1073.04681687699929e-056.09363375399857e-050.99996953183123
1080.0001043276353394490.0002086552706788990.99989567236466
1090.0001076195404034360.0002152390808068720.999892380459597
1100.0002035125991682830.0004070251983365670.999796487400832
1110.0003693496535133390.0007386993070266790.999630650346487
1120.000914225281968230.001828450563936460.999085774718032
1130.0007569304736153740.001513860947230750.999243069526385
1140.0006729903409333130.001345980681866630.999327009659067
1150.001199288598545990.002398577197091990.998800711401454
1160.001382978558311090.002765957116622190.998617021441689
1170.001530870113788460.003061740227576910.998469129886212
1180.004914987119118290.009829974238236580.995085012880882
1190.01094727201312670.02189454402625340.989052727986873
1200.01801815419036330.03603630838072650.981981845809637
1210.03130838665203350.06261677330406710.968691613347966
1220.1586562194960770.3173124389921540.841343780503923
1230.1492704372621020.2985408745242040.850729562737898
1240.1290272117852260.2580544235704520.870972788214774
1250.1106503271827550.221300654365510.889349672817245
1260.09440415973536750.1888083194707350.905595840264632
1270.08004923806550930.1600984761310190.91995076193449
1280.06788669986100880.1357733997220180.932113300138991
1290.05474359648855080.1094871929771020.94525640351145
1300.04485693602908050.0897138720581610.95514306397092
1310.07662501175818460.1532500235163690.923374988241815
1320.07507208245690080.1501441649138020.9249279175431
1330.09063181008708020.181263620174160.90936818991292
1340.07471402946423780.1494280589284760.925285970535762
1350.0764331605244410.1528663210488820.923566839475559
1360.09691893338041070.1938378667608210.90308106661959
1370.08215698920321060.1643139784064210.91784301079679
1380.06791236858695310.1358247371739060.932087631413047
1390.07233938344450290.1446787668890060.927660616555497
1400.1416198961564430.2832397923128870.858380103843557
1410.1390163554878180.2780327109756360.860983644512182
1420.4857951041848520.9715902083697040.514204895815148
1430.5434353304540460.9131293390919090.456564669545954
1440.6180265167522020.7639469664955960.381973483247798
1450.7325482511515170.5349034976969670.267451748848483
1460.8272322778080640.3455354443838710.172767722191936
1470.8339142253752980.3321715492494050.166085774624702
1480.8053818709372170.3892362581255660.194618129062783
1490.8031041479269770.3937917041460450.196895852073023
1500.9672955978852980.06540880422940470.0327044021147023
1510.9624559661076060.07508806778478890.0375440338923945
1520.9525891245647150.09482175087056970.0474108754352848
1530.9739318467053070.05213630658938540.0260681532946927
1540.967058352964910.06588329407018220.0329416470350911
1550.9637118043775130.07257639124497410.036288195622487
1560.9830883059595690.03382338808086250.0169116940404313
1570.9782423865756870.04351522684862640.0217576134243132
1580.9911270449071460.0177459101857070.00887295509285352
1590.9988892634977880.002221473004424550.00111073650221227
16013.92917506869403e-231.96458753434701e-23
16117.5713629963432e-233.7856814981716e-23
16213.53480096721305e-221.76740048360652e-22
16311.90048674271785e-229.50243371358923e-23
16414.7979147068331e-222.39895735341655e-22
16511.97369744228535e-219.86848721142673e-22
16611.33122940162832e-206.65614700814161e-21
16719.93309456159492e-204.96654728079746e-20
16811.00550669335647e-185.02753346678233e-19
16915.64378661186278e-182.82189330593139e-18
17015.21918766637356e-172.60959383318678e-17
17114.04668000188201e-162.023340000941e-16
1720.9999999999999983.62051334790331e-151.81025667395166e-15
1730.9999999999999872.63125022056261e-141.3156251102813e-14
1740.999999999999882.37978124191467e-131.18989062095734e-13
1750.9999999999995688.64322946759029e-134.32161473379515e-13
1760.9999999999961267.74716567708688e-123.87358283854344e-12
1770.9999999999843053.13895638437187e-111.56947819218593e-11
1780.9999999999501619.96775817252916e-114.98387908626458e-11
1790.9999999999130231.7395449689015e-108.6977248445075e-11
1800.999999998939232.12154161172487e-091.06077080586243e-09
1810.9999999953649449.27011244588052e-094.63505622294026e-09
1820.9999999589255438.21489142068034e-084.10744571034017e-08
1830.9999997544056534.9118869423603e-072.45594347118015e-07
1840.9999960295332327.94093353627038e-063.97046676813519e-06
1850.9999388207274230.0001223585451549416.11792725774705e-05
1860.9995062440010310.0009875119979374890.000493755998968744


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level1340.752808988764045NOK
5% type I error level1410.792134831460674NOK
10% type I error level1500.842696629213483NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293536724g4w3es2qehr5590/10szt91293536851.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293536724g4w3es2qehr5590/10szt91293536851.ps (open in new window)


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


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


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


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


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


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


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


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


http://www.freestatistics.org/blog/date/2010/Dec/28/t1293536724g4w3es2qehr5590/9szt91293536851.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293536724g4w3es2qehr5590/9szt91293536851.ps (open in new window)


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