Home » date » 2010 » Dec » 27 »

*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: Mon, 27 Dec 2010 21:14: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/27/t129348432511rsgpd3zq4vu0o.htm/, Retrieved Mon, 27 Dec 2010 22:12:17 +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/27/t129348432511rsgpd3zq4vu0o.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 «
1 27 27 5 5 26 26 49 49 35 35 40 1 36 36 4 4 25 25 45 45 34 34 45 1 25 25 4 4 17 17 54 54 13 13 38 1 27 27 3 3 37 37 36 36 35 35 28 1 50 50 4 4 27 27 46 46 35 35 39 1 41 41 4 4 36 36 42 42 36 36 37 1 48 48 5 5 25 25 41 41 27 27 30 1 44 44 2 2 29 29 45 45 29 29 29 1 28 28 3 3 26 26 42 42 15 15 39 1 56 56 3 3 24 24 45 45 33 33 35 1 50 50 5 5 29 29 43 43 32 32 34 1 47 47 4 4 26 26 45 45 21 21 38 1 52 52 2 2 21 21 42 42 25 25 21 1 45 45 4 4 21 21 47 47 22 22 35 1 3 3 30 30 41 41 26 26 36 1 52 52 4 4 21 21 44 44 34 34 1 46 46 2 2 29 29 51 51 34 34 37 1 58 58 3 3 28 28 46 46 36 36 37 1 54 54 5 5 19 19 47 47 36 36 37 1 29 29 3 3 26 26 46 46 26 26 32 1 43 43 2 2 34 34 50 50 34 34 31 1 45 45 3 3 24 24 51 51 33 33 42 1 46 46 5 5 20 20 47 47 37 37 31 1 25 25 4 4 21 21 46 46 29 29 44 1 47 47 2 2 33 33 43 43 35 35 35 1 41 41 3 3 22 22 55 55 28 28 32 1 29 29 4 4 18 18 52 52 25 25 38 1 45 45 5 5 20 20 56 56 32 32 40 1 54 54 2 2 26 26 46 46 27 27 45 1 28 28 4 4 23 23 51 51 27 27 42 1 37 37 3 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 time18 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
Intrinsieke_waarden[t] = -24.8966504105950 + 0.456806170205304geslacht[t] + 0.0318319415995283leeftijd[t] + 0.318881581238335leeftijd_man[t] + 0.183119575587883opleiding[t] -0.135353735016668opleiding_man[t] + 0.567135811953931Neuroticisme[t] + 0.0966406034130302Neuroticisme_man[t] + 0.114508410025917Extraversie[t] + 0.267732438537325Extraversie_man[t] -0.0326812144046273Openheid[t] + 0.305178309477321Openheid_man[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)-24.89665041059504.424988-5.626400
geslacht0.4568061702053040.0663426.885600
leeftijd0.03183194159952830.0796830.39950.6900040.345002
leeftijd_man0.3188815812383350.0923323.45370.0006870.000344
opleiding0.1831195755878830.0789292.32010.0214410.010721
opleiding_man-0.1353537350166680.0883-1.53290.127030.063515
Neuroticisme0.5671358119539310.0726477.806700
Neuroticisme_man0.09664060341303020.0936351.03210.3033870.151694
Extraversie0.1145084100259170.0875611.30780.1925940.096297
Extraversie_man0.2677324385373250.1009382.65250.0086930.004346
Openheid-0.03268121440462730.073388-0.44530.6566130.328307
Openheid_man0.3051783094773210.0680794.48271.3e-056e-06


Multiple Linear Regression - Regression Statistics
Multiple R0.890589690556144
R-squared0.793149996924888
Adjusted R-squared0.780716390182669
F-TEST (value)63.7908221941467
F-TEST (DF numerator)11
F-TEST (DF denominator)183
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation8.62015225140122
Sum Squared Residuals13598.1855452328


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
14030.79363678577209.20636321422803
24531.43705574604913.5629442539510
33819.986724312440018.0132756875600
42833.0305146423447-5.03051464234472
53938.32933584014960.670664159850432
63739.8904355737312-2.89043557373119
73032.2569408009132-2.25694080091324
82935.4398524337145-6.43985243371447
93922.923190786071516.0768092139285
103537.4672868517960-2.46728685179604
113437.7404406805469-3.74044068054692
123832.41621867668815.58378132331195
132130.6986383675012-9.69863836750121
143529.43288834637675.56711165362329
155214.327021228860637.6729787711394
164657.4710793322765-11.4710793322765
175847.412372702860510.5876272971395
185444.44168406212149.5583159378786
192933.7032742142993-4.70327421429934
204336.63056801714236.36943198285766
214543.91688375562521.08311624437480
224642.85637849605413.14362150394595
232531.5893165154313-6.58931651543127
244739.67614988549017.32385011450989
254140.45377358991710.546226410082895
262934.6584037764682-5.65840377646822
274537.69949157270077.30050842729935
285445.67937306235018.32062693764987
292835.2559259776019-7.25592597760186
303738.8295165851031-1.8295165851031
315643.182630700665812.8173692993342
324327.474275327900715.5257246720993
333431.51328847774412.48671152225593
344241.11039361945620.889606380543839
354638.67255886643017.32744113356993
362529.1650247256869-4.16502472568689
372533.9488329992366-8.9488329992366
382524.15637148958380.84362851041622
394840.43914810072247.56085189927762
402730.5982147565159-3.59821475651589
412838.7505556476681-10.7505556476681
422537.5476513788366-12.5476513788366
432622.65397147409473.34602852590534
445140.862165922387510.1378340776125
452933.7391161628344-4.73911616283444
462928.30105455982320.698945440176799
474335.95444581628697.0455541837131
484437.68911278856316.31088721143695
492535.5111472850444-10.5111472850444
505143.73992711423427.26007288576583
514235.42381403683666.57618596316338
522533.8690116109406-8.86901161094056
535142.40299017608318.59700982391692
544640.96298884545485.03701115454523
552938.3042793950757-9.30427939507573
56331.2085071518208-28.2085071518208
572739.4058303962283-12.4058303962283
582020.5458661261612-0.545866126161208
594027.616091670008312.3839083299917
603327.3625498456585.63745015434198
612421.36031546231012.63968453768991
624128.468936350731112.5310636492689
632825.37504326037112.62495673962891
643727.95039501643259.04960498356747
654626.931598406455619.0684015935444
663940.5743895673292-1.57438956732918
672535.1160904953926-10.1160904953926
68121.2299621625815-20.2299621625815
69126.8200584071965-25.8200584071965
70132.3717235451892-31.3717235451892
714729.603699199278617.3963008007214
725242.18959516723169.81040483276838
732739.1255547727848-12.1255547727848
742725.32501224976821.67498775023183
752534.2390648252486-9.23906482524856
762830.9319082841473-2.93190828414725
772530.725024561518-5.72502456151800
785228.933057145689523.0669428543105
794446.169520769564-2.16952076956396
804227.761629730205314.2383702697947
814538.76659469518056.23340530481945
824539.31967438197925.68032561802077
835035.287542117864114.7124578821359
844940.03738145063928.96261854936078
855243.18113885756198.81886114243807
862546.7862884096534-21.7862884096534
87018.5936384590394-18.5936384590394
8800.406880715063305-0.406880715063305
8905.51867240334858-5.51867240334858
9001.35335678549965-1.35335678549965
9105.25700182434596-5.25700182434596
9204.68709091742028-4.68709091742028
9302.45572330527534-2.45572330527534
9402.39159585217417-2.39159585217417
950-0.4814660777800530.481466077780053
96011.9029382805405-11.9029382805405
970-1.413542317906641.41354231790664
9805.15540528016989-5.15540528016989
9906.0198133386327-6.0198133386327
1000-4.343533518557154.34353351855715
10105.9423716012304-5.9423716012304
10200.149371857934789-0.149371857934789
10306.80220950107238-6.80220950107238
10406.29772974432683-6.29772974432683
10505.65396348052784-5.65396348052784
1060-1.364815053904761.36481505390476
1073-7.1872069744826710.1872069744827
10833.18026629667281-0.180266296672810
10920.8754534239235331.12454657607647
1102-0.07525647173364642.07525647173365
11140.04839903122493893.95160096877506
11259.1865504788181-4.18655047881811
11330.5680210356863852.43197896431361
11454.300110989983770.699889010016229
11533.47249956504620-0.472499565046196
11646.23064736195612-2.23064736195612
1173-3.113228363570316.11322836357031
11835.53571664827053-2.53571664827053
11933.51608485755936-0.516084857559356
12044.56603330310107-0.566033303101073
12143.297235260317650.702764739682347
12245.53394020983907-1.53394020983907
12334.66957944265324-1.66957944265324
12433.14217475433213-0.142174754332125
12534.87884507651419-1.87884507651419
12651.688901038896273.31109896110373
12755.11168251447323-0.111682514473229
12848.40772233288465-4.40772233288465
12949.83630537611623-5.83630537611623
13049.3715986718685-5.37159867186849
13156.98526958801426-1.98526958801426
13233.19554620666393-0.195546206663933
13332.708176607705590.291823392294406
13428.32172030936436-6.32172030936435
13550.2896447005184884.71035529948151
13625.42581596480555-3.42581596480555
13735.99830328195859-2.99830328195859
13845.52652709164253-1.52652709164253
13941.368103622326232.63189637767377
14043.917075577740560.0829244222594392
14138.99189491077935-5.99189491077935
14257.08647627881007-2.08647627881007
14326.16977155484524-4.16977155484524
14433.17941319474191-0.179413194741914
1453-3.702157287690676.70215728769067
14646.37798244354826-2.37798244354826
14745.7640128495289-1.76401284952891
14843.483762373581100.516237626418895
14920.03947221205772291.96052778794228
15031.419272094259421.58072790574058
1513-1.200508464266174.20050846426617
15231.309473093832151.69052690616785
15336.09248968568503-3.09248968568503
15430.9515661649327152.04843383506729
15532.511530017542050.488469982457953
15643.038923870626410.961076129373588
15746.56092523604318-2.56092523604318
15844.58334999282386-0.583349992823856
15945.13972107433651-1.13972107433651
16038.62129144865624-5.62129144865624
16130.7320053455587892.26799465444121
16252.952228477917782.04777152208222
16338.24336821575896-5.24336821575896
16435.17565630770856-2.17565630770856
16535.00762979573495-2.00762979573495
16641.853360402988432.14663959701157
1674-7.023191517248711.0231915172487
16834.00677340771638-1.00677340771638
16934.1247567883498-1.12475678834980
17045.02088313868329-1.02088313868329
17143.388961110425170.611038889574834
17244.34108699580148-0.341086995801475
17330.8968359699931432.10316403000686
17432.941225874712240.0587741252877589
1753-0.923130948825363.92313094882536
17631.951041226015531.04895877398447
1775-2.081350801413997.08135080141399
17833.24164880550647-0.241648805506475
17945.86718464795905-1.86718464795905
1804-2.153905278805466.15390527880546
18126.42419318666336-4.42419318666336
18231.154788368623401.8452116313766
18334.29512973614627-1.29512973614627
18449.9061909167957-5.90619091679569
18541.763663647492672.23633635250733
18632.084188693992210.915811306007787
18738.44244547326481-5.44244547326481
18843.618932710883170.381067289116828
18943.060108493492270.939891506507734
1903-1.393571926115494.39357192611549
19132.914861644130960.0851383558690433
1924-3.130495466560437.13049546656043
19355.50321367004777-0.503213670047772
194515.7379695514650-10.7379695514650
195426.73659702224-22.73659702224


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
150.7260228495784110.5479543008431780.273977150421589
160.5865021759789910.8269956480420180.413497824021009
170.4483585959271450.896717191854290.551641404072855
180.3279286619883620.6558573239767240.672071338011638
190.2227837425665190.4455674851330380.777216257433481
200.1453570473314200.2907140946628410.85464295266858
210.08992492210249450.1798498442049890.910075077897506
220.05394651538434640.1078930307686930.946053484615654
230.03071975505699580.06143951011399150.969280244943004
240.01785721841822200.03571443683644410.982142781581778
250.009616597684187320.01923319536837460.990383402315813
260.005037551227187850.01007510245437570.994962448772812
270.002623013370360250.00524602674072050.99737698662964
280.001481285987564670.002962571975129340.998518714012435
290.0007019111249576180.001403822249915240.999298088875042
300.0003454334271685120.0006908668543370250.999654566572831
310.0002178939428256840.0004357878856513680.999782106057174
320.0001111967669430270.0002223935338860540.999888803233057
335.38781460423723e-050.0001077562920847450.999946121853958
343.35881149093987e-056.71762298187974e-050.99996641188509
351.77708100972868e-053.55416201945736e-050.999982229189903
368.92005580103997e-061.78401116020799e-050.999991079944199
374.30002820651557e-068.60005641303114e-060.999995699971793
381.87643309057254e-063.75286618114508e-060.99999812356691
399.7520780595726e-071.95041561191452e-060.999999024792194
403.9022624727108e-077.8045249454216e-070.999999609773753
412.51238558385337e-075.02477116770674e-070.999999748761442
421.04002302771591e-072.08004605543181e-070.999999895997697
435.9695121246782e-081.19390242493564e-070.999999940304879
443.58909148641945e-087.1781829728389e-080.999999964109085
451.47867839119145e-082.95735678238291e-080.999999985213216
465.608676522942e-091.1217353045884e-080.999999994391323
473.12584522371815e-096.2516904474363e-090.999999996874155
481.77995168098924e-093.55990336197848e-090.999999998220048
496.91450467674064e-101.38290093534813e-090.99999999930855
505.30693739602393e-101.06138747920479e-090.999999999469306
514.95843526817186e-109.91687053634373e-100.999999999504156
522.10804087657222e-104.21608175314444e-100.999999999789196
537.87832038312907e-101.57566407662581e-090.999999999212168
546.48539063629822e-091.29707812725964e-080.99999999351461
559.69230749034394e-091.93846149806879e-080.999999990307692
565.11438217917104e-050.0001022876435834210.999948856178208
570.0005321482319345840.001064296463869170.999467851768065
580.0003640229124301950.000728045824860390.99963597708757
590.004962578447781680.009925156895563350.995037421552218
600.003733242906124220.007466485812248440.996266757093876
610.004332316279090960.008664632558181920.99566768372091
620.01208152998582360.02416305997164730.987918470014176
630.01866453804803450.0373290760960690.981335461951966
640.01518884759583700.03037769519167400.984811152404163
650.03475957461267150.0695191492253430.965240425387328
660.6446274329175450.7107451341649090.355372567082455
670.8279599759492070.3440800481015850.172040024050793
680.995498806324550.009002387350901590.00450119367545079
690.9999995079695139.84060974674766e-074.92030487337383e-07
7011.75266381181848e-158.76331905909242e-16
7112.41501192897529e-191.20750596448765e-19
7211.31156119108330e-226.55780595541648e-23
7314.26047181738420e-262.13023590869210e-26
7411.16521809713750e-255.82609048568748e-26
7518.9833119088852e-264.4916559544426e-26
7611.19475099814726e-255.97375499073629e-26
7712.20036477666735e-271.10018238833368e-27
7815.21148960204935e-352.60574480102467e-35
7915.01729086429437e-362.50864543214719e-36
8013.32773286230618e-361.66386643115309e-36
8112.60227300593048e-371.30113650296524e-37
8212.61395175304350e-371.30697587652175e-37
8313.63126769915888e-411.81563384957944e-41
8412.84601866934973e-451.42300933467487e-45
8512.49046336878838e-781.24523168439419e-78
8612.19569407871294e-781.09784703935647e-78
8711.72976671580449e-838.64883357902245e-84
8811.41434594042334e-827.0717297021167e-83
8911.51755672465563e-817.58778362327814e-82
9011.69986073336014e-808.4993036668007e-81
9112.15905800105628e-791.07952900052814e-79
9211.25468568967617e-786.27342844838083e-79
9311.73454075378975e-778.67270376894877e-78
9412.10406774039786e-761.05203387019893e-76
9511.61649458817144e-758.08247294085722e-76
9611.97646728004634e-749.88233640023172e-75
9712.36542352007095e-731.18271176003547e-73
9813.18223477861625e-721.59111738930813e-72
9911.79087920402007e-718.95439602010037e-72
10011.94125578219323e-709.70627891096615e-71
10113.83878111263210e-701.91939055631605e-70
10215.71341880132168e-702.85670940066084e-70
10316.86751301840809e-693.43375650920405e-69
10418.67527452672934e-684.33763726336467e-68
10511.10627778300260e-665.53138891501298e-67
10611.37616289168856e-656.88081445844278e-66
10718.93188057097164e-654.46594028548582e-65
10814.99181380072592e-642.49590690036296e-64
10911.48075370128354e-637.4037685064177e-64
11014.50330024823391e-632.25165012411695e-63
11115.12525248701847e-622.56262624350924e-62
11217.44598605241934e-623.72299302620967e-62
11318.17720742779436e-614.08860371389718e-61
11413.35826688998422e-601.67913344499211e-60
11513.56328773196152e-591.78164386598076e-59
11613.43126549698685e-581.71563274849342e-58
11713.6039378857279e-571.80196894286395e-57
11813.83105609837453e-561.91552804918726e-56
11913.80001257458069e-551.90000628729035e-55
12014.34957321334738e-542.17478660667369e-54
12114.37287574767189e-532.18643787383594e-53
12213.84728910153595e-521.92364455076797e-52
12314.11387141142108e-512.05693570571054e-51
12414.26033009014125e-502.13016504507062e-50
12513.76094943254631e-491.88047471627315e-49
12611.25928982296381e-486.29644911481904e-49
12713.6213483221012e-481.8106741610506e-48
12813.04148487575758e-471.52074243787879e-47
12912.53149867144638e-461.26574933572319e-46
13012.35081473931609e-451.17540736965804e-45
13113.69215345068546e-451.84607672534273e-45
13214.11922165779359e-442.05961082889679e-44
13314.36378457523325e-432.18189228761663e-43
13411.50277493017172e-427.51387465085858e-43
13513.47862137457045e-421.73931068728522e-42
13618.64212623953196e-424.32106311976598e-42
13718.67672746054375e-414.33836373027188e-41
13818.85315146480257e-404.42657573240128e-40
13918.59778997447555e-394.29889498723778e-39
14018.21588729971402e-384.10794364985701e-38
14118.15168636954534e-374.07584318477267e-37
14211.67428932473843e-368.37144662369216e-37
14312.09138467186446e-361.04569233593223e-36
14412.23460731429781e-351.11730365714890e-35
14512.12190401115084e-341.06095200557542e-34
14612.36483068396902e-331.18241534198451e-33
14712.10185601813747e-321.05092800906873e-32
14812.03719627982217e-311.01859813991109e-31
14914.50919079680286e-312.25459539840143e-31
15014.84096202912957e-302.42048101456478e-30
15113.80080197658487e-291.90040098829244e-29
15213.63353321065016e-281.81676660532508e-28
15313.78864658892413e-271.89432329446207e-27
15412.26706698664794e-261.13353349332397e-26
15512.62724353429181e-251.31362176714590e-25
15612.40116182938439e-241.20058091469220e-24
15711.96452098714578e-239.8226049357289e-24
15811.72628350504972e-228.6314175252486e-23
15911.42553112085325e-217.12765560426626e-22
16011.56696689193833e-207.83483445969164e-21
16111.73786362259832e-198.68931811299161e-20
16212.59062256866741e-191.29531128433371e-19
16312.90734916838291e-181.45367458419145e-18
16412.042321156875e-171.0211605784375e-17
16511.75300264226726e-168.7650132113363e-17
1660.9999999999999992.07332466429811e-151.03666233214905e-15
1670.999999999999992.13026496974066e-141.06513248487033e-14
1680.9999999999999461.08856315509954e-135.4428157754977e-14
1690.999999999999411.17858597814817e-125.89292989074085e-13
1700.9999999999951669.66847469413007e-124.83423734706504e-12
1710.9999999999527869.44283310520991e-114.72141655260496e-11
1720.9999999995391639.2167412350288e-104.6083706175144e-10
1730.9999999963180787.3638436430116e-093.6819218215058e-09
1740.999999967263786.54724395095859e-083.27362197547929e-08
1750.9999996928741936.14251614105641e-073.07125807052820e-07
1760.9999980001720543.99965589189032e-061.99982794594516e-06
1770.9999882329150362.35341699279646e-051.17670849639823e-05
1780.9998983347074260.0002033305851476950.000101665292573848
1790.9991721478236190.001655704352762190.000827852176381093
1800.9941237359700310.01175252805993710.00587626402996856


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level1470.885542168674699NOK
5% type I error level1540.927710843373494NOK
10% type I error level1560.939759036144578NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/10ccnf1293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/10ccnf1293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/15bq41293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/15bq41293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/25bq41293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/25bq41293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/3yk771293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/3yk771293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/4yk771293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/4yk771293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/5yk771293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/5yk771293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/6deey1293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/6deey1293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/7j3ov1293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/7j3ov1293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/8j3ov1293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/8j3ov1293484432.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/9j3ov1293484432.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/27/t129348432511rsgpd3zq4vu0o/9j3ov1293484432.ps (open in new window)


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