Home » date » 2008 » Nov » 17 »

W6Q1

*Unverified author*
R Software Module: rwasp_multipleregression.wasp (opens new window with default values)
Title produced by software: Multiple Regression
Date of computation: Mon, 17 Nov 2008 11:07:12 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k.htm/, Retrieved Mon, 17 Nov 2008 18:07:52 +0000
 
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/2008/Nov/17/t1226945271ufqfpiavqy9ua5k.htm/},
    year = {2008},
}
@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 = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
 
Feedback Forum:

Post a new message
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1687 0 1508 0 1507 0 1385 0 1632 0 1511 0 1559 0 1630 0 1579 0 1653 0 2152 0 2148 0 1752 0 1765 0 1717 0 1558 0 1575 0 1520 0 1805 0 1800 0 1719 0 2008 0 2242 0 2478 0 2030 0 1655 0 1693 0 1623 0 1805 0 1746 0 1795 0 1926 0 1619 0 1992 0 2233 0 2192 0 2080 0 1768 0 1835 0 1569 0 1976 0 1853 0 1965 0 1689 0 1778 0 1976 0 2397 0 2654 0 2097 0 1963 0 1677 0 1941 0 2003 0 1813 0 2012 0 1912 0 2084 0 2080 0 2118 0 2150 0 1608 0 1503 0 1548 0 1382 0 1731 0 1798 0 1779 0 1887 0 2004 0 2077 0 2092 0 2051 0 1577 0 1356 0 1652 0 1382 0 1519 0 1421 0 1442 0 1543 0 1656 0 1561 0 1905 0 2199 0 1473 0 1655 0 1407 0 1395 0 1530 0 1309 0 1526 0 1327 0 1627 0 1748 0 1958 0 2274 0 1648 0 1401 0 1411 0 1403 0 1394 0 1520 0 1528 0 1643 0 1515 0 1685 0 2000 0 2215 0 1956 0 1462 0 1563 0 1459 0 1446 0 1622 0 1657 0 1638 0 1643 0 1683 0 2050 0 2262 0 1813 0 1445 0 1762 0 1461 0 1556 0 1431 0 1427 0 1554 0 1645 0 1653 0 2016 0 2207 0 1665 0 1361 0 1506 0 1360 0 1453 0 1522 0 1460 0 1552 0 1548 0 1827 0 1737 0 1941 0 1474 0 1458 0 1542 0 1404 0 1522 0 1385 0 1641 0 1510 0 1681 0 1938 0 1868 0 1726 0 1456 0 1445 0 1456 0 1365 0 1487 0 1558 0 1488 0 1684 0 1594 0 1850 0 1998 0 2079 0 1494 0 1057 1 1218 1 1168 1 1236 1 1076 1 1174 1 1139 1 1427 1 1487 1 1483 1 1513 1 1357 1 1165 1 1282 1 1110 1 1297 1 1185 1 1222 1 1284 1 1444 1 1575 1 1737 1 1763 1
 
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'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Multiple Linear Regression - Estimated Regression Equation
y[t] = + 1717.75147928994 -396.055827116028x[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)1717.7514792899420.00033485.886100
x-396.05582711602857.786173-6.853800


Multiple Linear Regression - Regression Statistics
Multiple R0.445226892939612
R-squared0.198226986196661
Adjusted R-squared0.194007128229275
F-TEST (value)46.9748005095662
F-TEST (DF numerator)1
F-TEST (DF denominator)190
p-value9.762957109416e-11
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation260.004336317031
Sum Squared Residuals12844428.4316954


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
116871717.75147928994-30.7514792899354
215081717.75147928994-209.751479289941
315071717.75147928994-210.751479289941
413851717.75147928994-332.751479289941
516321717.75147928994-85.7514792899409
615111717.75147928994-206.751479289941
715591717.75147928994-158.751479289941
816301717.75147928994-87.7514792899409
915791717.75147928994-138.751479289941
1016531717.75147928994-64.7514792899408
1121521717.75147928994434.248520710059
1221481717.75147928994430.248520710059
1317521717.7514792899434.2485207100591
1417651717.7514792899447.2485207100591
1517171717.75147928994-0.751479289940856
1615581717.75147928994-159.751479289941
1715751717.75147928994-142.751479289941
1815201717.75147928994-197.751479289941
1918051717.7514792899487.2485207100591
2018001717.7514792899482.2485207100591
2117191717.751479289941.24852071005914
2220081717.75147928994290.248520710059
2322421717.75147928994524.248520710059
2424781717.75147928994760.248520710059
2520301717.75147928994312.248520710059
2616551717.75147928994-62.7514792899409
2716931717.75147928994-24.7514792899409
2816231717.75147928994-94.7514792899409
2918051717.7514792899487.2485207100591
3017461717.7514792899428.2485207100591
3117951717.7514792899477.2485207100591
3219261717.75147928994208.248520710059
3316191717.75147928994-98.7514792899409
3419921717.75147928994274.248520710059
3522331717.75147928994515.248520710059
3621921717.75147928994474.248520710059
3720801717.75147928994362.248520710059
3817681717.7514792899450.2485207100591
3918351717.75147928994117.248520710059
4015691717.75147928994-148.751479289941
4119761717.75147928994258.248520710059
4218531717.75147928994135.248520710059
4319651717.75147928994247.248520710059
4416891717.75147928994-28.7514792899409
4517781717.7514792899460.2485207100591
4619761717.75147928994258.248520710059
4723971717.75147928994679.248520710059
4826541717.75147928994936.24852071006
4920971717.75147928994379.248520710059
5019631717.75147928994245.248520710059
5116771717.75147928994-40.7514792899409
5219411717.75147928994223.248520710059
5320031717.75147928994285.248520710059
5418131717.7514792899495.2485207100591
5520121717.75147928994294.248520710059
5619121717.75147928994194.248520710059
5720841717.75147928994366.248520710059
5820801717.75147928994362.248520710059
5921181717.75147928994400.248520710059
6021501717.75147928994432.248520710059
6116081717.75147928994-109.751479289941
6215031717.75147928994-214.751479289941
6315481717.75147928994-169.751479289941
6413821717.75147928994-335.751479289941
6517311717.7514792899413.2485207100591
6617981717.7514792899480.2485207100591
6717791717.7514792899461.2485207100591
6818871717.75147928994169.248520710059
6920041717.75147928994286.248520710059
7020771717.75147928994359.248520710059
7120921717.75147928994374.248520710059
7220511717.75147928994333.248520710059
7315771717.75147928994-140.751479289941
7413561717.75147928994-361.751479289941
7516521717.75147928994-65.7514792899408
7613821717.75147928994-335.751479289941
7715191717.75147928994-198.751479289941
7814211717.75147928994-296.751479289941
7914421717.75147928994-275.751479289941
8015431717.75147928994-174.751479289941
8116561717.75147928994-61.7514792899409
8215611717.75147928994-156.751479289941
8319051717.75147928994187.248520710059
8421991717.75147928994481.248520710059
8514731717.75147928994-244.751479289941
8616551717.75147928994-62.7514792899409
8714071717.75147928994-310.751479289941
8813951717.75147928994-322.751479289941
8915301717.75147928994-187.751479289941
9013091717.75147928994-408.751479289941
9115261717.75147928994-191.751479289941
9213271717.75147928994-390.751479289941
9316271717.75147928994-90.7514792899409
9417481717.7514792899430.2485207100591
9519581717.75147928994240.248520710059
9622741717.75147928994556.248520710059
9716481717.75147928994-69.7514792899408
9814011717.75147928994-316.751479289941
9914111717.75147928994-306.751479289941
10014031717.75147928994-314.751479289941
10113941717.75147928994-323.751479289941
10215201717.75147928994-197.751479289941
10315281717.75147928994-189.751479289941
10416431717.75147928994-74.7514792899409
10515151717.75147928994-202.751479289941
10616851717.75147928994-32.7514792899409
10720001717.75147928994282.248520710059
10822151717.75147928994497.248520710059
10919561717.75147928994238.248520710059
11014621717.75147928994-255.751479289941
11115631717.75147928994-154.751479289941
11214591717.75147928994-258.751479289941
11314461717.75147928994-271.751479289941
11416221717.75147928994-95.7514792899409
11516571717.75147928994-60.7514792899409
11616381717.75147928994-79.7514792899409
11716431717.75147928994-74.7514792899409
11816831717.75147928994-34.7514792899409
11920501717.75147928994332.248520710059
12022621717.75147928994544.248520710059
12118131717.7514792899495.2485207100591
12214451717.75147928994-272.751479289941
12317621717.7514792899444.2485207100591
12414611717.75147928994-256.751479289941
12515561717.75147928994-161.751479289941
12614311717.75147928994-286.751479289941
12714271717.75147928994-290.751479289941
12815541717.75147928994-163.751479289941
12916451717.75147928994-72.7514792899409
13016531717.75147928994-64.7514792899408
13120161717.75147928994298.248520710059
13222071717.75147928994489.248520710059
13316651717.75147928994-52.7514792899409
13413611717.75147928994-356.751479289941
13515061717.75147928994-211.751479289941
13613601717.75147928994-357.751479289941
13714531717.75147928994-264.751479289941
13815221717.75147928994-195.751479289941
13914601717.75147928994-257.751479289941
14015521717.75147928994-165.751479289941
14115481717.75147928994-169.751479289941
14218271717.75147928994109.248520710059
14317371717.7514792899419.2485207100591
14419411717.75147928994223.248520710059
14514741717.75147928994-243.751479289941
14614581717.75147928994-259.751479289941
14715421717.75147928994-175.751479289941
14814041717.75147928994-313.751479289941
14915221717.75147928994-195.751479289941
15013851717.75147928994-332.751479289941
15116411717.75147928994-76.7514792899409
15215101717.75147928994-207.751479289941
15316811717.75147928994-36.7514792899409
15419381717.75147928994220.248520710059
15518681717.75147928994150.248520710059
15617261717.751479289948.24852071005914
15714561717.75147928994-261.751479289941
15814451717.75147928994-272.751479289941
15914561717.75147928994-261.751479289941
16013651717.75147928994-352.751479289941
16114871717.75147928994-230.751479289941
16215581717.75147928994-159.751479289941
16314881717.75147928994-229.751479289941
16416841717.75147928994-33.7514792899409
16515941717.75147928994-123.751479289941
16618501717.75147928994132.248520710059
16719981717.75147928994280.248520710059
16820791717.75147928994361.248520710059
16914941717.75147928994-223.751479289941
17010571321.69565217391-264.695652173913
17112181321.69565217391-103.695652173913
17211681321.69565217391-153.695652173913
17312361321.69565217391-85.695652173913
17410761321.69565217391-245.695652173913
17511741321.69565217391-147.695652173913
17611391321.69565217391-182.695652173913
17714271321.69565217391105.304347826087
17814871321.69565217391165.304347826087
17914831321.69565217391161.304347826087
18015131321.69565217391191.304347826087
18113571321.6956521739135.3043478260869
18211651321.69565217391-156.695652173913
18312821321.69565217391-39.6956521739131
18411101321.69565217391-211.695652173913
18512971321.69565217391-24.6956521739131
18611851321.69565217391-136.695652173913
18712221321.69565217391-99.695652173913
18812841321.69565217391-37.6956521739131
18914441321.69565217391122.304347826087
19015751321.69565217391253.304347826087
19117371321.69565217391415.304347826087
19217631321.69565217391441.304347826087


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
50.1559308029189440.3118616058378880.844069197081056
60.06649352737734470.1329870547546890.933506472622655
70.02567383314294040.05134766628588080.97432616685706
80.01221739680733030.02443479361466060.98778260319267
90.004379978104602920.008759956209205830.995620021895397
100.002240159817864130.004480319635728250.997759840182136
110.2235801583455510.4471603166911010.77641984165445
120.5039813540008250.992037291998350.496018645999175
130.4208412053123040.8416824106246070.579158794687696
140.3453656525640860.6907313051281720.654634347435914
150.2700182093786300.5400364187572610.72998179062137
160.2190644244158520.4381288488317040.780935575584148
170.1710750448748180.3421500897496370.828924955125182
180.1407115265465930.2814230530931850.859288473453407
190.1140922425588590.2281844851177170.885907757441141
200.09007928733986690.1801585746797340.909920712660133
210.0638847643680760.1277695287361520.936115235631924
220.08828604303362070.1765720860672410.91171395696638
230.2540366087170350.508073217434070.745963391282965
240.7041345159405080.5917309681189830.295865484059492
250.7099494063259890.5801011873480230.290050593674011
260.6617327503331520.6765344993336960.338267249666848
270.6065222704779010.7869554590441980.393477729522099
280.5597189438136970.8805621123726060.440281056186303
290.5037375415697180.9925249168605640.496262458430282
300.4449608348989580.8899216697979160.555039165101042
310.3901828560403290.7803657120806570.609817143959671
320.3621281127465610.7242562254931230.637871887253439
330.3227248265256090.6454496530512180.677275173474391
340.3184699397357430.6369398794714860.681530060264257
350.4475027759995330.8950055519990660.552497224000467
360.5401905183494390.9196189633011220.459809481650561
370.5622945098448020.8754109803103960.437705490155198
380.5106860002932680.9786279994134630.489313999706732
390.4622777891552320.9245555783104650.537722210844768
400.4432414467682040.8864828935364090.556758553231796
410.4257386735252530.8514773470505050.574261326474747
420.3820739067215540.7641478134431070.617926093278446
430.3620115673263840.7240231346527670.637988432673616
440.3219927317477250.6439854634954510.678007268252275
450.2794282905145580.5588565810291160.720571709485442
460.2656486170042530.5312972340085060.734351382995747
470.4937822328476490.9875644656952980.506217767152351
480.8899375407916190.2201249184167620.110062459208381
490.9011136623684070.1977726752631870.0988863376315933
500.8919312802842850.2161374394314300.108068719715715
510.8749587704768280.2500824590463440.125041229523172
520.8619242688046230.2761514623907550.138075731195377
530.8577418676605710.2845162646788570.142258132339429
540.833787220623450.3324255587530990.166212779376550
550.8316835171299290.3366329657401420.168316482870071
560.8134521521322490.3730956957355030.186547847867751
570.8299900464796020.3400199070407960.170009953520398
580.8452939376681140.3094121246637720.154706062331886
590.869886556799950.2602268864001000.130113443200050
600.8999731806219020.2000536387561950.100026819378098
610.8929115381189770.2141769237620450.107088461881023
620.899813657648210.2003726847035800.100186342351790
630.8987191232890920.2025617534218150.101280876710908
640.9242215772354530.1515568455290940.0757784227645468
650.9102741546203670.1794516907592650.0897258453796325
660.8947925365983930.2104149268032140.105207463401607
670.8771697946178040.2456604107643920.122830205382196
680.8640972653708240.2718054692583510.135902734629176
690.8678736410287260.2642527179425490.132126358971274
700.8871764413456120.2256471173087750.112823558654388
710.9084496324115170.1831007351769660.0915503675884829
720.9208695043335420.1582609913329170.0791304956664583
730.9160102994141070.1679794011717860.0839897005858932
740.9404025394138450.1191949211723110.0595974605861555
750.9312922476935140.1374155046129730.0687077523064863
760.9469560558531370.1060878882937260.0530439441468632
770.9458816420170680.1082367159658630.0541183579829316
780.9534363149400040.09312737011999190.0465636850599959
790.9577669083245750.08446618335085020.0422330916754251
800.954411751576560.0911764968468810.0455882484234405
810.9457911981509690.1084176036980630.0542088018490313
820.9401750357771440.1196499284457110.0598249642228557
830.9361310619796970.1277378760406070.0638689380203034
840.9663385663714640.0673228672570730.0336614336285365
850.966916074785160.0661678504296810.0330839252148405
860.9601641193441550.07967176131169050.0398358806558452
870.9652770693352240.0694458613295530.0347229306647765
880.9703794550258670.05924108994826540.0296205449741327
890.9674640511590650.06507189768186920.0325359488409346
900.9777373032384310.0445253935231380.022262696761569
910.97532264804520.04935470390960.0246773519548
920.9821276036826250.03574479263475090.0178723963173755
930.9779039316311570.04419213673768590.0220960683688429
940.9725800354559550.05483992908809090.0274199645440455
950.9736521992866830.05269560142663460.0263478007133173
960.9921478667486580.01570426650268470.00785213325134237
970.9899441772202630.02011164555947370.0100558227797368
980.991080474977210.01783905004557950.00891952502278976
990.991852053029110.01629589394178150.00814794697089075
1000.9926891558394360.01462168832112720.00731084416056362
1010.9935879656446240.01282406871075100.00641203435537552
1020.9925874706751830.01482505864963350.00741252932481676
1030.9913343111926220.01733137761475530.00866568880737766
1040.9887866234665020.02242675306699640.0112133765334982
1050.9871974269032140.02560514619357120.0128025730967856
1060.9834887348306130.03302253033877320.0165112651693866
1070.9862100740678750.02757985186424970.0137899259321249
1080.9954812256947070.009037548610585450.00451877430529273
1090.9960743394012850.007851321197429210.00392566059871461
1100.9958082135513870.008383572897225780.00419178644861289
1110.9947125552945240.01057488941095250.00528744470547626
1120.994383716676210.01123256664757900.00561628332378949
1130.9942027655540470.01159446889190660.0057972344459533
1140.9923718888698070.01525622226038540.0076281111301927
1150.989937178797550.02012564240489920.0100628212024496
1160.9868899382317050.02622012353658970.0131100617682949
1170.9830387537074290.03392249258514230.0169612462925711
1180.978201029612120.04359794077576160.0217989703878808
1190.9854990285980250.02900194280394990.0145009714019749
1200.9972737379465190.005452524106962470.00272626205348123
1210.9968405001714030.006318999657194860.00315949982859743
1220.9966043287120030.006791342575994760.00339567128799738
1230.9957319034927090.008536193014582840.00426809650729142
1240.9952319354744660.009536129051068430.00476806452553421
1250.993835719564880.01232856087024070.00616428043512034
1260.9935791126770050.01284177464598930.00642088732299466
1270.9933935035118350.01321299297633030.00660649648816513
1280.9915246851074790.01695062978504220.00847531489252108
1290.9886554883036150.02268902339277020.0113445116963851
1300.984959359786210.03008128042757930.0150406402137896
1310.990221626959950.01955674608010090.00977837304005047
1320.9982799910709060.00344001785818850.00172000892909425
1330.9975916247830560.004816750433887580.00240837521694379
1340.997892812725710.004214374548578230.00210718727428912
1350.997293898802090.005412202395820780.00270610119791039
1360.9976776922153970.004644615569205940.00232230778460297
1370.997354591339330.005290817321341440.00264540866067072
1380.9965465538433560.006906892313288450.00345344615664422
1390.99604528987740.007909420245200820.00395471012260041
1400.9946869708300080.01062605833998440.00531302916999218
1410.9929574252000930.01408514959981320.00704257479990659
1420.9920330096054330.01593398078913350.00796699039456673
1430.9895837712358810.0208324575282370.0104162287641185
1440.9920816591491310.01583668170173770.00791834085086885
1450.9904494844043830.0191010311912350.0095505155956175
1460.9889497073390560.02210058532188870.0110502926609444
1470.9854560608942650.02908787821146920.0145439391057346
1480.9855711345140450.02885773097190940.0144288654859547
1490.9817801746925750.03643965061485050.0182198253074253
1500.9835227096634280.03295458067314440.0164772903365722
1510.9772488977752520.04550220444949580.0227511022247479
1520.9726400953125070.05471980937498520.0273599046874926
1530.9629255490837120.07414890183257640.0370744509162882
1540.9673025224909830.06539495501803460.0326974775090173
1550.9666855442480890.06662891150382250.0333144557519112
1560.9571917212437640.08561655751247280.0428082787562364
1570.9511038397950780.0977923204098450.0488961602049225
1580.9465733352094960.1068533295810070.0534266647905037
1590.941989759761460.1160204804770810.0580102402385407
1600.9539463886338830.09210722273223490.0460536113661174
1610.9517820151660470.09643596966790610.0482179848339531
1620.9437816756742470.1124366486515070.0562183243257533
1630.9488528298300860.1022943403398270.0511471701699137
1640.933869588053220.1322608238935590.0661304119467795
1650.932017991595130.135964016809740.06798200840487
1660.9084084086103110.1831831827793770.0915915913896886
1670.8966955716601020.2066088566797950.103304428339898
1680.9463249453451660.1073501093096680.0536750546548339
1690.925761978392230.1484760432155410.0742380216077705
1700.9320741472713060.1358517054573880.0679258527286941
1710.9121986283845660.1756027432308670.0878013716154336
1720.8971397501106840.2057204997786310.102860249889316
1730.8679723755156910.2640552489686180.132027624484309
1740.8840554441978720.2318891116042550.115944555802128
1750.8717410280954920.2565179438090150.128258971904507
1760.8759804634073520.2480390731852960.124019536592648
1770.8294723493283930.3410553013432150.170527650671607
1780.7812488548959410.4375022902081180.218751145104059
1790.7230854296552360.5538291406895280.276914570344764
1800.6680979070948290.6638041858103410.331902092905171
1810.5736344001114190.8527311997771620.426365599888581
1820.5400640857924250.919871828415150.459935914207575
1830.4498561837194870.8997123674389750.550143816280513
1840.491029489233680.982058978467360.50897051076632
1850.4034626872200280.8069253744400560.596537312779972
1860.4288955432867320.8577910865734640.571104456713268
1870.4881409628525450.976281925705090.511859037147455


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level180.098360655737705NOK
5% type I error level630.344262295081967NOK
10% type I error level830.453551912568306NOK
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/10b8861226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/10b8861226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/1selz1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/1selz1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/2tyqo1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/2tyqo1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/3g6gk1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/3g6gk1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/42swo1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/42swo1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/5xt8b1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/5xt8b1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/607dh1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/607dh1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/72ynt1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/72ynt1226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/8cj191226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/8cj191226945216.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/9w4bp1226945216.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/17/t1226945271ufqfpiavqy9ua5k/9w4bp1226945216.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