Home » date » 2010 » Dec » 24 »

multiple regression

*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: Fri, 24 Dec 2010 11:02:48 +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/24/t1293188433eo02pkewoj75zsn.htm/, Retrieved Fri, 24 Dec 2010 12:00:45 +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/24/t1293188433eo02pkewoj75zsn.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 «
4 1 27 5 26 49 35 4 1 36 4 25 45 34 5 1 25 4 17 54 13 2 1 27 3 37 36 35 3 2 25 3 35 36 28 5 2 44 3 15 53 32 4 1 50 4 27 46 35 4 1 41 4 36 42 36 4 1 48 5 25 41 27 4 2 43 4 30 45 29 5 2 47 2 27 47 27 4 2 41 3 33 42 28 3 1 44 2 29 45 29 4 2 47 5 30 40 28 3 2 40 3 25 45 30 3 2 46 3 23 40 25 4 1 28 3 26 42 15 3 1 56 3 24 45 33 4 2 49 4 35 47 31 2 2 25 4 39 31 37 4 2 41 4 23 46 37 3 2 26 3 32 34 34 4 1 50 5 29 43 32 4 1 47 4 26 45 21 3 1 52 2 21 42 25 3 2 37 5 35 51 32 2 2 41 3 23 44 28 4 1 45 4 21 47 22 5 2 26 4 28 47 25 4 1 3 30 41 26 2 1 52 4 21 44 34 5 1 46 2 29 51 34 4 1 58 3 28 46 36 3 1 54 5 19 47 36 4 1 29 3 26 46 26 2 2 50 3 33 38 26 3 1 43 2 34 50 34 3 2 30 3 33 48 33 3 2 47 2 40 36 31 5 1 45 3 24 51 33 2 48 1 35 35 22 4 2 48 3 35 49 29 4 2 26 4 32 38 24 4 1 46 5 20 47 37 2 2 3 35 36 32 4 2 50 3 35 47 23 3 1 25 4 21 46 29 4 1 47 2 33 43 35 1 2 47 2 40 53 20 2 1 41 3 22 55 28 2 2 45 2 35 39 26 4 2 41 4 20 55 36 3 2 45 5 28 41 26 4 2 40 3 46 33 33 3 1 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 time13 seconds
R Server'George Udny Yule' @ 72.249.76.132
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
Teamwork33[t] = + 55.6998054685839 -0.189599030063311geslacht[t] -0.36257731331915leeftijd[t] -0.312586350508122opleiding[t] -0.437634633702588Neuroticisme[t] -0.193414361348253Extraversie[t] -0.451755541671208`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)55.69980546858395.40410910.306900
geslacht-0.1895990300633110.056822-3.33670.0010220.000511
leeftijd-0.362577313319150.059629-6.080500
opleiding-0.3125863505081220.076485-4.08696.5e-053.2e-05
Neuroticisme-0.4376346337025880.057654-7.590700
Extraversie-0.1934143613482530.065404-2.95720.0035030.001751
`Openheid `-0.4517555416712080.057789-7.817400


Multiple Linear Regression - Regression Statistics
Multiple R0.726089862984427
R-squared0.527206489128744
Adjusted R-squared0.51211733452647
F-TEST (value)34.9394318651416
F-TEST (DF numerator)6
F-TEST (DF denominator)188
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation8.51089716761969
Sum Squared Residuals13617.8496723858


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
147.49043908553882-3.49043908553882
246.2028772369415-2.20287723694151
3521.438441876034-16.438441876034
425.81601751335397-3.81601751335397
5310.3891311690326-7.38913116903258
657.1577885804154-2.15778858041540
74-0.3936443199512184.39364431995122
84-0.7472582996803514.74725829968035
945.47530936369507-1.47530936369507
1043.545841553487260.454158446512739
1154.550291262980580.449708737019420
1244.30267725524188-0.302677255241885
1334.43567060495026-1.43567060495026
1443.201773298115010.79822670188499
1536.68257747079457-3.68257747079457
1638.60823237338215-5.60823237338215
17418.1420458360980-14.1420458360980
1830.1533074964404452.84669250355956
194-2.108135300979516.10813530097951
2025.22727821541455-3.22727821541455
2143.526979921325770.473020078674229
2239.0157532294905-6.0157532294905
2340.3540097711938733.64599022880613
2447.64971419845399-3.64971419845399
2537.42339441874735-4.42339441874735
2630.7047931212779572.29520687872204
2728.29219486957127-6.29219486957127
2849.72445772923752-5.72445772923752
29512.0051185913063-7.00511859130632
30421.1695795231163-17.1695795231163
3119.73524341423399-8.73524341423399
3216.48561452294026-5.48561452294026
3316.41353518685714-5.41353518685714
3418.3706636596714-7.37066365967139
35114.9229789148632-13.9229789148632
36211.8026163579263-9.80261635792626
3716.38087003596339-5.38087003596339
3829.86435009272884-7.86435009272884
3929.5505726852-7.5505726852
4018.9724934369157-7.9724934369157
414820.574347734373727.4256522656263
424812.755498331215235.2445016687848
432619.73200980688296.26799019311715
444615.325884324967930.6741156750321
4531.283148579551441.71685142044856
46312.0330128244449-9.03301282444492
4742.798201905132541.20179809486746
4820.8547169210410331.14528307895897
4923.05685881270109-1.05685881270109
5031.243359395104341.75664060489566
5126.13673461768359-4.13673461768359
524-1.315767982536605.3157679825366
5357.19052874315968-2.19052874315968
54310.0906202084505-7.09062020845054
5548.5589228315201-4.55892283152010
5654.524788577985660.475211422014343
575-3.590288685521728.59028868552172
5833.55667583791473-0.55667583791473
5947.8463824282773-3.8463824282773
6031.945508626919881.05449137308012
613-1.180919580395124.18091958039512
62212.2205870112505-10.2205870112505
6338.17655727478-5.17655727477999
6449.92320152995496-5.92320152995495
654-0.3173910069354644.31739100693546
664-2.031044677698956.03104467769895
6740.5124350693020133.48756493069799
683-0.2366507179530863.23665071795309
6936.81370066366179-3.81370066366179
703-1.381882234810984.38188223481098
7129.14829708889404-7.14829708889404
72313.0848406879182-10.0848406879182
7337.10599088934759-4.10599088934759
7437.58704453420239-4.58704453420239
75310.5228571031859-7.52285710318591
7650.2748225693119124.72517743068809
77313.0671145430685-10.0671145430685
785-0.2001727224124825.20017272241248
7940.9215993957380233.07840060426198
8047.45902975122535-3.45902975122536
81412.4558171993673-8.45581719936729
82519.8807693942138-14.8807693942138
8343.273419149926010.726580850073986
845-0.5295962347105195.52959623471052
8532.598970494246810.401029505753186
863-1.460444069536574.46044406953657
87214.5647980920523-12.5647980920523
8832.238546746573960.76145325342604
8941.984743242834362.01525675716564
9057.22862136896056-2.22862136896056
9159.7920390734676-4.79203907346761
9232.788908341102510.211091658897495
932-0.2845123759444782.28451237594448
943-0.0847929395324013.0847929395324
95411.3852339257169-7.38523392571692
9616.91731042626236-5.91731042626236
9749.52457273048141-5.52457273048141
9830.8978399056181542.10216009438185
9939.6197855591749-6.6197855591749
10044.55595875620675-0.555958756206747
101313.2430831143542-10.2430831143542
10246.44344747070793-2.44344747070793
10326.66629642871685-4.66629642871685
10431.834330342490571.16566965750943
105312.1496154968744-9.14961549687444
10630.7583735906996632.24162640930034
10727.40157032588241-5.40157032588241
1085-0.3287149523098235.32871495230982
109511.0764859960405-6.07648599604053
1104-0.3345793522207444.33457935222074
11121.566618921430150.433381078569853
112315.0818025005225-12.0818025005225
113310.1449546796304-7.14495467963036
11435.85813409527247-2.85813409527247
1154-0.3005009212270964.3005009212271
11651.215044168903293.78495583109671
117410.5089164907078-6.50891649070777
1182225.2902108490328-3.29021084903285
1191625.703353397549-9.70335339754897
1203624.658420633921911.3415793660781
1213530.12522031878584.87477968121417
1222526.9689653449368-1.96896534493676
1232733.8978088897112-6.89780888971123
1243225.59336823921426.40663176078581
1253622.268864185064613.7311358149354
1265127.621335944529723.3786640554703
1273024.28542433680595.71457566319407
1282025.7606513910220-5.76065139102197
1292923.66975007400805.33024992599203
1302626.3567442029008-0.35674420290077
1312024.7596110009139-4.75961100091395
1324024.139682530741815.8603174692582
1332923.65681593609685.34318406390317
1343222.24180913918489.75819086081517
1353330.27767321181342.7223267881866
1363229.27773076334752.72226923665249
1373426.33246869854627.66753130145384
1382422.45308504167961.54691495832038
1392526.5822879859135-1.58228798591351
1404128.032673521380812.9673264786192
1413923.735665462760115.2643345372399
1422121.4490311081455-0.449031108145488
1433823.345761658866614.6542383411334
1442826.64741155147571.35258844852431
1453724.089549079524912.9104509204751
1464612.463381362949133.5366186370509
1473912.305878749480326.6941212505197
1482111.57118270374359.42881729625647
1493124.48489149093066.51510850906942
1502510.894697334097414.1053026659026
1512913.735649231037715.2643507689623
1523122.83578773665978.16421226334031
15335.2871865835644-2.2871865835644
1544-2.596575845688186.59657584568818
155110.045590208559-9.045590208559
15619.52600784199112-8.52600784199112
15752.887301060132172.11269893986783
15844.38806400479118-0.388064004791184
159311.5278536673446-8.52785366734465
16032.085325274116180.914674725883816
16143.005833176371930.99416682362807
16230.5749156308463712.42508436915363
163212.3705193858617-10.3705193858617
16411.45944363063282-0.459443630632818
16518.13608420833946-7.13608420833946
16654.145638572322110.854361427677887
1674-1.775496689979645.77549668997964
168312.9822080310787-9.98220803107873
16949.10209637283875-5.10209637283875
170513.507974096692-8.50797409669199
1714-0.3720172215578854.37201722155788
172410.0298591080536-6.02985910805359
1732-1.528719059253483.52871905925348
17433.70069691844701-0.700696918447011
1754-0.4698137122851094.46981371228511
17633.42071674560706-0.420716745607056
17741.276557271616632.72344272838337
17833.28638587754914-0.286385877549136
17946.5252853613354-2.5252853613354
18010.4683764055988050.531623594401195
18124.29927877414268-2.29927877414268
1823-8.485416286624811.4854162866248
18331.414492342348791.58550765765121
1845-9.1332635274227614.1332635274228
18540.3821078673381013.6178921326619
18634.60459360858908-1.60459360858908
18731.363873110385241.63612688961476
18835.76147521941344-2.76147521941344
189311.9830168702179-8.98301687021793
19046.60651852317355-2.60651852317355
191312.1621882751171-9.1621882751171
192210.0663235120214-8.0663235120214
1934-4.534112952068.53411295206
19425.16872141993684-3.16872141993684
19547.49043908553895-3.49043908553895


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
100.00021598355666220.00043196711332440.999784016443338
111.46898784608529e-052.93797569217058e-050.99998531012154
126.47391040054466e-071.29478208010893e-060.99999935260896
131.42939907504496e-072.85879815008991e-070.999999857060093
148.76737946807497e-091.75347589361499e-080.99999999123262
153.48740631134593e-096.97481262269186e-090.999999996512594
162.58045211477036e-105.16090422954072e-100.999999999741955
172.70998481543949e-115.41996963087897e-110.9999999999729
183.04604061880162e-126.09208123760324e-120.999999999996954
194.59578877009915e-139.19157754019831e-130.99999999999954
202.94392286527705e-145.8878457305541e-140.99999999999997
211.81292991311512e-153.62585982623024e-150.999999999999998
222.12178326141188e-164.24356652282376e-161
231.31978406470402e-172.63956812940804e-171
247.89269626156615e-191.57853925231323e-181
254.63504125564217e-209.27008251128435e-201
262.03002650192292e-194.06005300384585e-191
274.84475265354455e-199.6895053070891e-191
284.0623244326456e-208.1246488652912e-201
297.97349869816906e-211.59469973963381e-201
301.35975919985693e-212.71951839971386e-211
311.30837291067363e-222.61674582134725e-221
321.54593735070913e-233.09187470141826e-231
331.25881621932171e-242.51763243864341e-241
341.10894328696068e-252.21788657392136e-251
352.36739003898186e-264.73478007796373e-261
367.62434716354625e-271.52486943270925e-261
371.84682593789920e-273.69365187579841e-271
382.86479148741725e-285.72958297483451e-281
395.55277178399254e-291.11055435679851e-281
402.71954942962187e-295.43909885924374e-291
416.36432108100397e-050.0001272864216200790.99993635678919
420.0004105907232427190.0008211814464854370.999589409276757
430.001567633027974460.003135266055948910.998432366972026
440.01563058825674790.03126117651349580.984369411743252
450.054849496726530.109698993453060.94515050327347
460.07839547526319230.1567909505263850.921604524736808
470.08206500176131520.1641300035226300.917934998238685
480.07033835218464010.1406767043692800.92966164781536
490.05511016022509720.1102203204501940.944889839774903
500.05815670432904160.1163134086580830.941843295670958
510.04655360240973280.09310720481946560.953446397590267
520.06229025151988860.1245805030397770.937709748480111
530.04842828169940330.09685656339880650.951571718300597
540.04257441589055140.08514883178110270.957425584109449
550.04862830006037090.09725660012074190.951371699939629
560.03801172715538010.07602345431076030.96198827284462
570.036004254199080.072008508398160.96399574580092
580.03244354718242440.06488709436484890.967556452817576
590.03506153224811790.07012306449623570.964938467751882
600.03197972158050890.06395944316101770.96802027841949
610.02518367997337990.05036735994675980.97481632002662
620.0307667209092550.061533441818510.969233279090745
630.02695019817842720.05390039635685440.973049801821573
640.02200097273011570.04400194546023140.977999027269884
650.01791335638199110.03582671276398210.98208664361801
660.01398846707092530.02797693414185060.986011532929075
670.01077712763893250.02155425527786500.989222872361068
680.01003770032601150.02007540065202300.989962299673989
690.007895194893503910.01579038978700780.992104805106496
700.006921850360738320.01384370072147660.993078149639262
710.005151738465314960.01030347693062990.994848261534685
720.00443158616369550.0088631723273910.995568413836305
730.006512863425902150.01302572685180430.993487136574098
740.006786686356327430.01357337271265490.993213313643672
750.00542181519495730.01084363038991460.994578184805043
760.004724941191992240.009449882383984480.995275058808008
770.005125033016239540.01025006603247910.99487496698376
780.005727813151969610.01145562630393920.99427218684803
790.004553457759442390.009106915518884780.995446542240558
800.003485571371499640.006971142742999280.9965144286285
810.002784784030544830.005569568061089650.997215215969455
820.003058917239159580.006117834478319160.99694108276084
830.002220686415148250.00444137283029650.997779313584852
840.002018723203696270.004037446407392540.997981276796304
850.001486114596497250.00297222919299450.998513885403503
860.002167880351719530.004335760703439060.99783211964828
870.002213869664460290.004427739328920590.99778613033554
880.001832082169519770.003664164339039530.99816791783048
890.001382070000984080.002764140001968170.998617929999016
900.0009792417507692830.001958483501538570.99902075824923
910.0006813992816985940.001362798563397190.999318600718301
920.0005080994977250680.001016198995450140.999491900502275
930.0004782805853092090.0009565611706184180.99952171941469
940.0003509631470023010.0007019262940046020.999649036852998
950.0003316340052130780.0006632680104261570.999668365994787
960.0002451273586961710.0004902547173923420.999754872641304
970.0002188548383332490.0004377096766664990.999781145161667
980.0001781248497474660.0003562496994949320.999821875150253
990.0002597578169325220.0005195156338650450.999740242183067
1000.0001915552534067190.0003831105068134370.999808444746593
1010.0001515960384585390.0003031920769170790.999848403961541
1020.0001003509307892270.0002007018615784530.99989964906921
1030.0001611106566634410.0003222213133268820.999838889343337
1040.0001122434673677350.0002244869347354700.999887756532632
1059.06556921776654e-050.0001813113843553310.999909344307822
1067.70631204286503e-050.0001541262408573010.999922936879571
1076.16398339991299e-050.0001232796679982600.999938360166
1084.54095164131261e-059.08190328262521e-050.999954590483587
1097.25040277361824e-050.0001450080554723650.999927495972264
1105.80819581568907e-050.0001161639163137810.999941918041843
1114.60505596644957e-059.21011193289914e-050.999953949440336
1125.33111158856538e-050.0001066222317713080.999946688884114
1134.39428816598311e-058.78857633196622e-050.99995605711834
1145.76035197264051e-050.0001152070394528100.999942396480274
1154.66613068630819e-059.33226137261638e-050.999953338693137
1165.09551491611034e-050.0001019102983222070.999949044850839
1170.0001632230936550030.0003264461873100060.999836776906345
1180.007129520396518950.01425904079303790.992870479603481
1190.04937991602752220.09875983205504430.950620083972478
1200.2605406043920890.5210812087841770.739459395607911
1210.3949850304963920.7899700609927840.605014969503608
1220.4365478953079220.8730957906158440.563452104692078
1230.3994668734945690.7989337469891370.600533126505431
1240.4425910312425140.8851820624850290.557408968757486
1250.5381545470751170.9236909058497660.461845452924883
1260.9678969355240850.06420612895183050.0321030644759153
1270.9687628535395040.0624742929209920.031237146460496
1280.9916635594392950.016672881121410.008336440560705
1290.992190792074340.01561841585132130.00780920792566063
1300.9920177371838720.01596452563225590.00798226281612796
1310.9946701703290430.01065965934191340.00532982967095671
1320.9981540921683480.003691815663304540.00184590783165227
1330.9978597335185890.004280532962822510.00214026648141126
1340.9973343395765260.005331320846948110.00266566042347406
1350.9967764988791080.006447002241784450.00322350112089222
1360.9977190573466880.0045618853066240.002280942653312
1370.9970084484772820.005983103045435670.00299155152271783
1380.9984271360520920.003145727895815790.00157286394790789
1390.99841800411550.003163991769001930.00158199588450096
1400.9985852330538720.002829533892256170.00141476694612809
1410.9995185584260160.0009628831479669580.000481441573983479
1420.9999494506185050.0001010987629895655.05493814947824e-05
1430.999950730203359.85395932984664e-054.92697966492332e-05
1440.9999196668618990.0001606662762022038.03331381011017e-05
1450.9999550567697198.98864605624566e-054.49432302812283e-05
1460.9999999966567686.68646338306663e-093.34323169153332e-09
1470.9999999974532735.09345350101669e-092.54672675050835e-09
1480.99999999511929.76159905468904e-094.88079952734452e-09
1490.9999999979095854.18082969165697e-092.09041484582849e-09
1500.9999999976900244.61995127703249e-092.30997563851624e-09
1510.9999999980951263.80974830521087e-091.90487415260543e-09
15213.30634857095627e-271.65317428547813e-27
15312.79630346664577e-261.39815173332289e-26
15412.15871539322375e-251.07935769661187e-25
15518.30831465454634e-254.15415732727317e-25
15617.19969358263877e-253.59984679131939e-25
15712.05820906109168e-241.02910453054584e-24
15811.66759614120743e-238.33798070603714e-24
15911.33597651320567e-226.67988256602833e-23
16011.20825050737338e-216.04125253686689e-22
16111.04677953003320e-205.23389765016598e-21
16218.64889831781923e-204.32444915890962e-20
16316.25197171023116e-193.12598585511558e-19
16412.25171591530662e-181.12585795765331e-18
16511.19402217062670e-185.97011085313349e-19
16615.80672969566772e-182.90336484783386e-18
16715.04938992744853e-172.52469496372426e-17
16814.15616664309051e-162.07808332154526e-16
1690.9999999999999983.7896173548211e-151.89480867741055e-15
1700.999999999999992.05355241677018e-141.02677620838509e-14
1710.9999999999999331.32990798283547e-136.64953991417735e-14
1720.9999999999997664.69081929565034e-132.34540964782517e-13
1730.99999999999921.60057042611828e-128.00285213059138e-13
1740.9999999999928741.42513972608697e-117.12569863043483e-12
1750.9999999999563878.72253583271511e-114.36126791635756e-11
1760.9999999996450777.09844999959725e-103.54922499979862e-10
1770.9999999979738534.05229422485849e-092.02614711242925e-09
1780.9999999845665733.08668546203582e-081.54334273101791e-08
1790.9999999452390671.09521866451742e-075.4760933225871e-08
1800.9999998713492172.57301566426044e-071.28650783213022e-07
1810.999999157671191.68465762039943e-068.42328810199713e-07
1820.9999981740121573.65197568562205e-061.82598784281103e-06
1830.999985407657642.91846847209865e-051.45923423604932e-05
1840.9998701799544660.0002596400910674650.000129820045533732
1850.9985037709930020.002992458013995610.00149622900699781


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level1290.732954545454545NOK
5% type I error level1480.840909090909091NOK
10% type I error level1630.926136363636364NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/1053921293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/1053921293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/1rbbt1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/1rbbt1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/2rbbt1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/2rbbt1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/3rbbt1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/3rbbt1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/422tw1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/422tw1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/522tw1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/522tw1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/622tw1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/622tw1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/7utaz1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/7utaz1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/8utaz1293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/8utaz1293188553.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/953921293188553.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293188433eo02pkewoj75zsn/953921293188553.ps (open in new window)


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