Home » date » 2010 » Dec » 01 »

Workshop 4

*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 10:12:58 +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/t12911982696yug1ymsupa7ejg.htm/, Retrieved Wed, 01 Dec 2010 11:11:26 +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/t12911982696yug1ymsupa7ejg.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 «
2 1 27 5 35 26 49 2 1 36 4 34 25 45 1 1 25 4 13 17 54 4 1 27 3 35 37 36 3 2 25 3 28 35 36 1 2 44 3 32 15 53 2 1 50 4 35 27 46 2 1 41 4 36 36 42 2 1 48 5 27 25 41 2 2 43 4 29 30 45 1 2 47 2 27 27 47 2 2 41 3 28 33 42 3 1 44 2 29 29 45 2 2 47 5 28 30 40 3 2 40 3 30 25 45 3 2 46 3 25 23 40 2 1 28 3 15 26 42 3 1 56 3 33 24 45 2 2 49 4 31 35 47 4 2 25 4 37 39 31 2 2 41 4 37 23 46 3 2 26 3 34 32 34 2 1 50 5 32 29 43 2 1 47 4 21 26 45 3 1 52 2 25 21 42 3 2 37 5 32 35 51 4 2 41 3 28 23 44 2 1 45 4 22 21 47 1 2 26 4 25 28 47 2 1 3 26 30 41 4 1 52 4 34 21 44 1 1 46 2 34 29 51 2 1 58 3 36 28 46 3 1 54 5 36 19 47 2 1 29 3 26 26 46 4 2 50 3 26 33 38 3 1 43 2 34 34 50 3 2 30 3 33 33 48 3 2 47 2 31 40 36 1 1 45 3 33 24 51 2 48 1 22 35 35 2 2 48 3 29 35 49 2 2 26 4 24 32 38 2 1 46 5 37 20 47 4 2 3 32 35 36 2 2 50 3 23 35 47 3 1 25 4 29 21 46 2 1 47 2 35 33 43 5 2 47 2 20 40 53 4 1 41 3 28 22 55 4 2 45 2 26 35 39 2 2 41 4 36 20 55 3 2 45 5 26 28 41 2 2 40 3 33 46 33 3 1 etc...
 
Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time11 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
Teamwork33rec[t] = + 56.3578676483602 -0.181121611496331geslacht[t] -0.217858586723552leeftijd[t] -0.403102859125285opleiding[t] -0.309347564888897Openheid[t] -0.308371926580031Neuroticisme[t] -0.526092314808072`Extraversie `[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)56.35786764836024.90695611.485300
geslacht-0.1811216114963310.064002-2.82990.0051620.002581
leeftijd-0.2178585867235520.057284-3.80310.0001939.7e-05
opleiding-0.4031028591252850.059104-6.820200
Openheid-0.3093475648888970.060651-5.10041e-060
Neuroticisme-0.3083719265800310.057734-5.341300
`Extraversie `-0.5260923148080720.047006-11.191900


Multiple Linear Regression - Regression Statistics
Multiple R0.751173541373145
R-squared0.564261689259072
Adjusted R-squared0.550355147426915
F-TEST (value)40.5752699750474
F-TEST (DF numerator)6
F-TEST (DF denominator)188
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation8.09104652000884
Sum Squared Residuals12307.4263523221


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
123.65569161191305-1.65569161191305
224.82015594122822-2.82015594122822
3111.4450438372218-10.4450438372218
447.90900623028884-3.90900623028884
5310.9457785996221-7.94577859962208
612.79294437218239-1.79294437218239
720.3179519942415231.68204800575848
821.298353629876630.70164637012337
926.07255225487497-4.07255225487497
1023.11890241421145-1.11890241421145
1113.54530006546956-2.54530006546956
1224.92023117635685-2.92023117635685
1334.19674308381483-1.19674308381483
1424.78417434712121-2.78417434712121
1535.40809310151865-2.40809310151865
1638.89488483282224-5.89488483282224
17214.1136362448752-12.1136362448752
1831.483806557351491.51619344264851
192-1.400988498423953.40098849842395
2049.15552152421692-5.15552152421692
2122.71235023979952-0.712350239799518
22310.8491350329213-7.84913503292135
2321.804424921047120.195575078952883
2426.13685790424487-4.13685790424487
2537.73651700664647-4.73651700664647
263-1.603505140987804.6035051409878
2746.95176581254102-2.95176581254102
2826.75290251608709-4.75290251608709
2917.62444787161133-6.62444787161133
30221.0144507437553-19.0144507437553
31111.7718563464008-10.7718563464008
3218.13482686884638-7.13482686884638
3316.26241810889727-5.26241810889727
3419.5530358536636-8.5530358536636
35115.6385762485134-14.6385762485134
36212.6626571803165-10.6626571803165
3716.91373349066285-5.91373349066285
38210.3796501305658-8.37965013056584
39210.9118618344566-8.91186183445657
40110.0479305771889-9.04793057718893
414824.779163805673123.2208361943269
424818.561044567171029.438955432829
432624.60743999525421.39256000474576
444622.504426813886923.4955731861131
4530.8851678933015582.11483210669844
46311.2324631782833-8.23246317828333
4742.334173221671671.66582677832833
482-1.393965531859803.3939655318598
492-0.4589066774151862.45890667741519
503-1.205371912424794.20537191242479
5125.49741981817633-3.49741981817633
524-1.909280066059455.90928006605945
5356.7423165217987-1.74231652179870
54310.5638733778826-7.56387337788265
5547.51509887411194-3.51509887411194
5655.0902582659543-0.090258265954297
575-5.270542682855910.2705426828559
5832.605496038290080.394503961709919
5944.53902564449172-0.539025644491719
6030.08153327631090332.91846672368910
613-1.474842590543034.47484259054303
62212.8727825102441-10.8727825102441
6338.62916684215383-5.62916684215383
6449.84199377090062-5.84199377090062
654-1.641463895413445.64146389541344
664-2.390690662684176.39069066268417
674-1.523715143774625.52371514377462
683-1.845399309489344.84539930948934
6937.320254476196-4.320254476196
703-3.082690013011716.08269001301171
7125.70609681280954-3.70609681280954
72313.3300996063586-10.3300996063586
7336.73316195574574-3.73316195574574
7437.6046921394136-4.60469213941360
75311.7621259274492-8.76212592744922
765-3.585519485011818.5855194850118
77312.4529192344847-9.45291923448468
785-0.6954774990037925.69547749900379
7942.342991172088961.65700882791104
8047.47924173032437-3.47924173032437
81412.4034753841663-8.40347538416633
82521.0709082572884-16.0709082572884
8343.445840305432960.554159694567039
845-3.221190993240098.2211909932401
8532.314160020344940.685839979655059
863-2.439123712998525.43912371299852
87214.6916352816308-12.6916352816308
8830.6127347206459152.38726527935408
8940.1820452460121763.81795475398782
9057.46501377248785-2.46501377248785
9158.87907044584107-3.87907044584107
9232.704929759411550.295070240588451
932-0.3814953196815232.38149531968152
943-1.956829834071434.95682983407143
9549.50835144418757-5.50835144418757
9615.36997226007593-4.36997226007593
97410.6497195173875-6.64971951738749
983-0.4791957082984743.47919570829847
99310.8557088183521-7.85570881835206
10045.25674818434468-1.25674818434468
101312.7053552969696-9.70535529696955
10243.552918818635520.447081181364483
10325.55562272390959-3.55562272390959
10431.805813865225511.19418613477449
105311.7090399878631-8.70903998786305
1063-2.565917638308295.5659176383083
10726.50925433892976-4.50925433892976
1085-1.537978113787486.53797811378748
109512.6014546122057-7.60145461220566
1104-1.449123150181615.44912315018161
11120.618342547130091.38165745286991
112314.3794804915105-11.3794804915105
11338.33901498440335-5.33901498440335
11435.97507472681706-2.97507472681706
1154-1.634936869460295.63493686946029
11651.354210357691273.64578964230873
117412.2699350720912-8.26993507209117
1183026.19494289760213.80505710239792
1192425.0122969624971-1.01229696249706
1202720.49750146564776.50249853435233
1212628.2320701741048-2.23207017410476
1223026.31412920656383.68587079343617
1231529.6137540617741-14.6137540617741
1242824.84037287611443.15962712388556
1253422.537194890218411.4628051097816
1262923.21137717280505.78862282719503
1272623.42824692780122.57175307219876
1283128.30941569369422.69058430630583
1292821.38345520401636.61654479598372
1303329.49614102299253.50385897700755
1313227.01086665668154.98913334331848
1323322.186447197952210.8135528020478
1333121.94230003164179.05769996835832
1343723.603781413909913.3962185860901
1352732.2822536819512-5.28225368195118
1361926.2717367879828-7.27173678798282
1372724.96864209621912.03135790378086
1383123.65846959855827.3415304014418
1393832.09139405409655.90860594590349
1402224.4479836716564-2.44798367165635
1413523.333595890392511.6664041096075
1423523.707941837074411.2920581629256
1433020.08704643779789.91295356220222
1444133.21723409937477.78276590062526
1452523.08147774293051.91852225706950
146266.0663929931834519.9336070068165
1473020.17702773801299.82297226198715
1482518.48786883536376.51213116463625
1493824.430868889571413.5691311104286
1503511.059466655248423.9405333447516
151499.5442504359473339.4557495640527
1524015.266291643449824.7337083565502
15333.86117843611636-0.86117843611636
1542-0.9655477219678732.96554772196787
155511.6273636758047-6.62736367580469
15658.32480193613167-3.32480193613167
15713.52043819858354-2.52043819858354
15823.45440122958215-1.45440122958215
15937.62762208407335-4.62762208407335
16033.03428154667045-0.0342815466704533
16122.77867170394853-0.778671703948527
16231.094517210095001.905482789905
163413.1985215817832-9.19852158178318
16454.559396128525370.440603871474633
16558.06870341105964-3.06870341105965
1661-0.5089871622570751.50898716225707
1672-0.7145971077679272.71459710776793
16839.5909729928579-6.5909729928579
16925.3028760002612-3.3028760002612
17017.25410691762637-6.25410691762637
1712-0.7699507055808022.7699507055808
172212.5795772448798-10.5795772448798
17340.5595010275592753.44049897244073
17433.70550563002747-0.705505630027472
17521.062645403803160.937354596196836
17634.83379723069364-1.83379723069364
17721.757503793952070.242496206047933
17833.29274131959690-0.292741319596895
17926.05171463634383-4.05171463634383
18053.072378662273571.92762133772643
18142.972399352892291.02760064710771
1823-6.130207880621989.13020788062198
18331.598248098330871.40175190166913
1841-6.809823882644417.80982388264441
1852-2.827550209506194.82755020950619
18631.038694486380951.96130551361905
18731.446248219157581.55375178084242
18837.56579694002818-4.56579694002818
18939.28822176585219-6.28822176585219
19026.77196077450595-4.77196077450595
19138.9126312915485-5.9126312915485
192410.4912633383816-6.49126333838164
19320.7544199245589331.24558007544107
19445.03335514991107-1.03335514991107
19523.65569161191377-1.65569161191377


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
100.0002468158761472570.0004936317522945150.999753184123853
111.75749591610434e-053.51499183220868e-050.999982425040839
128.1197712034293e-071.62395424068586e-060.99999918802288
131.87550414495736e-073.75100828991472e-070.999999812449585
141.20708398580669e-082.41416797161337e-080.99999998792916
155.01273743468723e-091.00254748693745e-080.999999994987263
163.89466743549885e-107.7893348709977e-100.999999999610533
174.22568707590942e-118.45137415181883e-110.999999999957743
184.95454520985085e-129.9090904197017e-120.999999999995046
197.71489264802238e-131.54297852960448e-120.999999999999229
205.22455248481107e-141.04491049696221e-130.999999999999948
213.36737965708210e-156.73475931416421e-150.999999999999997
224.21652457672521e-168.43304915345042e-161
232.72649062621617e-175.45298125243233e-171
241.72047124066403e-183.44094248132806e-181
251.06593615638218e-192.13187231276435e-191
264.91715672150619e-199.83431344301239e-191
271.19565503431552e-182.39131006863105e-181
281.04539750310065e-192.0907950062013e-191
292.16104172264669e-204.32208344529337e-201
302.84117319373774e-215.68234638747548e-211
312.83275794674141e-225.66551589348283e-221
322.43219697568112e-234.86439395136224e-231
332.1252352747663e-244.2504705495326e-241
342.17532915864978e-254.35065831729956e-251
351.07727023181189e-252.15454046362379e-251
361.44561490963593e-262.89122981927187e-261
371.65782159459822e-273.31564318919644e-271
385.38229533982967e-281.07645906796593e-271
391.46121926418044e-282.92243852836087e-281
401.41076615984121e-282.82153231968242e-281
412.57845244805132e-055.15690489610264e-050.99997421547552
427.86704036787008e-050.0001573408073574020.999921329596321
430.0007634279309907440.001526855861981490.99923657206901
440.01510417706119240.03020835412238480.984895822938808
450.01180130053857460.02360260107714920.988198699461425
460.0383442050082220.0766884100164440.961655794991778
470.02991140231220010.05982280462440020.9700885976878
480.02191748576499890.04383497152999780.978082514235001
490.02042098171876750.0408419634375350.979579018281233
500.01486706761943470.02973413523886940.985132932380565
510.01099535834980380.02199071669960750.989004641650196
520.008592157857044060.01718431571408810.991407842142956
530.006033916767795790.01206783353559160.993966083232204
540.0054293006764970.0108586013529940.994570699323503
550.004315703009022110.008631406018044230.995684296990978
560.003337968550509730.006675937101019470.99666203144949
570.003072101952641780.006144203905283560.996927898047358
580.002136455830284940.004272911660569880.997863544169715
590.001463406044932980.002926812089865960.998536593955067
600.0009765776272603630.001953155254520730.99902342237274
610.0007339411359574420.001467882271914880.999266058864043
620.001081084551567540.002162169103135080.998918915448432
630.0009593945529363830.001918789105872770.999040605447064
640.0007777549612941040.001555509922588210.999222245038706
650.0005603180375532860.001120636075106570.999439681962447
660.0004368328171292870.0008736656342585730.99956316718287
670.0003142930916454820.0006285861832909650.999685706908354
680.0002463690437819380.0004927380875638750.999753630956218
690.0001718964177342360.0003437928354684710.999828103582266
700.0001351190128747940.0002702380257495890.999864880987125
710.0001102348746151670.0002204697492303330.999889765125385
728.1232198873726e-050.0001624643977474520.999918767801126
735.21638636383846e-050.0001043277272767690.999947836136362
744.23600352405474e-058.47200704810949e-050.99995763996476
753.0934629338428e-056.1869258676856e-050.999969065370662
762.29161306724798e-054.58322613449596e-050.999977083869328
771.56163749688743e-053.12327499377486e-050.99998438362503
781.03137720562639e-052.06275441125278e-050.999989686227944
796.17392934902525e-061.23478586980505e-050.99999382607065
804.29047582573303e-068.58095165146605e-060.999995709524174
813.75454794309432e-067.50909588618865e-060.999996245452057
826.24882552254615e-061.24976510450923e-050.999993751174477
833.7333047478164e-067.4666094956328e-060.999996266695252
843.15407226931965e-066.30814453863931e-060.99999684592773
851.97337188204139e-063.94674376408278e-060.999998026628118
861.17715767373167e-062.35431534746334e-060.999998822842326
871.24601388921746e-062.49202777843491e-060.99999875398611
887.7553230367802e-071.55106460735604e-060.999999224467696
894.60369427306326e-079.20738854612652e-070.999999539630573
902.64645251706388e-075.29290503412776e-070.999999735354748
911.68074764122134e-073.36149528244268e-070.999999831925236
921.00744210046500e-072.01488420093001e-070.99999989925579
937.14001520403878e-081.42800304080776e-070.999999928599848
943.94840740872115e-087.89681481744231e-080.999999960515926
952.5890289048557e-085.1780578097114e-080.99999997410971
961.48533781725720e-082.97067563451441e-080.999999985146622
978.501872510237e-091.7003745020474e-080.999999991498127
985.42071592579504e-091.08414318515901e-080.999999994579284
999.46017673733332e-091.89203534746666e-080.999999990539823
1005.10392474275223e-091.02078494855045e-080.999999994896075
1016.6029229130572e-091.32058458261144e-080.999999993397077
1023.67509364883900e-097.35018729767801e-090.999999996324906
1032.04182769578397e-094.08365539156795e-090.999999997958172
1041.09464825371894e-092.18929650743788e-090.999999998905352
1051.57029037066103e-093.14058074132206e-090.99999999842971
1069.50130844616383e-101.90026168923277e-090.99999999904987
1075.92349080738795e-101.18469816147759e-090.99999999940765
1083.75392862512793e-107.50785725025585e-100.999999999624607
1092.76492087272946e-105.52984174545893e-100.999999999723508
1101.46351239905726e-102.92702479811453e-100.999999999853649
1117.44106160029434e-111.48821232005887e-100.99999999992559
1125.42191175419206e-101.08438235083841e-090.999999999457809
1135.21430280550079e-101.04286056110016e-090.99999999947857
1145.89058775232142e-101.17811755046428e-090.999999999410941
1154.15997005748042e-108.31994011496083e-100.999999999584003
1167.85665950673627e-101.57133190134725e-090.999999999214334
1174.74958089109058e-069.49916178218115e-060.99999525041911
1180.1823389696824380.3646779393648750.817661030317562
1190.3902691120246070.7805382240492150.609730887975393
1200.6285240307244010.7429519385511980.371475969275599
1210.7299667637638320.5400664724723350.270033236236168
1220.7684814804850630.4630370390298730.231518519514936
1230.9141662736775180.1716674526449650.0858337263224823
1240.9254910752164270.1490178495671460.074508924783573
1250.9538710960557830.0922578078884330.0461289039442165
1260.9761604870502960.04767902589940830.0238395129497041
1270.9713769634727770.05724607305444510.0286230365272225
1280.9685974795092520.06280504098149660.0314025204907483
1290.9643373856768710.07132522864625730.0356626143231287
1300.9605408984827220.07891820303455630.0394591015172781
1310.9610901733759530.07781965324809380.0389098266240469
1320.962163625874170.07567274825166060.0378363741258303
1330.9586252738932420.08274945221351650.0413747261067582
1340.970424993313530.05915001337294110.0295750066864705
1350.9676113767367170.0647772465265650.0323886232632825
1360.9783550236548170.04328995269036610.0216449763451830
1370.9751687049828870.04966259003422610.0248312950171131
1380.972881653599160.05423669280167930.0271183464008397
1390.9749498018549080.05010039629018320.0250501981450916
1400.9878973783758870.02420524324822680.0121026216241134
1410.9872792258307320.02544154833853630.0127207741692682
1420.9916373745759150.01672525084816910.00836262542408457
1430.990377328401460.01924534319707800.00962267159853898
1440.9955659973092740.00886800538145220.0044340026907261
1450.9936688901891140.01266221962177160.00633110981088578
1460.9968595725466350.006280854906729940.00314042745336497
1470.9976825598523190.004634880295362730.00231744014768136
1480.9981417126797710.003716574640457690.00185828732022884
1490.9994196482920840.001160703415832500.000580351707916252
1500.999832210190120.0003355796197592330.000167789809879617
1510.999991709217511.65815649813597e-058.29078249067985e-06
15217.01682646413588e-273.50841323206794e-27
15315.845013852657e-262.9225069263285e-26
15414.75523848568593e-252.37761924284297e-25
15511.88939491957205e-249.44697459786026e-25
15611.75321910424696e-248.7660955212348e-25
15714.88613898395969e-242.44306949197985e-24
15813.8289299765845e-231.91446498829225e-23
15913.16670099316466e-221.58335049658233e-22
16012.78942466727984e-211.39471233363992e-21
16112.35204795495301e-201.17602397747651e-20
16211.89291014110312e-199.4645507055156e-20
16311.35354676572101e-186.76773382860506e-19
16414.72603060387511e-182.36301530193756e-18
16512.52444454031183e-181.26222227015591e-18
16611.18848344097491e-175.94241720487456e-18
16711.02581841079045e-165.12909205395224e-17
16818.64342043510031e-164.32171021755016e-16
1690.9999999999999967.66492913589777e-153.83246456794888e-15
1700.999999999999984.08033110047915e-142.04016555023958e-14
1710.9999999999998712.57568304152799e-131.28784152076400e-13
1720.9999999999995878.26717026780455e-134.13358513390227e-13
1730.9999999999986352.73048291618847e-121.36524145809423e-12
1740.9999999999882722.34551276645789e-111.17275638322894e-11
1750.999999999929761.40480781631680e-107.02403908158399e-11
1760.999999999449751.10049959804398e-095.50249799021991e-10
1770.9999999969580136.08397411751767e-093.04198705875884e-09
1780.9999999776741264.46517476354363e-082.23258738177182e-08
1790.999999923933161.52133678610535e-077.60668393052674e-08
1800.9999998278314533.44337093274774e-071.72168546637387e-07
1810.9999989123378742.17532425240695e-061.08766212620348e-06
1820.999997692659524.61468095915202e-062.30734047957601e-06
1830.999982260446853.54791063014154e-051.77395531507077e-05
1840.999844854016020.000310291967961540.00015514598398077
1850.9982921249690720.003415750061856820.00170787503092841


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level1380.784090909090909NOK
5% type I error level1550.880681818181818NOK
10% type I error level1690.960227272727273NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/01/t12911982696yug1ymsupa7ejg/1014cm1291198365.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t12911982696yug1ymsupa7ejg/1014cm1291198365.ps (open in new window)


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


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


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


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


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


http://www.freestatistics.org/blog/date/2010/Dec/01/t12911982696yug1ymsupa7ejg/65tb31291198364.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t12911982696yug1ymsupa7ejg/65tb31291198364.ps (open in new window)


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


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


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