Home » date » 2010 » Dec » 01 »

*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:11:37 +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/t1291198402q3oewaxujnsd3ma.htm/, Retrieved Wed, 01 Dec 2010 11:13:35 +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/t1291198402q3oewaxujnsd3ma.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 «
4 27 1 5 26 49 35 4 36 1 4 25 45 34 5 25 1 4 17 54 13 2 27 1 3 37 36 35 3 25 2 3 35 36 28 5 44 2 3 15 53 32 4 50 1 4 27 46 35 4 41 1 4 36 42 36 4 48 1 5 25 41 27 4 43 2 4 30 45 29 5 47 2 2 27 47 27 4 41 2 3 33 42 28 3 44 1 2 29 45 29 4 47 2 5 30 40 28 3 40 2 3 25 45 30 3 46 2 3 23 40 25 4 28 1 3 26 42 15 3 56 1 3 24 45 33 4 49 2 4 35 47 31 2 25 2 4 39 31 37 4 41 2 4 23 46 37 3 26 2 3 32 34 34 4 50 1 5 29 43 32 4 47 1 4 26 45 21 3 52 1 2 21 42 25 3 37 2 5 35 51 32 2 41 2 3 23 44 28 4 45 1 4 21 47 22 5 26 2 4 28 47 25 4 1 3 30 41 26 2 52 1 4 21 44 34 5 46 1 2 29 51 34 4 58 1 3 28 46 36 3 54 1 5 19 47 36 4 29 1 3 26 46 26 2 50 2 3 33 38 26 3 43 1 2 34 50 34 3 30 2 3 33 48 33 3 47 2 2 40 36 31 5 45 1 3 24 51 33 48 2 1 35 35 22 4 48 2 3 35 49 29 4 26 2 4 32 38 24 4 46 1 5 20 47 37 2 2 3 35 36 32 4 50 2 3 35 47 23 3 25 1 4 21 46 29 4 47 1 2 33 43 35 1 47 2 2 40 53 20 2 41 1 3 22 55 28 2 45 2 2 35 39 26 4 41 2 4 20 55 36 3 45 2 5 28 41 26 4 40 2 3 46 33 33 3 2 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 time79 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
Teamwork[t] = + 45.5524104419848 -0.337389511564904leeftijd[t] -0.230173178231959geslacht[t] -0.101544702076264opleiding[t] + 0.128159964550332Neuroticisme[t] -0.445772756009979Extraversie[t] -0.327842515186265`Openheid `[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)45.55241044198486.2433977.296100
leeftijd-0.3373895115649040.060011-5.622100
geslacht-0.2301731782319590.067431-3.41340.0007860.000393
opleiding-0.1015447020762640.080315-1.26430.2076770.103838
Neuroticisme0.1281599645503320.0753321.70130.0905460.045273
Extraversie-0.4457727560099790.049427-9.018800
`Openheid `-0.3278425151862650.073437-4.46421.4e-057e-06


Multiple Linear Regression - Regression Statistics
Multiple R0.761884570669444
R-squared0.580468099024164
Adjusted R-squared0.567078783035573
F-TEST (value)43.3530808832056
F-TEST (DF numerator)6
F-TEST (DF denominator)188
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation9.13201861246577
Sum Squared Residuals15678.0276204232


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
145.71980294341926-1.71980294341926
244.76761561608748-0.767615616087484
3510.3263585417205-5.32635854172049
4213.1276977857554-11.1276977857554
5315.6108813078564-12.6108813078564
65-2.252225615798137.25222561579813
74-0.473132887916834.47313288791683
845.17206090597398-1.17206090597398
944.6953854055761-0.695385405576099
1044.45572825558414-0.455728255584136
1152.688919238178632.31108076182137
1247.28169265765741-3.28169265765741
1334.42344136185339-1.42344136185339
1445.56133180248442-1.56133180248442
1534.60079915441719-1.60079915441719
1636.18821851190832-3.18821851190832
17415.2627624318022-11.2627624318022
183-1.678947362498454.67894736249845
1941.524960466553882.47503953344612
20215.3002576073550-13.3002576073550
2141.164874649361522.83512535063848
22313.8135023235429-10.8135023235429
2342.002488152696331.99751184730367
2445.44644365084527-1.44644365084527
2533.3477338817065-0.347733881706499
2633.36115636403028-0.361156364030282
2725.10854750013413-3.10854750013413
2844.2610348240172-0.261034824017198
29510.3548545718119-5.35485457181194
30434.4869421933677-30.4869421933677
315231.005441633834520.9945583661655
324631.878392640726914.1216073592731
335830.545261344985827.4547386550142
345430.799134756572423.2008652434276
352935.5339208244244-6.53392082442441
365033.132596166736716.8674038332633
374331.570351680981511.4296483190185
383031.2937865201702-1.29378652017020
394729.511087690911717.4889123090883
404518.176645060690526.8233549393095
41218.9048825867587-16.9048825867587
42224.9181328205113-22.9181328205113
43219.1906044400042-17.1906044400042
44137.6840864679064-36.6840864679064
453-0.2235703182480283.22357031824803
4639.5024284907722-6.50242849077221
4744.16794595078603-0.167945950786026
482-0.5117992745917942.51179927459179
492-0.5214480909252762.52144809092528
5032.167925604942780.832074395057219
5123.70713316360349-1.70713316360349
5242.158506976012801.84149302398720
5356.05428614410388-1.05428614410388
5436.21503031400314-3.21503031400314
5549.54429757278717-5.54429757278717
5655.77095462871925-0.770954628719251
575-0.7858966859839555.78589668598396
5834.29959378384177-1.29959378384177
5943.135930497686540.864069502313457
6033.12137372320673-0.121373723206727
6130.5009176001366952.49908239986331
62212.1632459141473-10.1632459141473
6337.89457494853773-4.89457494853773
6449.13557323477626-5.13557323477626
6540.8802296574327483.11977034256725
664-0.94763430290454.9476343029045
6740.2694571748697843.73054282513022
683-2.385239716780865.38523971678086
6936.9815502387068-3.9815502387068
703-2.950109624726685.95010962472668
7125.89541330468906-3.89541330468906
7239.77309412192136-6.77309412192136
7332.078105375809170.921894624190834
7438.62138581381169-5.62138581381169
7539.33227299702776-6.33227299702776
765-1.484815121416426.48481512141642
7737.83350388390858-4.83350388390858
7853.199822711615391.80017728838461
7942.826214148658671.17378585134133
8046.36723984140592-2.36723984140592
81411.2435435967556-7.24354359675559
82518.9690654674542-13.9690654674542
8343.699775972006010.300224027993989
845-2.47698792343957.4769879234395
8533.43715496523528-0.437154965235284
8632.481052491727950.518947508272047
87210.8461592865560-8.84615928655595
883-0.3216351833447283.32163518334473
8942.173171221584461.82682877841554
9055.80127206683214-0.80127206683214
9157.99524473553121-2.99524473553121
9231.194150904431231.80584909556877
932-2.780380849873944.78038084987394
9430.2471485163307182.75285148366928
9546.27951101731234-2.27951101731234
9614.32106370492077-3.32106370492077
9747.07579320239772-3.07579320239772
983-1.220487749338864.22048774933886
99312.2988204037637-9.29882040376366
10043.620007687968110.379992312031893
101311.4677747483351-8.46777474833506
10244.30720047447823-0.307200474478235
10321.673944262640110.326055737359886
10432.448933746499220.551066253500782
105310.2042912879814-7.20429128798145
1063-2.531800498779745.53180049877974
10725.35061140860113-3.35061140860113
10851.144054756717133.85594524328287
10958.3953500290235-3.3953500290235
11041.776279889597252.22372011040275
11120.04893773766724311.95106226233276
112312.7805600875802-9.78056008758025
11337.48857211487927-4.48857211487927
11434.90734134975848-1.90734134975848
1154-0.4567243353815824.45672433538158
11651.849959078054393.15004092194561
117411.5594323098760-7.55943230987598
1182229.551611857446-7.55161185744601
1191628.2615312236473-12.2615312236473
1203628.61320233963697.38679766036315
1213531.90758768299203.09241231700804
1222527.5066961363315-2.50669613633152
1232739.0942890051891-12.0942890051891
1243228.29498854009473.70501145990525
1253626.28626082965939.71373917034072
1265132.808743643383518.1912563566165
1273025.7352148312224.26478516877802
1282021.3709353264023-1.37093532640233
1292925.85559923019283.14440076980722
1302624.19248637988981.80751362011017
1312027.2188378727945-7.21883787279453
1324027.822308525581312.1776914744186
1332926.15063296771752.84936703228246
1343226.69922480800785.30077519199224
1353326.27887681927296.72112318072706
1363225.92028193004466.0797180699554
1373427.92122255393456.07877744606548
1382426.3210953339826-2.32109533398262
1392524.442924400970.557075599030015
1404129.655552489874511.3444475101255
1413928.856748446022810.1432515539772
1422126.2047227355897-5.20472273558967
1433830.48559226765787.51440773234219
1442823.91454403120264.08545596879741
1453714.476310459137522.5236895408625
1464619.320399494670226.6796005053298
1473915.211011688767323.7889883112327
1482118.89069501866852.10930498133154
149318.845688713943522.1543112860565
150254.48060069591420.519399304086
151297.9404516205714821.0595483794285
1523117.129586917535513.8704130824645
15333.85379914569501-0.85379914569501
15442.672825907674511.32717409232549
155112.2298547373185-11.2298547373185
156110.6062574488159-9.60625744881589
15755.70311267211918-0.703112672119176
158410.6618447404868-6.66184474048679
15934.45202919382421-1.45202919382421
16037.00162325190522-4.00162325190522
16146.75668428548451-2.75668428548451
16230.8832637007116272.11673629928837
163216.5453084168261-14.5453084168261
16413.07120620590152-2.07120620590152
165115.6932189535923-14.6932189535923
16650.4764096525586024.5235903474414
16749.7580431355438-5.75804313554379
16837.24370825253617-4.24370825253617
169410.5612782733924-6.56127827339237
170512.0484084041503-7.04840840415034
1714-2.413707592990946.41370759299094
172411.3819048939138-7.3819048939138
17324.37888313041509-2.37888313041509
17436.35948042983969-3.35948042983969
1754-0.1586970620723444.15869706207234
17638.67903948550988-5.67903948550988
17743.74194300062660.258056999373399
17832.859183060859880.140816939140122
17946.17103718222979-2.17103718222979
18012.55596142580341-1.55596142580341
1812-1.295338872325723.29533887232572
18230.8085835819048232.19141641809518
18332.552712608376230.447287391623767
1845-1.337597220971156.33759722097115
1854-0.002643904322756194.00264390432276
18638.29457560000116-5.29457560000116
18731.104280186509301.89571981349070
188311.5015589065257-8.50155890652568
18939.18315417403906-6.18315417403906
19048.79003681502858-4.79003681502858
19137.90850989522285-4.90850989522285
19224.50592643797805-2.50592643797805
19341.844724636187032.15527536381297
194210.1001855224273-8.10018552242727
19545.71980294341946-1.71980294341946


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
100.0001733003160171490.0003466006320342970.999826699683983
111.09596655118670e-052.19193310237339e-050.999989040334488
124.4972658468272e-078.9945316936544e-070.999999550273415
139.23387117627485e-081.84677423525497e-070.999999907661288
145.26853697282594e-091.05370739456519e-080.999999994731463
151.94165482223767e-093.88330964447534e-090.999999998058345
161.32325023848456e-102.64650047696912e-100.999999999867675
171.23875477757535e-112.47750955515070e-110.999999999987612
181.29386150494948e-122.58772300989896e-120.999999999998706
191.78041354711013e-133.56082709422026e-130.999999999999822
201.13842776791048e-142.27685553582096e-140.999999999999989
216.53066267983013e-161.30613253596603e-151
227.41432159546549e-171.4828643190931e-161
234.27471698570774e-188.54943397141549e-181
242.35921643593315e-194.7184328718663e-191
251.26725445490410e-202.53450890980819e-201
265.16731020361028e-201.03346204072206e-191
271.11516895865872e-192.23033791731743e-191
288.35863912376145e-211.67172782475229e-201
291.47617221958398e-212.95234443916797e-211
303.95025166909836e-227.90050333819672e-221
310.05342893665272910.1068578733054580.946571063347271
320.1336434435780230.2672868871560460.866356556421977
330.3529090595166130.7058181190332250.647090940483387
340.4119613547820420.8239227095640830.588038645217958
350.3729195716529330.7458391433058660.627080428347067
360.5247968927346760.9504062145306490.475203107265324
370.5249421219978520.9501157560042960.475057878002148
380.63538828306280.7292234338744010.364611716937201
390.759364926223680.481270147552640.24063507377632
400.9164987250011470.1670025499977060.0835012749988528
410.9763017051855630.04739658962887480.0236982948144374
420.987835665724880.02432866855024150.0121643342751208
430.9932069070473580.01358618590528390.00679309295264195
440.9991843079886880.001631384022624990.000815692011312493
450.9989020883883130.002195823223374280.00109791161168714
460.9997491689185180.0005016621629643960.000250831081482198
470.999722545127140.0005549097457199820.000277454872859991
480.9996092697101120.0007814605797765550.000390730289888278
490.999537363232490.0009252735350205740.000462636767510287
500.9993451650226780.001309669954644410.000654834977322207
510.9990304040534920.001939191893016540.000969595946508271
520.9987724505593880.002455098881223020.00122754944061151
530.9982673837152140.003465232569573020.00173261628478651
540.9983018021261050.003396395747790060.00169819787389503
550.997872516700590.004254966598821890.00212748329941094
560.997196978123550.005606043752900820.00280302187645041
570.9967566540666450.006486691866709730.00324334593335487
580.9955407246795690.008918550640862130.00445927532043107
590.9941308869380230.01173822612395350.00586911306197673
600.9921933726277150.01561325474456970.00780662737228484
610.9919139363867190.01617212722656190.00808606361328093
620.9928353977874470.01432920442510670.00716460221255335
630.9934122206519310.01317555869613800.00658777934806898
640.9930253785868230.01394924282635310.00697462141317653
650.991087010974340.01782597805131850.00891298902565924
660.9887700515183830.02245989696323450.0112299484816173
670.986532723323790.02693455335241880.0134672766762094
680.9849200265389010.03015994692219810.0150799734610990
690.980568150805560.03886369838888050.0194318491944402
700.980369205144920.03926158971016220.0196307948550811
710.9748394742471870.05032105150562540.0251605257528127
720.9691103551466270.06177928970674580.0308896448533729
730.962642330920550.0747153381588980.037357669079449
740.9570526289090650.08589474218187010.0429473710909351
750.9505030074706580.0989939850586840.049496992529342
760.9442191800266940.1115616399466120.0557808199733058
770.939380821417690.1212383571646180.0606191785823088
780.9286800932934220.1426398134131560.071319906706578
790.9160743937504570.1678512124990860.083925606249543
800.913862064873620.1722758702527580.086137935126379
810.91492223406320.1701555318735990.0850777659367993
820.925451415260380.149097169479240.07454858473962
830.91094312827210.17811374345580.0890568717279
840.9037393575064670.1925212849870670.0962606424935336
850.88983191116350.2203361776730000.110168088836500
860.8738741675565350.2522516648869290.126125832443465
870.8762633241833630.2474733516332740.123736675816637
880.8594602936211320.2810794127577370.140539706378868
890.8405110976137780.3189778047724440.159488902386222
900.8303790295007560.3392419409984880.169620970499244
910.8219016419756540.3561967160486910.178098358024346
920.79470440073340.4105911985332010.205295599266601
930.7778525798716050.4442948402567900.222147420128395
940.7514508733404610.4970982533190790.248549126659539
950.7531011069616620.4937977860766760.246898893038338
960.7223265871617210.5553468256765570.277673412838279
970.7056850816124020.5886298367751970.294314918387598
980.6882257069489760.6235485861020480.311774293051024
990.7155955486970110.5688089026059780.284404451302989
1000.6899220872689520.6201558254620970.310077912731049
1010.694971321700390.6100573565992190.305028678299610
1020.6576009830788230.6847980338423540.342399016921177
1030.6205880261759630.7588239476480740.379411973824037
1040.5837792148582910.8324415702834170.416220785141709
1050.6117662543937330.7764674912125350.388233745606267
1060.5872991134997160.8254017730005690.412700886500284
1070.549046915444560.901906169110880.45095308455544
1080.5274538932827440.9450922134345120.472546106717256
1090.5116224613434560.9767550773130880.488377538656544
1100.474227870785630.948455741571260.52577212921437
1110.4515196763959380.9030393527918750.548480323604062
1120.5438421757101270.9123156485797450.456157824289873
1130.5048428474615440.9903143050769130.495157152538456
1140.4734126414480820.9468252828961640.526587358551918
1150.4320691577962740.8641383155925480.567930842203726
1160.3903455266881670.7806910533763340.609654473311833
1170.5162896020896510.9674207958206970.483710397910349
1180.5206423395318700.9587153209362590.479357660468129
1190.5687432760856640.8625134478286720.431256723914336
1200.6153280718444220.7693438563111560.384671928155578
1210.6526504896453830.6946990207092340.347349510354617
1220.6316431574299540.7367136851400920.368356842570046
1230.6137638123022180.7724723753955630.386236187697782
1240.5905694226986190.8188611546027620.409430577301381
1250.5897568969761080.8204862060477850.410243103023892
1260.840159196234860.3196816075302800.159840803765140
1270.8159309931620760.3681380136758490.184069006837924
1280.8299922097161440.3400155805677110.170007790283856
1290.8009757075262720.3980485849474560.199024292473728
1300.8058111941818790.3883776116362420.194188805818121
1310.8426335095610120.3147329808779760.157366490438988
1320.867919443593470.2641611128130590.132080556406529
1330.8415485191345570.3169029617308860.158451480865443
1340.8123154395236830.3753691209526340.187684560476317
1350.842765569341460.3144688613170800.157234430658540
1360.8381165221465660.3237669557068680.161883477853434
1370.8232419260288930.3535161479422140.176758073971107
1380.8092587004591950.3814825990816090.190741299540805
1390.8375614875623190.3248770248753620.162438512437681
1400.8881289010297460.2237421979405080.111871098970254
1410.9065084217027250.1869831565945510.0934915782972754
1420.9129673519242740.1740652961514520.0870326480757262
1430.9624207682763330.07515846344733330.0375792317236666
1440.9578358005052340.0843283989895320.042164199494766
1450.9960818120211980.0078363759576030.0039181879788015
1460.9996802689594670.0006394620810652480.000319731040532624
1470.999989384855692.12302886198245e-051.06151443099122e-05
1480.9999970499389245.9001221519506e-062.9500610759753e-06
1490.9999999957163928.56721525843379e-094.28360762921689e-09
1500.9999999963058277.38834608377859e-093.69417304188929e-09
1510.999999995013659.97269972848212e-094.98634986424106e-09
15211.97211809558101e-289.86059047790503e-29
15311.79342634232052e-278.96713171160262e-28
15411.63849121687569e-268.19245608437843e-27
15516.31488591141798e-263.15744295570899e-26
15615.65211273469902e-262.82605636734951e-26
15711.75488531999251e-258.77442659996257e-26
15811.42145609548231e-247.10728047741154e-25
15911.34856560813031e-236.74282804065154e-24
16011.28973693201584e-226.44868466007922e-23
16111.19822851170118e-215.99114255850592e-22
16211.08336948582014e-205.41684742910069e-21
16317.72228051228693e-203.86114025614347e-20
16413.00243264016310e-191.50121632008155e-19
16511.48322475497325e-197.41612377486624e-20
16617.83125610163132e-193.91562805081566e-19
16717.49157140913349e-183.74578570456674e-18
16817.35901551977213e-173.67950775988606e-17
16917.21733212541535e-163.60866606270767e-16
1700.9999999999999984.34233208701896e-152.17116604350948e-15
1710.9999999999999853.06461143034374e-141.53230571517187e-14
1720.9999999999999421.16353383088316e-135.81766915441578e-14
1730.9999999999997824.36928453228393e-132.18464226614196e-13
1740.9999999999978894.2218706624973e-122.11093533124865e-12
1750.9999999999857922.84151886905057e-111.42075943452529e-11
1760.99999999987562.48799165963366e-101.24399582981683e-10
1770.9999999992215161.55696890534207e-097.78484452671035e-10
1780.999999993528421.29431613466353e-086.47158067331767e-09
1790.9999999749810185.00379630783757e-082.50189815391879e-08
1800.9999999359847141.28030571956975e-076.40152859784877e-08
1810.9999995431921269.13615748349212e-074.56807874174606e-07
1820.9999988792569052.24148618897964e-061.12074309448982e-06
1830.999990278107081.94437858419535e-059.72189292097676e-06
1840.9999035752424230.0001928495151545949.6424757577297e-05
1850.9988024978326250.002395004334749250.00119750216737462


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level770.4375NOK
5% type I error level920.522727272727273NOK
10% type I error level990.5625NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/10xuyk1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/10xuyk1291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/19t191291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/19t191291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/21k0c1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/21k0c1291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/31k0c1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/31k0c1291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/41k0c1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/41k0c1291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/51k0c1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/51k0c1291198216.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/6utzf1291198216.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/01/t1291198402q3oewaxujnsd3ma/6utzf1291198216.ps (open in new window)


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


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


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