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 22:27:50 +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/t1293402356c82evzo8q421ebi.htm/, Retrieved Sun, 26 Dec 2010 23:25:56 +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/t1293402356c82evzo8q421ebi.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 time10 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
Intrinsieke_waarden[t] = -24.8966504105951 + 0.456806170205309geslacht[t] + 0.0318319415995288leeftijd[t] + 0.318881581238336leeftijd_man[t] + 0.183119575587883opleiding[t] -0.135353735016668opleiding_man[t] + 0.567135811953931Neuroticisme[t] + 0.09664060341303Neuroticisme_man[t] + 0.114508410025915Extraversie[t] + 0.267732438537323Extraversie_man[t] -0.0326812144046286Openheid[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.89665041059514.424988-5.626400
geslacht0.4568061702053090.0663426.885600
leeftijd0.03183194159952880.0796830.39950.6900040.345002
leeftijd_man0.3188815812383360.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.096640603413030.0936351.03210.3033870.151694
Extraversie0.1145084100259150.0875611.30780.1925940.096297
Extraversie_man0.2677324385373230.1009382.65250.0086930.004346
Openheid-0.03268121440462860.073388-0.44530.6566130.328307
Openheid_man0.3051783094773210.0680794.48271.3e-056e-06


Multiple Linear Regression - Regression Statistics
Multiple R0.890589690556144
R-squared0.793149996924889
Adjusted R-squared0.780716390182669
F-TEST (value)63.7908221941469
F-TEST (DF numerator)11
F-TEST (DF denominator)183
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation8.62015225140121
Sum Squared Residuals13598.1855452327


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
14030.79363678577269.20636321422736
24531.437055746049513.5629442539505
33819.986724312439918.0132756875601
42833.0305146423446-5.03051464234461
53938.32933584014950.670664159850525
63739.8904355737311-2.89043557373109
73032.2569408009133-2.25694080091332
82935.4398524337144-6.43985243371439
93922.923190786071516.0768092139285
103537.4672868517959-2.46728685179594
113437.7404406805468-3.74044068054683
123832.4162186766885.58378132331201
132130.6986383675011-9.69863836750114
143529.43288834637665.56711165362338
155214.327021228860637.6729787711394
164657.4710793322765-11.4710793322765
175847.412372702860510.5876272971395
185444.44168406212149.55831593787863
192933.7032742142993-4.70327421429932
204336.63056801714236.36943198285766
214543.91688375562521.08311624437481
224642.8563784960543.14362150394598
232531.5893165154313-6.58931651543126
244739.67614988549017.32385011450992
254140.45377358991710.54622641008292
262934.6584037764682-5.65840377646823
274537.69949157270067.30050842729936
285445.67937306235018.32062693764989
292835.2559259776018-7.25592597760184
303738.8295165851031-1.82951658510309
315643.182630700665812.8173692993342
324327.474275327900815.5257246720992
333431.51328847774412.48671152225594
344241.11039361945610.88960638054387
354638.67255886643017.32744113356994
362529.1650247256869-4.16502472568693
372533.9488329992366-8.94883299923661
382524.15637148958380.843628510416237
394840.43914810072247.56085189927763
402730.5982147565159-3.59821475651589
412838.7505556476681-10.7505556476681
422537.5476513788366-12.5476513788366
432622.65397147409473.34602852590530
445140.862165922387510.1378340776125
452933.7391161628344-4.73911616283443
462928.30105455982320.698945440176777
474335.95444581628697.0455541837131
484437.68911278856306.31088721143696
492535.5111472850445-10.5111472850445
505143.73992711423427.26007288576583
514235.42381403683666.57618596316339
522533.8690116109405-8.86901161094054
535142.40299017608318.59700982391693
544640.96298884545485.03701115454525
552938.3042793950757-9.30427939507572
56331.2085071518208-28.2085071518208
572739.4058303962283-12.4058303962283
582020.5458661261612-0.545866126161166
594027.616091670008312.3839083299917
603327.36254984565815.63745015434195
612421.36031546231012.63968453768987
624128.468936350731212.5310636492688
632825.37504326037112.62495673962891
643727.95039501643269.04960498356739
654626.931598406455619.0684015935444
663940.5743895673292-1.57438956732923
672535.1160904953926-10.1160904953926
68121.2299621625814-20.2299621625814
69126.8200584071965-25.8200584071965
70132.3717235451891-31.3717235451891
714729.603699199278717.3963008007213
725242.18959516723169.81040483276836
732739.1255547727848-12.1255547727848
742725.32501224976821.67498775023181
752534.2390648252485-9.23906482524855
762830.9319082841472-2.93190828414722
772530.725024561518-5.725024561518
785228.933057145689523.0669428543105
794446.169520769564-2.16952076956397
804227.761629730205414.2383702697946
814538.76659469518056.23340530481945
824539.31967438197925.68032561802076
835035.287542117864114.7124578821359
844940.03738145063928.96261854936076
855243.18113885756208.81886114243805
862546.7862884096534-21.7862884096534
87018.5936384590394-18.5936384590394
8800.406880715063275-0.406880715063275
8905.51867240334857-5.51867240334857
9001.35335678549963-1.35335678549963
9105.25700182434596-5.25700182434596
9204.68709091742027-4.68709091742027
9302.45572330527533-2.45572330527533
9402.39159585217416-2.39159585217416
950-0.4814660777800410.481466077780041
96011.9029382805405-11.9029382805405
970-1.413542317906651.41354231790665
9805.15540528016988-5.15540528016988
9906.01981333863269-6.01981333863269
1000-4.343533518557154.34353351855715
10105.94237160123038-5.94237160123038
10200.149371857934798-0.149371857934798
10306.80220950107236-6.80220950107236
10406.29772974432684-6.29772974432684
10505.65396348052783-5.65396348052783
1060-1.364815053904741.36481505390474
1073-7.1872069744826510.1872069744827
10833.1802662966728-0.180266296672801
10920.8754534239235081.12454657607649
1102-0.07525647173365882.07525647173366
11140.04839903122494433.95160096877506
11259.1865504788181-4.18655047881809
11330.5680210356863822.43197896431362
11454.300110989983790.699889010016215
11533.47249956504615-0.472499565046153
11646.23064736195614-2.23064736195614
1173-3.113228363570316.11322836357031
11835.53571664827052-2.53571664827052
11933.51608485755938-0.516084857559375
12044.5660333031011-0.566033303101097
12143.297235260317640.702764739682362
12245.53394020983908-1.53394020983908
12334.66957944265322-1.66957944265322
12433.14217475433211-0.142174754332110
12534.87884507651419-1.87884507651419
12651.688901038896283.31109896110372
12755.11168251447321-0.111682514473212
12848.40772233288463-4.40772233288463
12949.83630537611625-5.83630537611625
13049.37159867186852-5.37159867186852
13156.98526958801426-1.98526958801426
13233.19554620666392-0.195546206663925
13332.708176607705590.291823392294410
13428.32172030936433-6.32172030936433
13550.2896447005184764.71035529948152
13625.42581596480556-3.42581596480556
13735.99830328195858-2.99830328195858
13845.52652709164253-1.52652709164253
13941.368103622326232.63189637767377
14043.917075577740600.0829244222593952
14138.99189491077936-5.99189491077936
14257.08647627881006-2.08647627881006
14326.16977155484524-4.16977155484524
14433.17941319474193-0.179413194741927
1453-3.702157287690686.70215728769068
14646.37798244354825-2.37798244354825
14745.7640128495289-1.76401284952890
14843.483762373581090.516237626418909
14920.03947221205769911.9605277879423
15031.419272094259421.58072790574058
1513-1.200508464266184.20050846426618
15231.309473093832161.69052690616784
15336.09248968568503-3.09248968568503
15430.9515661649327122.04843383506729
15532.511530017542070.48846998245793
15643.038923870626410.961076129373592
15746.56092523604318-2.56092523604318
15844.58334999282383-0.583349992823831
15945.1397210743365-1.1397210743365
16038.62129144865626-5.62129144865626
16130.7320053455587612.26799465444124
16252.952228477917752.04777152208225
16338.24336821575895-5.24336821575895
16435.17565630770856-2.17565630770856
16535.00762979573496-2.00762979573496
16641.853360402988432.14663959701157
1674-7.023191517248711.0231915172487
16834.00677340771636-1.00677340771636
16934.12475678834978-1.12475678834978
17045.02088313868326-1.02088313868326
17143.388961110425170.611038889574834
17244.34108699580148-0.341086995801476
17330.896835969993162.10316403000684
17432.941225874712220.0587741252877774
1753-0.9231309488253643.92313094882536
17631.951041226015551.04895877398445
1775-2.081350801413997.08135080141399
17833.24164880550645-0.241648805506448
17945.86718464795906-1.86718464795906
1804-2.153905278805476.15390527880547
18126.42419318666336-4.42419318666336
18231.154788368623401.84521163137660
18334.29512973614624-1.29512973614624
18449.9061909167957-5.90619091679569
18541.763663647492702.23633635250730
18632.084188693992210.915811306007786
18738.44244547326483-5.44244547326483
18843.618932710883210.381067289116789
18943.060108493492260.93989150650774
1903-1.393571926115494.39357192611549
19132.914861644130920.0851383558690758
1924-3.130495466560447.13049546656044
19355.50321367004779-0.503213670047788
194515.7379695514650-10.7379695514650
195426.73659702224-22.73659702224


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
150.7260228495784120.5479543008431750.273977150421588
160.5865021759789910.8269956480420180.413497824021009
170.4483585959271430.8967171918542850.551641404072857
180.3279286619883630.6558573239767260.672071338011637
190.2227837425665170.4455674851330340.777216257433483
200.1453570473314190.2907140946628380.854642952668581
210.08992492210249420.1798498442049880.910075077897506
220.05394651538434730.1078930307686950.946053484615653
230.03071975505699600.06143951011399210.969280244943004
240.01785721841822210.03571443683644420.982142781581778
250.00961659768418750.0192331953683750.990383402315812
260.005037551227187850.01007510245437570.994962448772812
270.002623013370360260.005246026740720530.99737698662964
280.001481285987564590.002962571975129170.998518714012435
290.0007019111249576440.001403822249915290.999298088875042
300.0003454334271684850.000690866854336970.999654566572831
310.00021789394282570.00043578788565140.999782106057174
320.0001111967669430280.0002223935338860550.999888803233057
335.38781460423764e-050.0001077562920847530.999946121853958
343.35881149093968e-056.71762298187937e-050.99996641188509
351.77708100972846e-053.55416201945692e-050.999982229189903
368.92005580104038e-061.78401116020808e-050.9999910799442
374.30002820651524e-068.60005641303049e-060.999995699971793
381.87643309057237e-063.75286618114475e-060.99999812356691
399.75207805957436e-071.95041561191487e-060.999999024792194
403.90226247271059e-077.80452494542119e-070.999999609773753
412.51238558385365e-075.02477116770731e-070.999999748761442
421.04002302771598e-072.08004605543197e-070.999999895997697
435.96951212467888e-081.19390242493578e-070.999999940304879
443.58909148641954e-087.17818297283908e-080.999999964109085
451.478678391191e-082.957356782382e-080.999999985213216
465.60867652294127e-091.12173530458825e-080.999999994391323
473.1258452237175e-096.251690447435e-090.999999996874155
481.77995168098964e-093.55990336197928e-090.999999998220048
496.9145046767396e-101.38290093534792e-090.99999999930855
505.30693739602464e-101.06138747920493e-090.999999999469306
514.95843526817165e-109.9168705363433e-100.999999999504157
522.10804087657194e-104.21608175314388e-100.999999999789196
537.87832038312808e-101.57566407662562e-090.999999999212168
546.4853906362962e-091.29707812725924e-080.99999999351461
559.69230749034174e-091.93846149806835e-080.999999990307692
565.1143821791711e-050.0001022876435834220.999948856178208
570.0005321482319345750.001064296463869150.999467851768065
580.0003640229124301790.0007280458248603580.99963597708757
590.004962578447781210.009925156895562420.995037421552219
600.003733242906124210.007466485812248430.996266757093876
610.004332316279090760.008664632558181520.99566768372091
620.01208152998582360.02416305997164720.987918470014176
630.01866453804803430.03732907609606870.981335461951966
640.01518884759583700.03037769519167390.984811152404163
650.03475957461267490.06951914922534980.965240425387325
660.6446274329175420.7107451341649160.355372567082458
670.8279599759491980.3440800481016030.172040024050802
680.995498806324550.009002387350901750.00450119367545087
690.9999995079695139.8406097467456e-074.9203048733728e-07
7011.75266381181876e-158.7633190590938e-16
7112.41501192897529e-191.20750596448765e-19
7211.31156119108310e-226.55780595541548e-23
7314.26047181738403e-262.13023590869201e-26
7411.16521809713759e-255.82609048568796e-26
7518.98331190888704e-264.49165595444352e-26
7611.19475099814744e-255.97375499073722e-26
7712.20036477666766e-271.10018238833383e-27
7815.21148960204894e-352.60574480102447e-35
7915.01729086429533e-362.50864543214767e-36
8013.32773286230554e-361.66386643115277e-36
8112.60227300593062e-371.30113650296531e-37
8212.61395175304279e-371.30697587652140e-37
8313.63126769916008e-411.81563384958004e-41
8412.84601866934800e-451.42300933467400e-45
8512.49046336878845e-781.24523168439423e-78
8612.19569407871288e-781.09784703935644e-78
8711.72976671580459e-838.64883357902294e-84
8811.41434594042342e-827.0717297021171e-83
8911.51755672465563e-817.58778362327814e-82
9011.69986073335995e-808.49930366679975e-81
9112.15905800105628e-791.07952900052814e-79
9211.25468568967617e-786.27342844838083e-79
9311.73454075378966e-778.67270376894828e-78
9412.10406774039786e-761.05203387019893e-76
9511.61649458817140e-758.08247294085699e-76
9611.97646728004629e-749.88233640023144e-75
9712.36542352007081e-731.18271176003541e-73
9813.18223477861644e-721.59111738930822e-72
9911.79087920402013e-718.95439602010063e-72
10011.94125578219306e-709.70627891096532e-71
10113.83878111263253e-701.91939055631627e-70
10215.71341880132168e-702.85670940066084e-70
10316.86751301840809e-693.43375650920405e-69
10418.6752745267291e-684.33763726336455e-68
10511.10627778300253e-665.53138891501267e-67
10611.37616289168879e-656.88081445844395e-66
10718.93188057097138e-654.46594028548569e-65
10814.99181380072563e-642.49590690036282e-64
10911.48075370128362e-637.40376850641812e-64
11014.50330024823416e-632.25165012411708e-63
11115.12525248701876e-622.56262624350938e-62
11217.4459860524187e-623.72299302620935e-62
11318.1772074277939e-614.08860371389695e-61
11413.35826688998412e-601.67913344499206e-60
11513.56328773196142e-591.78164386598071e-59
11613.43126549698685e-581.71563274849342e-58
11713.60393788572785e-571.80196894286393e-57
11813.83105609837442e-561.91552804918721e-56
11913.80001257458069e-551.90000628729035e-55
12014.34957321334726e-542.17478660667363e-54
12114.37287574767176e-532.18643787383588e-53
12213.84728910153567e-521.92364455076784e-52
12314.11387141142132e-512.05693570571066e-51
12414.26033009014125e-502.13016504507062e-50
12513.76094943254647e-491.88047471627323e-49
12611.25928982296388e-486.2964491148194e-49
12713.62134832210156e-481.81067416105078e-48
12813.04148487575771e-471.52074243787885e-47
12912.53149867144649e-461.26574933572325e-46
13012.35081473931622e-451.17540736965811e-45
13113.69215345068567e-451.84607672534284e-45
13214.1192216577937e-442.05961082889685e-44
13314.3637845752335e-432.18189228761675e-43
13411.50277493017161e-427.51387465085804e-43
13513.47862137457059e-421.73931068728530e-42
13618.64212623953184e-424.32106311976592e-42
13718.67672746054363e-414.33836373027181e-41
13818.85315146480307e-404.42657573240153e-40
13918.59778997447567e-394.29889498723784e-39
14018.21588729971402e-384.10794364985701e-38
14118.15168636954464e-374.07584318477232e-37
14211.67428932473831e-368.37144662369157e-37
14312.09138467186452e-361.04569233593226e-36
14412.23460731429790e-351.11730365714895e-35
14512.12190401115087e-341.06095200557543e-34
14612.36483068396898e-331.18241534198449e-33
14712.10185601813744e-321.05092800906872e-32
14812.03719627982232e-311.01859813991116e-31
14914.50919079680292e-312.25459539840146e-31
15014.84096202912991e-302.42048101456496e-30
15113.80080197658476e-291.90040098829238e-29
15213.63353321065011e-281.81676660532506e-28
15313.78864658892408e-271.89432329446204e-27
15412.26706698664797e-261.13353349332399e-26
15512.62724353429186e-251.31362176714593e-25
15612.40116182938443e-241.20058091469221e-24
15711.96452098714571e-239.82260493572855e-24
15811.72628350504968e-228.63141752524842e-23
15911.42553112085323e-217.12765560426616e-22
16011.56696689193834e-207.8348344596917e-21
16111.73786362259842e-198.6893181129921e-20
16212.59062256866739e-191.29531128433370e-19
16312.90734916838291e-181.45367458419145e-18
16412.04232115687496e-171.02116057843748e-17
16511.75300264226723e-168.76501321133617e-17
16612.07332466429810e-151.03666233214905e-15
1670.999999999999992.13026496974066e-141.06513248487033e-14
1680.9999999999999461.08856315509955e-135.44281577549774e-14
1690.999999999999411.17858597814816e-125.89292989074081e-13
1700.9999999999951669.66847469413014e-124.83423734706507e-12
1710.9999999999527869.44283310520995e-114.72141655260497e-11
1720.9999999995391639.2167412350288e-104.6083706175144e-10
1730.9999999963180787.36384364301155e-093.68192182150578e-09
1740.999999967263786.5472439509585e-083.27362197547925e-08
1750.9999996928741936.14251614105645e-073.07125807052823e-07
1760.9999980001720543.99965589189037e-061.99982794594518e-06
1770.9999882329150362.35341699279647e-051.17670849639824e-05
1780.9998983347074260.0002033305851476950.000101665292573848
1790.9991721478236190.001655704352762190.000827852176381096
1800.9941237359700310.01175252805993710.00587626402996855


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/26/t1293402356c82evzo8q421ebi/10m2n41293402456.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293402356c82evzo8q421ebi/10m2n41293402456.ps (open in new window)


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


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


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


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


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


http://www.freestatistics.org/blog/date/2010/Dec/26/t1293402356c82evzo8q421ebi/612pg1293402456.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/26/t1293402356c82evzo8q421ebi/612pg1293402456.ps (open in new window)


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


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


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