Home » date » 2010 » Dec » 26 »

*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: Sun, 26 Dec 2010 20:18:12 +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/26/t1293394602qeiw48dzdjmirdu.htm/, Retrieved Sun, 26 Dec 2010 21:16:42 +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/26/t1293394602qeiw48dzdjmirdu.htm/},
    year = {2010},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2010},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
27 5 26 49 35 18 36 4 25 45 34 10 25 4 17 54 13 23 27 3 37 36 35 14 25 3 35 36 28 20 44 3 15 53 32 15 50 4 27 46 35 18 41 4 36 42 36 19 48 5 25 41 27 19 43 4 30 45 29 14 47 2 27 47 27 15 41 3 33 42 28 14 44 2 29 45 29 16 47 5 30 40 28 13 40 3 25 45 30 13 46 3 23 40 25 14 28 3 26 42 15 23 56 3 24 45 33 17 49 4 35 47 31 14 25 4 39 31 37 21 41 4 23 46 37 15 26 3 32 34 34 19 50 5 29 43 32 20 47 4 26 45 21 18 52 2 21 42 25 13 37 5 35 51 32 20 41 3 23 44 28 12 45 4 21 47 22 17 26 4 28 47 25 13 3 30 41 26 17 52 4 21 44 34 16 46 2 29 51 34 20 58 3 28 46 36 18 54 5 19 47 36 9 29 3 26 46 26 14 50 3 33 38 26 12 43 2 34 50 34 21 30 3 33 48 33 16 47 2 40 36 31 12 45 3 24 51 33 20 48 1 35 35 22 18 48 3 35 49 29 22 26 4 32 38 24 17 46 5 20 47 37 16 3 35 36 32 14 50 3 35 47 23 19 25 4 21 46 29 21 47 2 33 43 35 18 47 2 40 53 20 23 41 3 22 55 28 20 45 2 35 39 26 10 41 4 20 55 36 16 45 5 28 41 26 18 40 3 46 33 33 12 29 4 18 52 25 15 34 5 22 42 29 19 45 5 20 56 32 11 52 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'Sir Ronald Aylmer Fisher' @ 193.190.124.24
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
leeftijd[t] = + 77.3754429800317 -0.381240306445034opleiding[t] -0.524053055241366Neuroticisme[t] -0.0822231173384081Extraversie[t] -0.293690031586825Openheid[t] -0.513130921270904Extrinsieke_waarden[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)77.37544298003176.52304511.861900
opleiding-0.3812403064450340.06365-5.989700
Neuroticisme-0.5240530552413660.084094-6.231800
Extraversie-0.08222311733840810.09282-0.88580.3768350.188418
Openheid-0.2936900315868250.074976-3.91710.0001256.3e-05
Extrinsieke_waarden-0.5131309212709040.073941-6.939700


Multiple Linear Regression - Regression Statistics
Multiple R0.676772943083343
R-squared0.458021616489690
Adjusted R-squared0.443683564015872
F-TEST (value)31.9444790236379
F-TEST (DF numerator)5
F-TEST (DF denominator)189
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation9.81271872174484
Sum Squared Residuals18198.7058065834


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
12738.2994215735336-11.2994215735336
23643.9323448063280-7.93234480632796
32546.8815498790148-21.8815498790148
42736.4187427892518-9.4187427892518
52536.4438935932169-11.4438935932169
64446.9180561832985-2.91805618329848
75038.403278176752711.5967218232473
84133.20887219607637.79112780392365
94841.31764889890626.68235110109383
104340.72800600297162.27199399702839
114742.97244868881174.02755131118829
124140.07744652729460.922553472705404
134440.98827782856123.01172217143876
144741.56470223607635.43529776392365
154043.9489524753076-3.94895247530756
164646.3634934091455-0.363493409145547
172842.9456100331747-14.9456100331747
185641.539411750704814.4605882492952
194937.355914428914311.6440855710857
202531.2212154469461-6.2212154469461
214141.4515030983573-0.451503098357265
222636.9314897253678-10.9314897253678
235037.075409364058912.9245906359411
244743.12121479154813.87878520845194
255248.14152451266743.85847548733260
263733.27330609390343.7266939060966
274146.1797926875732-5.17979268757325
284545.7964747227621-0.796474722762152
292643.2995569263957-17.2995569263957
30310.638719027923-7.638719027923
31415.2124132407092-11.2124132407092
3221.161788220861200.838211779138798
3336.63875131709352-3.63875131709352
34525.0173443359115-20.0173443359115
35311.4507469147986-8.45074691479858
36317.1537857236842-14.1537857236842
37213.8536155078759-11.8536155078759
3838.11040953847082-5.11040953847081
39214.0958322598179-12.0958322598179
4038.28152208313382-5.28152208313382
41113.9645619499964-12.9645619499964
42316.1663774968611-13.1663774968611
43414.6916293430593-10.6916293430593
44535.8394546440638-30.8394546440638
453529.50607619439515.49392380560494
463536.4469146023797-1.44691460237965
472128.0844714903313-7.08447149033134
483326.33054343023356.66945656976653
494031.21682987596168.78317012403837
502225.8469649680795-3.84696496807946
513533.96564543887231.03435456112769
522020.4440402316894-0.444040231689448
532833.3522008401327-5.3522008401327
544635.944550035218010.0554499647820
551830.6651582234731-12.6651582234731
562228.8218662501492-6.82186625014923
572021.5405593543360-1.54055935433596
582526.0871470925543-1.08714709255433
593135.5940478535116-4.59404785351156
602125.4510823415414-4.45108234154141
612326.6042030905924-3.60420309059243
622635.1628504917917-9.16285049179172
633432.19407778936321.80592221063683
643132.9672127172928-1.96721271729283
652325.4012672486250-2.40126724862503
663123.95733554847477.04266445152533
672625.99801747657110.00198252342885122
683628.30435542464757.69564457535252
692831.3139884695797-3.31398846957972
703427.14406035802086.85593964197917
712536.5155925413594-11.5155925413594
723339.2863509146685-6.28635091466854
734636.65120516438139.34879483561872
742430.1353899682791-6.13538996827909
753234.8180947387095-2.81809473870947
763326.4478569462696.55214305373099
774239.79361694807472.20638305192533
781721.5658598462132-4.56585984621321
793625.161709027553910.8382909724461
804029.634224884241910.3657751157581
813034.7644983077102-4.76449830771017
821940.1436131568629-21.1436131568629
833327.14201210625295.85798789374709
843527.43027853034567.56972146965436
852328.4122905914783-5.41229059147828
861521.6047824701026-6.60478247010257
873839.4387169800255-1.43871698002551
883730.23379944882156.76620055117846
892325.8880281665566-2.88802816655662
904130.733782723981710.2662172760183
913433.15145116921010.848548830789893
923830.52020083074667.4797991692534
934528.491421811597616.5085781884024
942724.64583483839292.35416516160715
954637.54962732543688.45037267456315
962636.9388788559298-10.9388788559298
974435.82203161983588.1779683801642
983630.12161049267765.87838950732237
992030.2353511596742-10.2353511596742
1004429.098085768264914.9019142317351
1012736.3254104836625-9.32541048366253
1022731.7583176299696-4.75831762996962
1034137.81501578483113.18498421516886
1043026.52495550371583.47504449628421
1053336.2109566022745-3.21095660227445
1063729.91121694663597.08878305336409
1073033.6919584065864-3.69195840658638
1082024.6267340966874-4.62673409668739
1094434.38694648777319.61305351222692
1102025.5991316892990-5.59913168929905
1113329.91820811242343.08179188757662
1123137.7010402460891-6.70104024608906
1132337.0327999915710-14.0327999915710
1143329.44257781750623.55742218249378
1153324.81138796296448.18861203703556
1163226.48195635088575.51804364911432
1172524.05683396692350.943166033076527
1183741.2419483071221-4.24194830712205
1194839.8961190944298.103880905571
1204535.66307449865309.33692550134704
1213243.2926306536891-11.2926306536891
1224638.46185302031877.53814697968128
1232043.1543495196424-23.1543495196424
1244234.29615898182317.70384101817685
1254523.541030916832821.4589690831672
1262935.2570988026026-6.25709880260262
1275145.59530957966775.40469042033231
1285538.583977444040316.4160225559597
1295042.55548019761977.44451980238029
1304442.67003814624291.32996185375712
1314128.281751138835512.7182488611645
1324035.08190769432774.91809230567229
1334735.270878536549411.7291214634506
1344228.277881334677313.7221186653227
1354039.06288461003810.937115389961859
1365137.037772596885913.9622274031141
1374339.21579049822333.78420950177667
1384541.10714711272733.89285288727269
1394129.480340540448011.5196594595520
1404136.78081345708154.21918654291845
1413739.6018243589976-2.60182435899761
1424633.776247676825212.2237523231748
1433836.67094444044551.32905555955446
1443933.3383010517575.66169894824299
1454527.448900828068317.5510991719317
1462814.955362975174913.0446370248251
1474527.91258637726117.087413622739
1482120.15422561320230.845774386797683
1493341.9980838553634-8.9980838553634
1501426.8269451221798-12.8269451221798
1511626.1041038881578-10.1041038881578
1521446.3388547278599-32.3388547278599
1534041.6414841221541-1.64148412215411
1544936.985385474379312.0146145256207
1553843.98721714535-5.98721714535
1563237.1689129928571-5.16891299285709
1574638.14883948160127.85116051839881
1583232.6338163476258-0.633816347625763
1594148.3893007545774-7.3893007545774
1604339.21896306311943.78103693688065
1614437.51274506564486.48725493435517
1624741.69617743654245.30382256345756
1632841.3968606710783-13.3968606710783
1645241.925825469479610.0741745305204
1652734.5157610912369-7.51576109123693
1664543.59140568934251.40859431065747
1672729.2581168969254-2.25811689692537
1682543.5145649322564-18.5145649322564
1692834.2091344539451-6.2091344539451
1702538.6933444721913-13.6933444721913
1715241.037797730619810.9622022693802
1724443.3776993876390.622300612361028
1734333.79065728279939.20934271720067
1744741.79610896299415.20389103700586
1755241.940199970641810.0598000293582
1764037.41843588757082.58156411242923
1774234.48764267083267.51235732916744
1784541.13100001879913.86899998120093
1794542.53895110383382.46104889616623
1805041.87692999957998.12307000042006
1814942.37361491108376.62638508891627
1825231.601985136298920.3980148637011
1834837.424184609211410.5758153907886
1845131.335375971614319.6646240283857
1854940.82832766433948.17167233566064
1863134.6404262430326-3.64042624303255
1874338.19713842002414.80286157997588
1883139.5113986093825-8.51139860938249
1892844.7802645140221-16.7802645140221
1904341.55149166167941.44850833832062
1913143.0297061765799-12.0297061765799
1925150.39685581078990.603144189210117
1935834.942887815431823.0571121845682
1942534.1774020071365-9.17740200713653
1952738.2994215735338-11.2994215735338


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
90.7535967480585980.4928065038828050.246403251941402
100.8292755453476680.3414489093046640.170724454652332
110.861900933606440.2761981327871210.138099066393560
120.8049392945124780.3901214109750430.195060705487522
130.7336977193494660.5326045613010690.266302280650534
140.7042542702840720.5914914594318550.295745729715928
150.6179483745266350.764103250946730.382051625473365
160.5337301080695840.9325397838608320.466269891930416
170.4644084872161110.9288169744322210.535591512783889
180.533763989659970.9324720206800610.466236010340030
190.5612227585951290.8775544828097420.438777241404871
200.5234380996171840.9531238007656310.476561900382816
210.4530304317101130.9060608634202260.546969568289887
220.4235298762672640.8470597525345280.576470123732736
230.4961256125904080.9922512251808150.503874387409592
240.4737891076537850.947578215307570.526210892346215
250.4576244678418780.9152489356837560.542375532158122
260.3909490198441520.7818980396883050.609050980155848
270.3453679313692760.6907358627385530.654632068630724
280.2898470472136530.5796940944273070.710152952786347
290.4290526379193540.8581052758387080.570947362080646
300.3717524705537920.7435049411075840.628247529446208
310.3272467208601110.6544934417202210.67275327913989
320.2856641600557010.5713283201114030.714335839944299
330.2370854765843280.4741709531686560.762914523415672
340.2490425395583330.4980850791166670.750957460441667
350.2146439186462130.4292878372924270.785356081353787
360.1934957310637460.3869914621274920.806504268936254
370.1750756114060210.3501512228120430.824924388593979
380.1521902763226230.3043805526452470.847809723677377
390.1389804113177830.2779608226355650.861019588682217
400.1232605040885130.2465210081770270.876739495911486
410.1276398958572060.2552797917144130.872360104142794
420.1352646000640480.2705292001280950.864735399935952
430.1538709194413870.3077418388827730.846129080558613
440.2831159729787870.5662319459575740.716884027021213
450.2641373113690970.5282746227381940.735862688630903
460.2937737696469290.5875475392938580.706226230353071
470.3192142665342850.6384285330685690.680785733465715
480.2952354769328630.5904709538657260.704764523067137
490.2916311640677510.5832623281355010.70836883593225
500.2738630414548990.5477260829097980.726136958545101
510.2380047274572160.4760094549144310.761995272542784
520.2055592266513330.4111184533026660.794440773348667
530.1798871154133630.3597742308267270.820112884586637
540.3191972663690790.6383945327381590.68080273363092
550.3309387428249550.661877485649910.669061257175045
560.3351908362890380.6703816725780760.664809163710962
570.3073706624807570.6147413249615140.692629337519243
580.2720652231361130.5441304462722260.727934776863887
590.2689332304317820.5378664608635630.731066769568218
600.2431105417264170.4862210834528350.756889458273583
610.2338993583160570.4677987166321140.766100641683943
620.2128262550235570.4256525100471150.787173744976443
630.236446899014780.472893798029560.76355310098522
640.2180019818758740.4360039637517480.781998018124126
650.1943191936558670.3886383873117350.805680806344133
660.1795518893974940.3591037787949880.820448110602506
670.1534680571869620.3069361143739240.846531942813038
680.1367990080732570.2735980161465140.863200991926743
690.1155484277999540.2310968555999080.884451572200046
700.09893848844243240.1978769768848650.901061511557568
710.1134314305554100.2268628611108200.88656856944459
720.09530832993142960.1906166598628590.90469167006857
730.1051282125919250.2102564251838500.894871787408075
740.0928822942540280.1857645885080560.907117705745972
750.07788597018707210.1557719403741440.922114029812928
760.0712960543851190.1425921087702380.928703945614881
770.06613385937807220.1322677187561440.933866140621928
780.06199357744892440.1239871548978490.938006422551076
790.09496513501842530.1899302700368510.905034864981575
800.1434300626057320.2868601252114630.856569937394268
810.1238722899925470.2477445799850940.876127710007453
820.1915845350979640.3831690701959270.808415464902036
830.1824647465232930.3649294930465860.817535253476707
840.1677417442354890.3354834884709780.832258255764511
850.1590829699038200.3181659398076400.84091703009618
860.1670373187092740.3340746374185490.832962681290726
870.147111703099550.29422340619910.85288829690045
880.1341500721673950.2683001443347900.865849927832605
890.1204289692359710.2408579384719420.879571030764029
900.1528498710576630.3056997421153250.847150128942337
910.1355744096757140.2711488193514290.864425590324285
920.1265407186610770.2530814373221540.873459281338923
930.1683644414486980.3367288828973960.831635558551302
940.1432613853486840.2865227706973690.856738614651316
950.1655234325200300.3310468650400590.83447656747997
960.1758076297434910.3516152594869820.82419237025651
970.1915990331688490.3831980663376990.80840096683115
980.1770866765181390.3541733530362770.822913323481861
990.1873000379491850.3746000758983690.812699962050815
1000.2422218630062520.4844437260125040.757778136993748
1010.2295730571932800.4591461143865590.77042694280672
1020.2066602978001050.413320595600210.793339702199895
1030.1970244192809330.3940488385618660.802975580719067
1040.1697268565170680.3394537130341360.830273143482932
1050.1457334986741950.291466997348390.854266501325805
1060.1424334310842860.2848668621685720.857566568915714
1070.1222468491043530.2444936982087070.877753150895647
1080.1118869828602210.2237739657204420.888113017139779
1090.1160060092203640.2320120184407270.883993990779636
1100.1059679947038260.2119359894076520.894032005296174
1110.09170493832597730.1834098766519550.908295061674023
1120.07898230612408140.1579646122481630.921017693875919
1130.09107665645375050.1821533129075010.90892334354625
1140.07585014950596050.1517002990119210.92414985049404
1150.0686783957223840.1373567914447680.931321604277616
1160.05849659180117650.1169931836023530.941503408198823
1170.05198740593534210.1039748118706840.948012594064658
1180.04735030380610320.09470060761220650.952649696193897
1190.06445884043427430.1289176808685490.935541159565726
1200.07219381637612810.1443876327522560.927806183623872
1210.07361455147045370.1472291029409070.926385448529546
1220.07420066100393170.1484013220078630.925799338996068
1230.1812279453546750.362455890709350.818772054645325
1240.1810057464171440.3620114928342880.818994253582856
1250.2620490019617190.5240980039234380.737950998038281
1260.2797529222848750.559505844569750.720247077715125
1270.2586560151053300.5173120302106590.74134398489467
1280.3309990610734120.6619981221468240.669000938926588
1290.3123848595708690.6247697191417380.687615140429131
1300.2765507208935770.5531014417871530.723449279106423
1310.2690589577586980.5381179155173950.730941042241302
1320.2362839143585320.4725678287170640.763716085641468
1330.2263527713534390.4527055427068790.77364722864656
1340.2161334454789830.4322668909579670.783866554521017
1350.1878597098597240.3757194197194490.812140290140276
1360.2035589077553360.4071178155106720.796441092244664
1370.1740196317332000.3480392634663990.8259803682668
1380.1497414715623280.2994829431246550.850258528437672
1390.1398648506778770.2797297013557540.860135149322123
1400.1164634454805600.2329268909611190.88353655451944
1410.09901646114885120.1980329222977020.900983538851149
1420.1024502765466400.2049005530932800.89754972345336
1430.08521785893271630.1704357178654330.914782141067284
1440.08534512121820010.1706902424364000.9146548787818
1450.1992090013188090.3984180026376180.800790998681191
1460.2127979243978020.4255958487956050.787202075602198
1470.2766588112118270.5533176224236550.723341188788173
1480.2369117835537550.473823567107510.763088216446245
1490.237728716557510.475457433115020.76227128344249
1500.2408068172215420.4816136344430830.759193182778458
1510.2344039440813520.4688078881627040.765596055918648
1520.6913839963107330.6172320073785340.308616003689267
1530.6457975817980410.7084048364039170.354202418201959
1540.6365195987823520.7269608024352970.363480401217648
1550.5871514570817160.8256970858365670.412848542918284
1560.5385910548573260.9228178902853480.461408945142674
1570.5443676305163640.9112647389672710.455632369483636
1580.4910299014181980.9820598028363950.508970098581802
1590.4527827562831250.905565512566250.547217243716875
1600.4020676655054320.8041353310108650.597932334494568
1610.3838016222785240.7676032445570470.616198377721476
1620.3366352693571010.6732705387142010.6633647306429
1630.3544983410117550.708996682023510.645501658988245
1640.3114632060132540.6229264120265070.688536793986746
1650.3305945294544000.6611890589088010.6694054705456
1660.283309241630840.566618483261680.71669075836916
1670.3562841654838090.7125683309676180.643715834516191
1680.4511752497811400.9023504995622810.54882475021886
1690.3889072152024110.7778144304048230.611092784797589
1700.4175725000646540.8351450001293090.582427499935346
1710.4155094259547270.8310188519094550.584490574045273
1720.3506197855094240.7012395710188480.649380214490576
1730.2939723321249050.587944664249810.706027667875095
1740.2448757238132080.4897514476264160.755124276186792
1750.2346674928785100.4693349857570200.76533250712149
1760.2035678585056210.4071357170112410.79643214149438
1770.1543215704013040.3086431408026080.845678429598696
1780.1366647675724600.2733295351449200.86333523242754
1790.09980845110990690.1996169022198140.900191548890093
1800.1843492857855550.368698571571110.815650714214445
1810.1511972410438790.3023944820877590.84880275895612
1820.1131115851795230.2262231703590470.886888414820477
1830.07266999515208930.1453399903041790.92733000484791
1840.06546125410550950.1309225082110190.93453874589449
1850.2301986595729790.4603973191459580.769801340427021
1860.1358092910666510.2716185821333020.864190708933349


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level00OK
5% type I error level00OK
10% type I error level10.00561797752808989OK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/10zbea1293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/10zbea1293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/1ashz1293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/1ashz1293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/2ashz1293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/2ashz1293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/3ljg21293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/3ljg21293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/4ljg21293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/4ljg21293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/5ljg21293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/5ljg21293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/6wty51293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/6wty51293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/7okf81293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/7okf81293394680.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/8okf81293394680.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293394602qeiw48dzdjmirdu/8okf81293394680.ps (open in new window)


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