Home » date » 2010 » Dec » 01 »

*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: Wed, 01 Dec 2010 12:47:37 +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/01/t1291207587kfqinpxzbbjlpca.htm/, Retrieved Wed, 01 Dec 2010 13:46: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/01/t1291207587kfqinpxzbbjlpca.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 5 4 1 36 4 25 45 34 4 5 1 25 4 17 54 13 2 2 1 27 3 37 36 35 3 3 2 25 3 35 36 28 1 5 2 44 3 15 53 32 3 4 1 50 4 27 46 35 2 4 1 41 4 36 42 36 2 4 1 48 5 25 41 27 2 4 2 43 4 30 45 29 2 5 2 47 2 27 47 27 4 4 2 41 3 33 42 28 1 3 1 44 2 29 45 29 6 4 2 47 5 30 40 28 2 3 2 40 3 25 45 30 2 3 2 46 3 23 40 25 2 4 1 28 3 26 42 15 2 3 1 56 3 24 45 33 1 4 2 49 4 35 47 31 2 2 2 25 4 39 31 37 4 4 2 41 4 23 46 37 4 3 2 26 3 32 34 34 2 4 1 50 5 29 43 32 2 4 1 47 4 26 45 21 5 3 1 52 2 21 42 25 1 3 2 37 5 35 51 32 2 2 2 41 3 23 44 28 1 4 1 45 4 21 47 22 2 5 2 26 4 28 47 25 2 4 1 3 30 41 26 1 2 1 52 4 21 44 34 4 5 1 46 2 29 51 34 1 4 1 58 3 28 46 36 2 3 1 54 5 19 47 36 2 4 1 29 3 26 46 26 2 2 2 50 3 33 38 26 1 3 1 43 2 34 50 34 4 3 2 30 3 33 48 33 1 3 2 47 2 40 36 31 2 5 1 45 3 24 51 33 2 2 48 1 35 35 22 1 4 2 48 3 35 49 29 2 4 2 26 4 32 38 24 2 4 1 46 5 20 47 37 2 2 2 3 35 36 32 2 4 2 50 3 35 47 23 2 3 1 25 4 21 46 29 2 4 1 47 2 33 43 35 2 1 2 47 2 40 53 20 4 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 time23 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] = + 49.6085876250846 -0.139372560558695geslacht[t] -0.308848721560136leeftijd[t] -0.397800126959575opleiding[t] -0.197798722000610Neuroticisme[t] -0.498369913461478Extraversie[t] -0.0686083798311122Openheid[t] -0.327316080922906Beroep[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)49.60858762508465.2723189.409300
geslacht-0.1393725605586950.053863-2.58750.0104260.005213
leeftijd-0.3088487215601360.048803-6.328500
opleiding-0.3978001269595750.052168-7.625400
Neuroticisme-0.1977987220006100.06838-2.89270.0042730.002137
Extraversie-0.4983699134614780.054295-9.178900
Openheid-0.06860837983111220.056159-1.22170.2233690.111684
Beroep-0.3273160809229060.05581-5.864800


Multiple Linear Regression - Regression Statistics
Multiple R0.771539000887454
R-squared0.595272429890411
Adjusted R-squared0.580122199993261
F-TEST (value)39.291313328676
F-TEST (DF numerator)7
F-TEST (DF denominator)187
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation7.95572041113526
Sum Squared Residuals11835.8821176488


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
145.54053271727264-1.54053271727264
245.74589718679147-1.74589718679147
358.33570181710378-3.33570181710378
4211.2937880660300-9.29378806603005
5313.3026012132565-10.3026012132565
651.989095733610633.01090426638937
741.114071509501622.88592849049838
844.03839277955215-0.0383927795521541
944.7702828756198-0.7702828756198
1043.453264026310170.546735973689828
1152.092710330884062.90728966911594
1245.76639963152664-1.76639963152664
1332.967922517536870.0320774824631324
1444.38052696024856-0.380526960248558
1535.69799554812209-2.69799554812209
1637.07539212922545-4.07539212922545
17411.8699894832529-7.86998948325292
1831.215078227148801.78492177285120
194-0.5227784996388694.52277849963887
20213.0060321043531-11.0060321043531
2143.753683409478520.246316590521480
22313.8449221247115-10.8449221247115
2342.021608818418581.97839118158142
2442.715355384510941.28464461548906
2535.48564618538407-2.48564618538407
2630.7235179984461592.27648200155384
2726.74764702460978-4.74764702460978
2844.23864647364891-0.238646473648908
2958.37698342923519-3.37698342923519
30414.8180591973579-10.8180591973579
3115.21328217398476-4.21328217398476
3212.63336413119257-1.63336413119257
3311.30080629405956-0.300806294059556
3414.29568543288673-3.29568543288673
35111.4492260197185-10.4492260197185
3627.06148343418202-5.06148343418202
3711.38177084150096-0.38177084150096
3824.38235803111947-2.38235803111947
3922.18435628371811-0.184356283718110
4015.53728230046518-4.53728230046518
414818.957497887690829.0425021123092
424811.226590021673736.7734099783263
432617.70587471327668.29412528672336
444614.931002961534831.0689970384652
4531.990292063004281.00970793699572
46310.9230375848442-7.92303758484422
4743.096977698703210.90302230129679
4821.390753735475150.609246264524851
4924.43219800826241-2.43219800826241
5032.356329102001130.643670897998866
5126.5941901103881-4.59419011038809
524-1.243495428020175.24349542802017
5357.08161795010098-2.08161795010098
5438.62435464925371-5.6243546492537
5547.93807414448493-3.93807414448493
5654.349262272769390.650737727230611
575-2.252356208202347.25235620820234
5833.04471462734026-0.0447146273402611
5948.80647138782632-4.80647138782632
6032.537696167921650.462303832078353
613-0.3669473463372233.36694734633722
62210.5258592723023-8.52585927230233
6336.85476884474955-3.85476884474955
6448.22282882211235-4.22282882211235
6541.019032601104462.98096739889554
664-1.299370445555905.2993704455559
6741.245480359550892.75451964044911
6831.147443856977651.85255614302235
6935.8343252163428-2.8343252163428
7030.2040003935972962.79599960640270
71210.5235407011182-8.52354070111824
72312.1013460772376-9.1013460772376
7336.89967516579061-3.89967516579061
7435.81166749650087-2.81166749650087
7539.30034715547275-6.30034715547275
7651.662897363102083.33710263689792
77312.0793714459706-9.0793714459706
785-0.8380111879511795.83801118795118
7940.2730929123135193.72690708768648
8045.55314304503774-1.55314304503774
81410.2507998789184-6.25079987891844
82515.5395409497259-10.5395409497259
8343.034227658761200.965772341238795
8451.091945055204613.90805494479539
8533.0599014711538-0.0599014711538007
863-1.239628057637014.23962805763701
87212.8177027760521-10.8177027760521
8833.09116429662244-0.0911642966224442
8942.120431481072171.87956851892782
9055.56521878961001-0.565218789610011
9157.90748360989653-2.90748360989653
9233.13463950510875-0.134639505108745
9320.5644456819451641.43555431805484
9430.6526597505614062.34734024943859
95410.1419236235833-6.1419236235833
9618.70964586416737-7.70964586416737
9747.73358717527648-3.73358717527648
9832.434768955310570.565231044689433
9937.3222029494952-4.32220294949519
10043.010115754850980.989884245149022
101312.0729959484639-9.07299594846386
10246.8762142234261-2.8762142234261
10327.86510020303653-5.86510020303653
10431.375936680469091.62406331953091
105310.9128298956032-7.9128298956032
10633.05014031135404-0.0501403113540434
10727.32350070540654-5.32350070540654
10850.5883506337314354.41164936626856
10958.33441345882437-3.33441345882437
11040.7489687936236063.25103120637639
11122.27938638218655-0.279386382186551
112313.1689655495660-10.1689655495660
113310.5008305852629-7.50083058526286
11434.88410224465903-1.88410224465903
11540.5280465477836993.4719534522163
11650.747253478541894.25274652145811
11748.4615530373401-4.4615530373401
1182228.7331553218017-6.73315532180165
1191628.7063562534502-12.7063562534502
1203628.32899377882097.67100622117911
1213531.64216591690943.35783408309063
1222529.6977597761604-4.69775977616038
1232735.7961286537927-8.79612865379268
1243228.9207240807133.07927591928703
1253626.04588880322329.95411119677684
1265130.086500481794720.9134995182053
1273027.85952346238342.14047653761662
1282027.277866023109-7.27786602310897
1292927.27039969286881.72960030713118
1302626.8725516892917-0.872551689291674
1312027.2764631142216-7.27646311422158
1324027.257098450317312.7429015496827
1332926.63057818473662.36942181526336
1343225.97492125458916.02507874541087
1353329.62650317679563.37349682320437
1363230.80290158090861.19709841909140
1373429.06927908678674.93072091321325
1382425.9200026790982-1.92000267909818
1392527.5735371509640-2.57353715096395
1404130.852607008294110.1473929917059
1413927.049819288133211.9501807118668
1422123.9984405957733-2.99844059577330
1433826.158360540503711.8416394594963
1442825.60896911888712.39103088111292
1453725.212196189027511.7878038109725
146468.4633651647838337.5366348352162
147397.723919792212731.2760802077873
148218.1309591232091512.8690408767908
1493127.42399431973593.57600568026408
1502519.04629611496895.95370388503113
1512921.33020459071407.66979540928596
1523124.366788424476.63321157553001
15335.60917080306307-2.60917080306307
1542-3.523863568376965.52386356837696
15528.58502339424696-6.58502339424696
15659.33856342187934-4.33856342187933
15741.297441070065742.70255892993426
15823.07963806270505-1.07963806270505
159211.3790706800555-9.37907068005548
16020.646589559293651.35341044070635
16111.56356826790288-0.563568267902879
16221.196594056583570.803405943416427
163210.3458673393406-8.34586733934062
16420.6057837459068461.39421625409315
16516.49270797027965-5.49270797027965
16624.31899355966605-2.31899355966605
1672-1.669715374950183.66971537495018
168314.8709870052178-11.8709870052178
16928.7192849866857-6.7192849866857
170212.7259227019734-10.7259227019734
17110.3156419717490250.684358028250975
17227.39731284995304-5.39731284995304
1732-1.832566527530913.83256652753091
17421.920672094622590.0793279053774057
1752-0.6469046775785072.64690467757851
17621.847689340912300.152310659087697
17711.27728608843949-0.277286088439488
17823.54112084656403-1.54112084656403
17925.11856335900598-3.11856335900598
18040.4539268634392243.54607313656078
18155.37173013726864-0.371730137268636
1824-9.287840125459213.2878401254592
18310.7873511039254940.212648896074506
1842-9.3185333139463811.3185333139464
18520.07474485361818141.92525514638182
18624.3314176570819-2.3314176570819
18732.151302745186030.848697254813966
18824.86468470318074-2.86468470318074
189212.4110232873786-10.4110232873786
19024.57506500831849-2.57506500831849
191312.4312069441456-9.4312069441456
19228.82734113549848-6.82734113549848
1933-6.28169838711829.2816983871182
19425.90993265194108-3.90993265194108
19539.23716042935341-6.23716042935341


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
110.000332875204586140.000665750409172280.999667124795414
121.68402933510352e-053.36805867020705e-050.999983159706649
133.07037544078863e-066.14075088157727e-060.99999692962456
141.75905338270447e-073.51810676540894e-070.999999824094662
157.81530113846575e-081.56306022769315e-070.999999921846989
166.20055851749139e-091.24011170349828e-080.999999993799441
176.37318481244552e-101.27463696248910e-090.999999999362682
188.30729340803286e-111.66145868160657e-100.999999999916927
191.25424226072459e-112.50848452144919e-110.999999999987458
209.65306075663017e-131.93061215132603e-120.999999999999035
216.51834263203616e-141.30366852640723e-130.999999999999935
228.81323916358107e-151.76264783271621e-140.99999999999999
236.00199157128413e-161.20039831425683e-151
243.83528145289316e-177.67056290578633e-171
252.57106945427485e-185.14213890854971e-181
269.59638355367987e-181.91927671073597e-171
271.83285164602989e-173.66570329205979e-171
281.80028824634064e-183.60057649268128e-181
295.18210214275806e-191.03642042855161e-181
309.48919697945464e-201.89783939589093e-191
311.07345389169835e-202.14690778339670e-201
321.40360915249209e-212.80721830498417e-211
331.28116512082332e-222.56233024164665e-221
341.28383369198434e-232.56766738396867e-231
352.79389759195507e-245.58779518391014e-241
368.2392892877798e-251.64785785755596e-241
371.82766597670785e-253.6553319534157e-251
383.18555873555979e-266.37111747111957e-261
393.75587313646106e-277.51174627292212e-271
407.35866422008247e-271.47173284401649e-261
410.0004956163845567950.000991232769113590.999504383615443
420.003179906180548730.006359812361097460.996820093819451
430.01043203455272720.02086406910545440.989567965447273
440.1080558152915300.2161116305830610.89194418470847
450.1479949767074940.2959899534149880.852005023292506
460.2303676895827880.4607353791655760.769632310417212
470.1940962494430780.3881924988861560.805903750556922
480.1702535226919180.3405070453838370.829746477308082
490.1583479938590450.316695987718090.841652006140955
500.1376079605956540.2752159211913090.862392039404346
510.1144609166029130.2289218332058260.885539083397087
520.1178592845601980.2357185691203960.882140715439802
530.09646969782351960.1929393956470390.90353030217648
540.09565624963362370.1913124992672470.904343750366376
550.09451457058386630.1890291411677330.905485429416134
560.07968577632074150.1593715526414830.920314223679259
570.068425219233070.136850438466140.93157478076693
580.06822603763645780.1364520752729160.931773962363542
590.07623577666282570.1524715533256510.923764223337174
600.06568461048321130.1313692209664230.934315389516789
610.06044965559813670.1208993111962730.939550344401863
620.08803649103308420.1760729820661680.911963508966916
630.0907156685908790.1814313371817580.909284331409121
640.08305954327983480.1661190865596700.916940456720165
650.07054550959037150.1410910191807430.929454490409628
660.05822166863400890.1164433372680180.94177833136599
670.04814454170940640.09628908341881290.951855458290594
680.04551145986216290.09102291972432590.954488540137837
690.03809035530778890.07618071061557780.96190964469221
700.03627788535129670.07255577070259350.963722114648703
710.03311729138007110.06623458276014220.966882708619929
720.0269341550267530.0538683100535060.973065844973247
730.02894060192356250.0578812038471250.971059398076437
740.03260670441580620.06521340883161250.967393295584194
750.02700211027178220.05400422054356450.972997889728218
760.02312411332863930.04624822665727860.97687588667136
770.02064824366754680.04129648733509360.979351756332453
780.02109149102837090.04218298205674180.97890850897163
790.01787931076748510.03575862153497010.982120689232515
800.01647810368596080.03295620737192170.98352189631404
810.01451070636706320.02902141273412630.985489293632937
820.01700359297675940.03400718595351890.98299640702324
830.01304904536162240.02609809072324470.986950954638378
840.01188983466761510.02377966933523030.988110165332385
850.009189116997499050.01837823399499810.9908108830025
860.01016962996153580.02033925992307150.989830370038464
870.00952363219743340.01904726439486680.990476367802567
880.008085219333094080.01617043866618820.991914780666906
890.006512406320701690.01302481264140340.993487593679298
900.004835252933948350.00967050586789670.995164747066052
910.003629605601091830.007259211202183660.996370394398908
920.002697684601118920.005395369202237830.997302315398881
930.002124435173431270.004248870346862530.997875564826569
940.001660586662280390.003321173324560770.99833941333772
950.001446518636732610.002893037273465220.998553481363267
960.001415352241726000.002830704483452010.998584647758274
970.001107407593438280.002214815186876570.998892592406562
980.001002091896811380.002004183793622770.998997908103189
990.001330190662346860.002660381324693720.998669809337653
1000.000956640939201760.001913281878403520.999043359060798
1010.0007737510672227320.001547502134445460.999226248932777
1020.0005340335158465630.001068067031693130.999465966484153
1030.000947479766839320.001894959533678640.99905252023316
1040.0007073793453725030.001414758690745010.999292620654628
1050.0006060263740066490.001212052748013300.999393973625993
1060.0005574265055329160.001114853011065830.999442573494467
1070.0004894292011260420.0009788584022520840.999510570798874
1080.0003637011102438760.0007274022204877530.999636298889756
1090.0002890126706139160.0005780253412278320.999710987329386
1100.0002189572913837750.000437914582767550.999781042708616
1110.0001680133604658780.0003360267209317560.999831986639534
1120.0001809020605682070.0003618041211364150.999819097939432
1130.0001535783596852780.0003071567193705560.999846421640315
1140.0001235495392562260.0002470990785124520.999876450460744
1159.01596979440711e-050.0001803193958881420.999909840302056
1166.66064684600807e-050.0001332129369201610.99993339353154
1170.0001039870293271270.0002079740586542530.999896012970673
1180.0003081624740052780.0006163249480105560.999691837525995
1190.000767749054546710.001535498109093420.999232250945453
1200.004066057841070920.008132115682141850.99593394215893
1210.008390559234557590.01678111846911520.991609440765442
1220.008660627079451060.01732125415890210.99133937292055
1230.006731475626455740.01346295125291150.993268524373544
1240.007307205349948020.01461441069989600.992692794650052
1250.01042896654231400.02085793308462800.989571033457686
1260.2878605253311930.5757210506623870.712139474668807
1270.2677380177720900.5354760355441810.73226198222791
1280.4700930157644380.9401860315288770.529906984235562
1290.4546902466290060.9093804932580130.545309753370994
1300.4637055148895230.9274110297790460.536294485110477
1310.5497057103944920.9005885792110160.450294289605508
1320.6781615972932810.6436768054134380.321838402706719
1330.6492758179865750.701448364026850.350724182013425
1340.6140594143603250.771881171279350.385940585639675
1350.6338667905088440.7322664189823110.366133209491156
1360.6858591315304830.6282817369390350.314140868469517
1370.6529902606788530.6940194786422940.347009739321147
1380.7212653970920750.557469205815850.278734602907925
1390.7393642672787290.5212714654425430.260635732721271
1400.7644374876556620.4711250246886760.235562512344338
1410.8556285381690260.2887429236619480.144371461830974
1420.9327070214359480.1345859571281050.0672929785640523
1430.961344660246950.07731067950609850.0386553397530492
1440.9557142529871290.08857149402574210.0442857470128711
1450.9830258607419880.03394827851602330.0169741392580117
1460.9999997006036495.98792702817675e-072.99396351408838e-07
1470.9999999050042321.89991536010069e-079.49957680050347e-08
1480.9999997986572584.02685483950036e-072.01342741975018e-07
1490.999999892957852.14084299996821e-071.07042149998410e-07
1500.999999841971323.16057360029883e-071.58028680014941e-07
1510.9999998320115873.35976826948974e-071.67988413474487e-07
15211.06444353769508e-255.32221768847539e-26
15313.85032867366682e-251.92516433683341e-25
15413.06513006702655e-241.53256503351327e-24
15511.27714000607843e-236.38570003039214e-24
15615.15910326060828e-242.57955163030414e-24
15711.99373826439351e-249.96869132196754e-25
15811.71868711764767e-238.59343558823833e-24
15911.26125181945533e-226.30625909727666e-23
16011.24053009161772e-216.20265045808858e-22
16117.36099897388477e-213.68049948694239e-21
16214.71692695730218e-202.35846347865109e-20
16313.64605909355228e-191.82302954677614e-19
16411.92702546181660e-189.63512730908301e-19
16513.20242167371673e-181.60121083685836e-18
16612.73093426699121e-171.36546713349560e-17
16712.60498225001989e-161.30249112500995e-16
1680.9999999999999992.02742854939359e-151.01371427469680e-15
1690.999999999999991.82470912534778e-149.12354562673888e-15
1700.9999999999999321.36885398848659e-136.84426994243295e-14
1710.999999999999911.80747820577943e-139.03739102889716e-14
1720.9999999999991531.69322386992273e-128.46611934961367e-13
1730.999999999994961.00797412815165e-115.03987064075823e-12
1740.999999999952149.57194822140053e-114.78597411070027e-11
1750.999999999579328.41359193607225e-104.20679596803612e-10
1760.9999999962872667.42546718335215e-093.71273359167607e-09
1770.999999994748941.05021203862190e-085.25106019310952e-09
1780.9999999845041223.09917565628446e-081.54958782814223e-08
1790.9999999471054841.05789032311418e-075.2894516155709e-08
1800.9999994071108771.18577824551565e-065.92889122757827e-07
1810.9999963217761067.35644778822883e-063.67822389411442e-06
1820.9999818194275683.63611448630276e-051.81805724315138e-05
1830.999930016914480.0001399661710399486.99830855199738e-05
1840.9996362917861490.000727416427702490.000363708213851245


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level1020.586206896551724NOK
5% type I error level1230.706896551724138NOK
10% type I error level1340.770114942528736NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/10d1291291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/10d1291291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/1o05x1291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/1o05x1291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/2o05x1291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/2o05x1291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/3ysm01291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/3ysm01291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/4ysm01291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/4ysm01291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/5ysm01291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/5ysm01291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/691ml1291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/691ml1291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/7ks361291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/7ks361291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/8ks361291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/8ks361291207633.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/9ks361291207633.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291207587kfqinpxzbbjlpca/9ks361291207633.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