Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
807 213118 6282154 444 81767 4321023 412 153198 4111912 428 -26007 223193 315 126942 1491348 168 157214 1629616 263 129352 1398893 267 234817 1926517 228 60448 983660 129 47818 1443586 104 245546 1073089 122 48020 984885 393 -1710 1405225 190 32648 227132 280 95350 929118 63 151352 1071292 102 288170 638830 265 114337 856956 234 37884 992426 277 122844 444477 73 82340 857217 67 79801 711969 103 165548 702380 290 116384 358589 83 134028 297978 56 63838 585715 236 74996 657954 73 31080 209458 34 32168 786690 139 49857 439798 26 87161 688779 70 106113 574339 40 80570 741409 42 102129 597793 12 301670 644190 211 102313 377934 74 88577 640273 80 112477 697458 83 191778 550608 131 79804 207393 203 128294 301607 56 96448 345783 89 93811 501749 88 117520 379983 39 69159 387475 25 101792 377305 49 210568 370837 149 136996 430866 58 121920 469107 41 76403 194493 90 108094 530670 136 134759 518365 97 188873 491303 63 146216 527021 114 156608 233773 77 61348 405972 6 50350 652925 47 87720 446211 51 99489 341340 85 87419 387699 43 94355 493408 32 60326 146494 25 94670 414462 77 82425 364304 54 59017 355178 251 90829 357760 15 80791 261216 44 100423 397144 73 131116 374943 85 100269 424898 49 27330 202055 38 39039 378525 35 106885 310768 9 79285 325738 34 118881 394510 20 77623 247060 29 114768 368078 11 74015 236761 52 69465 312378 13 117869 339836 29 60982 347385 66 90131 426280 33 138971 352850 15 39625 301881 15 102725 377516 68 64239 357312 100 90262 458343 13 103960 354228 45 106611 308636 14 103345 386212 36 95551 393343 40 82903 378509 68 63593 452469 29 126910 364839 43 37527 358649 30 60247 376641 9 112995 429112 22 70184 330546 19 130140 403560 9 73221 317892 31 76114 307528 19 90534 235133 55 108479 299243 8 113761 314073 28 68696 368186 29 71561 269661 48 59831 125390 16 97890 510834 47 101481 321896 20 72954 249898 22 67939 408881 33 48022 158492 44 86111 292154 13 74020 289513 6 57530 378049 35 56364 343466 8 84990 332743 17 88590 442882 11 77200 214215 21 61262 315688 92 110309 375195 12 67000 334280 112 93099 355864 25 107577 480382 17 62920 353058 23 75832 217193 0 60720 315380 10 60793 314533 23 57935 318056 0 60720 315380 7 60630 314353 25 55637 369448 0 60720 315380 20 60887 312846 4 60720 312075 4 60505 315009 10 60945 318903 1 60720 314887 4 60720 314913 0 60720 315380 8 58990 325506 0 60720 315380 11 56750 298568 4 60894 315834 15 63346 329784 9 56535 312878 0 60720 315380 7 60835 314987 2 60720 325249 0 61016 315877 7 58650 291650 46 60438 305959 5 60720 315380 7 58625 297765 2 60938 315245 0 60720 315380 0 60720 315380 2 61490 315236 5 60845 336425 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 7 60830 306268 24 63261 302187 1 60720 314882 0 60720 315380 18 45689 382712 55 60720 341570 0 60720 315380 0 60720 315380 3 61564 312412 0 60720 315380 9 61938 309596 0 60720 315380 8 60951 315547 113 60720 313267 0 60745 316176 0 60720 315380 0 60720 315380 19 71642 359335 11 71641 330068 25 55792 314289 16 71873 297413 5 62555 314806 11 60370 333210 23 64873 352108 6 62041 313332 5 65745 291787 0 60720 315380 7 59500 318745 0 60720 315380 7 61630 315366 0 60720 315380 3 60890 315688 0 60720 315380 89 113521 409642 0 60720 315380 0 60720 315380 19 80045 269587 0 60720 315380 0 60720 315380 0 60720 315380 12 50804 300962 12 87390 325479 5 61656 316155 2 65688 318574 0 60720 315380 26 48522 343613 3 60720 306948 0 60720 315380 0 60720 315380 11 57640 330059 10 61977 288985 5 62620 304485 2 60720 315380 6 60831 315688 7 60646 317736 2 60720 315380 28 56225 322331 3 60510 296656 0 60720 315380 1 60698 315354 20 60720 312161 1 60805 315576 22 61404 314922 9 60720 314551 0 60720 315380 2 65276 312339 0 60720 315380 7 63915 298700 9 60720 321376 0 60720 315380 13 61686 303230 0 60720 315380 0 60743 315487 0 60720 315380 6 60349 315793 0 60720 315380 0 60720 315380 0 60720 315380 3 61360 312887 0 60720 315380 7 59818 315637 2 72680 324385 0 60720 315380 0 60720 315380 15 61808 308989 0 60720 315380 0 60720 315380 9 53110 296702 0 60720 315380 1 64245 307322 38 73007 304376 57 82732 253588 0 60720 315380 7 54820 309560 26 47705 298466 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 13 72835 343929 10 58856 331955 0 60720 315380 0 60720 315380 0 60720 315380 9 77655 381180 0 60720 315380 26 69817 331420 0 60720 315380 0 60720 315380 0 60720 315380 19 60798 310201 0 60720 315380 12 62452 320016 23 64175 320398 0 60720 315380 29 67440 291841 8 68136 310670 0 60720 315380 0 60720 315380 26 56726 313491 0 60720 315380 9 70811 331323 0 60720 315380 5 60720 319210 3 62045 318098 0 60720 315380 13 54323 292754 0 60720 315380 12 62841 325176 19 81125 365959 0 60720 315380 10 59506 302409 9 59365 340968 0 60720 315380 0 60720 315380 0 60720 315380 9 60720 315380 4 60798 313164 1 58790 301164 1 60720 315380 0 60720 315380 14 61808 344425 12 60735 315394 0 60720 315380 19 64016 316647 17 54683 309836 0 60720 315380 0 60720 315380 32 87192 346611 0 60720 315380 14 64107 322031 8 60761 315656 4 65990 339445 0 59988 314964 20 61167 297141 5 60719 315372 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 1 60722 312502 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 4 60379 313729 1 60727 315388 4 60720 315371 20 60925 296139 0 60720 315380 1 60896 313880 10 59734 317698 12 62969 295580 0 60720 315380 0 60720 315380 0 60720 315380 13 60720 308256 0 60720 315380 3 59118 303677 0 60720 315380 0 60720 315380 10 60720 319369 3 58598 318690 7 61124 314049 10 59595 325699 1 62065 314210 0 60720 315380 0 60720 315380 15 78780 322378 0 60720 315380 0 60720 315380 0 60720 315380 4 60722 315398 0 60720 315380 0 60720 315380 28 61600 308336 9 59635 316386 0 60720 315380 0 60720 315380 0 60720 315380 0 60720 315380 7 60720 315553 0 60720 315380 7 59781 323361 7 76644 336639 3 64820 307424 0 60720 315380 0 60720 315380 11 56178 295370 7 60436 322340 10 60720 319864 0 60720 315380 0 60720 315380 18 73433 317291 14 41477 280398 0 60720 315380 12 62700 317330 29 67804 238125 3 59661 327071 6 58620 309038 3 60398 314210 8 58580 307930 10 62710 322327 6 59325 292136 8 60950 263276 6 68060 367655 9 83620 283910 8 58456 283587 26 52811 243650 239 121173 438493 7 63870 296261 41 21001 230621 3 70415 304252 8 64230 333505 6 59190 296919 21 69351 278990 7 64270 276898 11 70694 327007 11 68005 317046 12 58930 304555 9 58320 298096 3 69980 231861 57 69863 309422 21 63255 286963 15 57320 269753 32 75230 448243 11 79420 165404 2 73490 204325 23 35250 407159 20 62285 290476 24 69206 275311 1 65920 246541 1 69770 253468 74 72683 240897 68 -14545 -83265 20 55830 -42143 20 55174 272713 82 67038 215362 21 51252 42754 244 157278 306275 32 79510 253537 86 77440 372631 69 27284 -7170
Names of X columns:
kosten dividenden rijkdom
Sample Range:
(leave blank to include all observations)
From:
To:
Column Number of Endogenous Series
(?)
Fixed Seasonal Effects
Do not include Seasonal Dummies
Do not include Seasonal Dummies
Include Seasonal Dummies
Type of Equation
No Linear Trend
No Linear Trend
Linear Trend
First Differences
Seasonal Differences (s)
First and Seasonal Differences (s)
Degree of Predetermination (lagged endogenous variables)
Degree of Seasonal Predetermination
Seasonality
12
1
2
3
4
5
6
7
8
9
10
11
12
Chart options
R Code
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') }
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation