Home » date » 2010 » Dec » 28 »

*The author of this computation has been verified*
R Software Module: /rwasp_multipleregression.wasp (opens new window with default values)
Title produced by software: Multiple Regression
Date of computation: Tue, 28 Dec 2010 09:02:26 +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/t1293526805j3pyvc4jozcrbd2.htm/, Retrieved Tue, 28 Dec 2010 10:00:08 +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/t1293526805j3pyvc4jozcrbd2.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 «
22 27 5 26 49 35 23 36 4 25 45 34 27 25 4 17 54 13 19 27 3 37 36 35 15 25 3 35 36 28 29 44 3 15 53 32 25 50 4 27 46 35 25 41 4 36 42 36 21 48 5 25 41 27 22 43 4 30 45 29 22 47 2 27 47 27 24 41 3 33 42 28 22 44 2 29 45 29 23 47 5 30 40 28 19 40 3 25 45 30 19 46 3 23 40 25 21 28 3 26 42 15 20 56 3 24 45 33 23 49 4 35 47 31 11 25 4 39 31 37 21 41 4 23 46 37 19 26 3 32 34 34 21 50 5 29 43 32 23 47 4 26 45 21 19 52 2 21 42 25 22 37 5 35 51 32 19 41 3 23 44 28 23 45 4 21 47 22 29 26 4 28 47 25 27 3 30 41 26 18 52 4 21 44 34 30 46 2 29 51 34 26 58 3 28 46 36 20 54 5 19 47 36 22 29 3 26 46 26 20 50 3 33 38 26 21 43 2 34 50 34 18 30 3 33 48 33 21 47 2 40 36 31 27 45 3 24 51 33 48 1 35 35 22 18 48 3 35 49 29 24 26 4 32 38 24 24 46 5 20 47 37 17 3 35 36 32 22 50 3 35 47 23 21 25 4 21 46 29 23 47 2 33 43 35 19 47 2 40 53 20 22 41 3 22 55 28 19 45 2 35 39 26 24 41 4 20 55 36 22 45 5 28 41 26 26 40 3 46 33 33 22 29 4 18 52 25 23 34 5 22 42 29 27 45 5 20 56 32 21 5 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 time8 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
Behoefte_affiliatie[t] = + 59.8331365247396 -0.321873599043689leeftijd[t] -0.0894242784873792opleiding[t] + 0.0106074503726083Neuroticisme[t] -0.3095406594854Extraversie[t] -0.305320732396517`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)59.83313652473967.0645928.469400
leeftijd-0.3218735990436890.062584-5.14311e-060
opleiding-0.08942427848737920.078225-1.14320.2544120.127206
Neuroticisme0.01060745037260830.0911740.11630.9075040.453752
Extraversie-0.30954065948540.058358-5.304200
`Openheid `-0.3053207323965170.074876-4.07776.7e-053.3e-05


Multiple Linear Regression - Regression Statistics
Multiple R0.601830538297624
R-squared0.362199996827607
Adjusted R-squared0.345326980870666
F-TEST (value)21.466227362785
F-TEST (DF numerator)5
F-TEST (DF denominator)189
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation9.32437127245557
Sum Squared Residuals16432.3970294264


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
12225.117503719148-3.11750371914802
22323.8429415262079-0.842941526207933
32730.9245609576659-3.92456095766588
41929.4370628035319-10.4370628035319
51532.1968402276497-17.1968402276497
62919.38561869752959.61438130247047
72518.74306464845966.25693535154043
82522.66823599875132.33176400124867
92123.2664418239135-2.26644182391349
102223.1694672467477-1.16946724674772
112222.0205592022521-0.0205592022521363
122425.168403785293-1.16840378529302
132223.0158347543062-1.01583475430618
142323.6455726019091-0.645572601909105
151923.8661543381066-4.86615433810661
161924.9880048025088-5.98800480250884
172133.2476779414074-12.2476779414074
182017.78960710584542.21039289415457
192320.06154012058482.9384598794152
201130.949662456511-19.949662456511
212120.98685577356930.0131442264306973
221930.6303012020798-11.6303012020798
232120.51943944636320.480560553636838
242324.2821089082547-1.28210890825467
251922.5058912670181-3.50589126701808
262222.2911156602836-0.291115660283565
271924.4432479625961-5.44324796259614
282323.9484168031117-0.948416803111689
292929.2223051403605-0.222305140360478
302743.0758625085064-16.0758625085064
315237.450455702325514.5495442976745
324638.67434375470827.3256562452918
335839.601700257697118.3982997423029
345439.162737551575814.8372624484242
352942.8759554095259-13.8759554095259
365041.85980512473698.14019487526314
374340.65918077107082.34081922892917
383039.7990950120652-9.79909501206515
394738.15486618181768.84513381818242
404532.392076094863412.6079239051366
41125.4439476935796-24.4439476935796
42329.1260721031755-26.1260721031755
43424.9159080638744-20.9159080638744
44543.4070457103042-38.4070457103042
453529.22447878430855.7755212156915
463533.91127600558021.08872399441979
472127.5185657905591-6.51856579055908
483327.90521111527545.09478888472456
494027.611584877782912.3884151222171
502225.2877791951336-3.28777919513363
513531.2971637618193.70283623818099
522023.6882451211629-3.68824512116287
532831.2894928563588-3.28949285635877
544636.29570841974919.70429158025093
551829.0530876863671-11.0530876863671
562228.5516091100055-6.55160911000551
572022.1573180340913-2.15731803409132
582528.1543704591459-3.15437045914591
593131.5139676779368-0.513967677936793
602125.9910725730771-4.99107257307712
612325.3729960749065-2.3729960749065
622634.1701657726983-8.1701657726983
633432.13139122915731.8686087708427
643132.7573745048708-1.75737450487082
652324.5593903594388-1.55939035943877
663125.50751507575645.49248492424363
672626.3505567828462-0.350556782846201
683627.74153388625238.2584661137477
692831.4066900418439-3.40669004184395
703426.77514414040377.22485585959629
712529.8403298621303-4.8403298621303
723336.4018598303324-3.40185983033239
734634.41164809630711.588351903693
742430.8806902146584-6.8806902146584
753234.240882116718-2.24088211671803
763324.84572358536048.15427641463962
774236.74993720592775.2500627940723
781724.6725863811359-7.67258638113595
793628.40483821733467.5951617826654
804032.69572313338127.30427686661876
813033.8707904565763-3.87079045657634
821939.1403382599544-20.1403382599544
833328.73122741362534.26877258637471
843526.24219327821598.75780672178407
852328.044172588995-5.04417258899498
861523.5007379467095-8.50073794670946
873837.73199026292410.268009737075917
883728.59783463828498.40216536171506
892326.3483891866514-3.34838918665136
904132.40389731801028.59610268198982
913433.06269523726730.937304762732664
923830.70974843522657.29025156477346
934529.886553416488215.1134465835118
942725.57572445349851.42427554650147
954636.00465693143049.99534306856957
962629.7575110723-3.75751107230004
974435.70904871557238.29095128442775
983627.86333070127428.13666929872585
992031.5289118550932-11.5289118550932
1004432.259602220066611.7403977799334
1012734.1718421836245-7.17184218362446
1022729.5732814086967-2.57328140869672
1034132.66502999232548.33497000767465
1043028.70335975452191.29664024547813
1053334.3596217800457-1.35962178004566
1063726.964538541117210.0354614588828
1073030.6180941559829-0.618094155982933
1082024.2016441672297-4.20164416722974
1094437.38740836355226.61259163644775
1102024.7570084575151-4.75700845751505
1113328.33883679275944.66116320724062
1123136.1185594972838-5.11855949728375
1132332.0759972549547-9.07599725495468
1143331.72162593218731.27837406781273
1153325.72524509725877.27475490274133
1163228.01911368112883.98088631887124
1172527.8388646312644-2.8388646312644
1183742.8425156230228-5.84251562302283
1194839.13939768246858.86060231753151
1204538.45904469445596.5409553055441
1213241.1596830916966-9.15968309169657
1224641.43266363510294.56733636489714
1232042.658514607755-22.658514607755
1244237.22105253948324.77894746051684
1254530.831246588878514.1687534111215
1262938.7523182355638-9.75231823556379
1275142.17211796096738.82788203903274
1285538.580654777115516.4193452228845
1295040.35423866903039.64576133096973
1304440.19640495413663.80359504586339
1314134.50849293607066.4915070639294
1324037.98654213285182.01345786714818
1334738.08263169807188.91736830192823
1344234.95182658653937.04817341346067
1354038.08372376747861.91627623252136
1365140.522450163083310.4775498369167
1374340.86541191668182.13458808331817
1384539.38439794481035.61560205518968
1394132.81071700090848.1892829990916
1404138.12569275732312.87430724267686
1413739.8478435187051-2.84784351870506
1424634.689213419082111.3107865809179
1433838.7857446711579-0.785744671157946
1443932.57682793943616.42317206056392
1454528.115671050132216.8843289498678
1462826.61807526848271.38192473151731
1474537.15916802531867.84083197468137
1482127.1314689730685-6.13146897306851
1493335.8654777966963-2.8654777966963
1502421.38758913957872.61241086042127
1511621.267268615358-5.26726861535805
1522342.383847373134-19.383847373134
1534039.78509558346910.214904416530853
1544941.5387076613047.46129233869598
1553842.2356109094779-4.23561090947787
1563239.4641123378523-7.46411233785233
1574639.75904438317716.24095561682288
1583241.8293045142391-9.82930451423912
1594143.8411207733459-2.84112077334594
1604342.77220826514760.227791734852425
1614441.96299216181012.0370078381899
1624739.9569520120037.04304798799703
1632842.1311359098207-14.1311359098207
1645241.941182577796110.0588174222039
1652741.1011942399206-14.1011942399206
1664541.63604937568943.36395062431065
1672737.2457898800738-10.2457898800737
1682538.4103544268903-13.4103544268903
1692840.0364179431271-12.0364179431271
1702543.9528100691583-18.9528100691583
1715239.588361699411212.4116383005888
1724443.57725625465080.422743745349184
1734339.07460005967833.92539994032169
1744740.91839019300396.08160980699606
1755240.272438087762911.7275619122371
1764040.626081177185-0.626081177185027
1774240.15779774474231.84220225525766
1784540.04842862138444.95157137861561
1794545.6646677181087-0.664667718108656
1805040.12403114113799.87596885886205
1814941.66167637568157.33832362431851
1825238.358418976352513.6415810236475
1834838.44700471466769.55299528533236
1845137.151859926227813.8481400737722
1854941.72669803620537.27330196379472
1863141.1435026367017-10.1435026367017
1874338.77094241190614.22905758809391
1883138.8929230361987-7.89292303619866
1892839.4151245301093-11.4151245301093
1904342.28669932844690.713300671553054
1913143.214605218925-12.214605218925
1925143.00432015268887.99567984731121
1935839.802939817113718.1970601828863
1942537.448188012544-12.448188012544
1952738.5622024299982-11.5622024299982


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
90.01145892327362450.0229178465472490.988541076726375
100.005580255084646570.01116051016929310.994419744915353
110.003830394951385430.007660789902770860.996169605048615
120.001446881691108910.002893763382217830.99855311830889
130.0004068296906227450.000813659381245490.999593170309377
140.0001108453200228620.0002216906400457240.999889154679977
157.2342061789211e-050.0001446841235784220.99992765793821
161.75447938266853e-053.50895876533707e-050.999982455206173
175.37635136478093e-061.07527027295619e-050.999994623648635
182.89050727484676e-065.78101454969353e-060.999997109492725
191.20016921465062e-062.40033842930125e-060.999998799830785
209.13359193218518e-071.82671838643704e-060.999999086640807
212.61232875895227e-075.22465751790455e-070.999999738767124
222.52252598181451e-075.04505196362902e-070.999999747747402
237.2864035954946e-081.45728071909892e-070.999999927135964
241.84663738701328e-083.69327477402656e-080.999999981533626
255.44503040070167e-091.08900608014033e-080.99999999455497
264.41030311973867e-098.82060623947733e-090.999999995589697
271.95896596257068e-093.91793192514135e-090.999999998041034
285.15437507545988e-101.03087501509198e-090.999999999484563
291.68819821438689e-093.37639642877377e-090.999999998311802
305.9772883698613e-101.19545767397226e-090.999999999402271
310.0001506816645327550.000301363329065510.999849318335467
328.0415756876931e-050.0001608315137538620.999919584243123
330.0003659071099302150.000731814219860430.99963409289007
340.001647329585041550.003294659170083110.998352670414958
350.002663321124423520.005326642248847040.997336678875577
360.002758548276660590.005517096553321170.99724145172334
370.00457007359638220.00914014719276440.995429926403618
380.02445120429856580.04890240859713170.975548795701434
390.01834191306157640.03668382612315280.981658086938424
400.01465260367781140.02930520735562280.985347396322189
410.04461983549027160.08923967098054330.955380164509728
420.1543526594979810.3087053189959630.845647340502019
430.1944954064896870.3889908129793740.805504593510313
440.3794246752763560.7588493505527120.620575324723644
450.3365929552365310.6731859104730630.663407044763469
460.780238381263080.439523237473840.21976161873692
470.7705109611154850.458978077769030.229489038884515
480.7431219071644850.513756185671030.256878092835515
490.842645505336920.314708989326160.15735449466308
500.8157055038195190.3685889923609620.184294496180481
510.7956943690302860.4086112619394290.204305630969714
520.7744545300198640.4510909399602730.225545469980136
530.7386582097333680.5226835805332640.261341790266632
540.8652085778887790.2695828442224430.134791422111221
550.855211145068370.2895777098632580.144788854931629
560.8560807565885070.2878384868229850.143919243411493
570.8443511105909670.3112977788180660.155648889409033
580.8185754280991690.3628491438016620.181424571900831
590.7913918252118410.4172163495763180.208608174788159
600.7676274514122940.4647450971754120.232372548587706
610.763725584282320.4725488314353610.23627441571768
620.7607276491621350.4785447016757290.239272350837865
630.7926213191611830.4147573616776340.207378680838817
640.7854981822013880.4290036355972240.214501817798612
650.758863852834670.4822722943306590.24113614716533
660.729698522748910.540602954502180.27030147725109
670.6976887222051810.6046225555896380.302311277794819
680.670509169727910.6589816605441810.329490830272091
690.6340033364609590.7319933270780820.365996663539041
700.5992892304148640.8014215391702710.400710769585136
710.5652256227820440.8695487544359120.434774377217956
720.5259812483444820.9480375033110360.474018751655518
730.5571203989054770.8857592021890460.442879601094523
740.5310714331946770.9378571336106470.468928566805323
750.4967245435716770.9934490871433540.503275456428323
760.4975102186618560.9950204373237130.502489781338144
770.5026291752231350.994741649553730.497370824776865
780.5064257999858330.9871484000283350.493574200014167
790.5345128147011310.9309743705977370.465487185298869
800.5973395850832520.8053208298334950.402660414916748
810.5679743958868760.8640512082262470.432025604113124
820.6602304954978430.6795390090043150.339769504502157
830.6423772413587030.7152455172825930.357622758641297
840.6221470619980020.7557058760039970.377852938001998
850.6119803703959520.7760392592080960.388019629604048
860.6288448101885920.7423103796228170.371155189811408
870.6031370179279380.7937259641441240.396862982072062
880.5820966521661660.8358066956676690.417903347833834
890.5586798885165470.8826402229669050.441320111483453
900.5981570962200260.8036858075599490.401842903779974
910.5703241980178430.8593516039643130.429675801982157
920.5482742532700910.9034514934598180.451725746729909
930.5937088658824080.8125822682351850.406291134117592
940.5526818640052980.8946362719894030.447318135994702
950.5989642361095760.8020715277808490.401035763890424
960.5788046377310240.8423907245379510.421195362268976
970.5971376621099160.8057246757801670.402862337890084
980.5757269424536070.8485461150927850.424273057546393
990.5851420030085310.8297159939829380.414857996991469
1000.6366055336629430.7267889326741130.363394466337057
1010.61504451181320.7699109763735990.384955488186799
1020.5818110708045920.8363778583908160.418188929195408
1030.5682678482017770.8634643035964450.431732151798223
1040.5267289341565010.9465421316869970.473271065843499
1050.4890101526964470.9780203053928940.510989847303553
1060.4840850905159230.9681701810318470.515914909484077
1070.4432511969017210.8865023938034430.556748803098279
1080.4231130511259580.8462261022519150.576886948874042
1090.4207056633130170.8414113266260330.579294336686983
1100.3978120416231970.7956240832463940.602187958376803
1110.3644817518685330.7289635037370660.635518248131467
1120.3313349396436040.6626698792872090.668665060356396
1130.3452325100207820.6904650200415650.654767489979218
1140.3072225446284480.6144450892568960.692777455371552
1150.2850532358517740.5701064717035490.714946764148226
1160.256779663980570.513559327961140.74322033601943
1170.2335237746186240.4670475492372470.766476225381376
1180.2177409541022760.4354819082045530.782259045897724
1190.2691910251967240.5383820503934490.730808974803276
1200.2775299358784830.5550598717569660.722470064121517
1210.2773208787828920.5546417575657830.722679121217108
1220.2639758976801450.527951795360290.736024102319855
1230.4644935868123710.9289871736247430.535506413187629
1240.4556162528207080.9112325056414150.544383747179292
1250.5266866220320220.9466267559359570.473313377967978
1260.5555563597366520.8888872805266970.444443640263349
1270.5483862502290470.9032274995419070.451613749770953
1280.6390285959796820.7219428080406350.360971404020318
1290.6331501455055310.7336997089889370.366849854494469
1300.5993304172637790.8013391654724420.400669582736221
1310.571528528041580.856942943916840.42847147195842
1320.528828213390490.942343573219020.47117178660951
1330.5100020592937680.9799958814124650.489997940706232
1340.4781713570186990.9563427140373970.521828642981301
1350.4409046013920020.8818092027840040.559095398607998
1360.4433797600969560.8867595201939120.556620239903044
1370.3990746657787180.7981493315574360.600925334221282
1380.3654779510367070.7309559020734130.634522048963293
1390.3474507874875110.6949015749750210.65254921251249
1400.3073774481161690.6147548962323390.69262255188383
1410.2716633034827370.5433266069654730.728336696517264
1420.2852265038075520.5704530076151040.714773496192448
1430.249708287811330.4994165756226590.75029171218867
1440.2652288173313140.5304576346626280.734771182668686
1450.4118952230488010.8237904460976020.588104776951199
1460.3811166337940840.7622332675881680.618883366205916
1470.3997748748402530.7995497496805070.600225125159747
1480.3590553327199950.718110665439990.640944667280005
1490.3150504962313180.6301009924626350.684949503768682
1500.2734384535569030.5468769071138070.726561546443097
1510.2372028669615410.4744057339230830.762797133038459
1520.3962798011294880.7925596022589750.603720198870512
1530.3468595014757790.6937190029515570.653140498524222
1540.3160260606152080.6320521212304170.683973939384792
1550.272692380428690.545384760857380.72730761957131
1560.2379211878790640.4758423757581290.762078812120936
1570.2408579872699450.481715974539890.759142012730055
1580.2372864158285470.4745728316570930.762713584171453
1590.1988108996124740.3976217992249490.801189100387526
1600.1627581812124260.3255163624248510.837241818787574
1610.1370372142810660.2740744285621320.862962785718934
1620.1154269284110250.2308538568220510.884573071588975
1630.1217476227680380.2434952455360750.878252377231962
1640.1047490751731660.2094981503463330.895250924826834
1650.1257839601781310.2515679203562620.874216039821869
1660.1140611495062330.2281222990124670.885938850493767
1670.1649481814534910.3298963629069830.835051818546509
1680.2030215628754220.4060431257508440.796978437124578
1690.1955942832168850.3911885664337710.804405716783115
1700.3019372081604860.6038744163209720.698062791839514
1710.3189872460807770.6379744921615530.681012753919223
1720.2590627623262130.5181255246524250.740937237673787
1730.2072318528499310.4144637056998620.792768147150069
1740.1814383989223170.3628767978446330.818561601077683
1750.1857026871275360.3714053742550730.814297312872464
1760.1563470849791670.3126941699583330.843652915020833
1770.1160174150441170.2320348300882340.883982584955883
1780.1020605940961490.2041211881922980.897939405903851
1790.09017416802892910.1803483360578580.90982583197107
1800.1351662217223720.2703324434447440.864833778277628
1810.1115344902226880.2230689804453760.888465509777312
1820.07726311056732120.1545262211346420.922736889432679
1830.05402914401000270.1080582880200050.945970855989997
1840.05125554798097490.102511095961950.948744452019025
1850.08654840045558140.1730968009111630.913451599544419
1860.04484173696538010.08968347393076020.95515826303462


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level270.151685393258427NOK
5% type I error level320.179775280898876NOK
10% type I error level340.191011235955056NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526805j3pyvc4jozcrbd2/10ip741293526934.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/28/t1293526805j3pyvc4jozcrbd2/10ip741293526934.ps (open in new window)


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


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


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


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


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


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


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


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


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