Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6282154 4321023 4111912 223193 1491348 1629616 1398893 1926517 983660 1443586 1073089 984885 1405225 227132 929118 1071292 638830 856956 992426 444477 857217 711969 702380 358589 297978 585715 657954 209458 786690 439798 688779 574339 741409 597793 644190 377934 640273 697458 550608 207393 301607 345783 501749 379983 387475 377305 370837 430866 469107 194493 530670 518365 491303 527021 233773 405972 652925 446211 341340 387699 493408 146494 414462 364304 355178 357760 261216 397144 374943 424898 202055 378525 310768 325738 394510 247060 368078 236761 312378 339836 347385 426280 352850 301881 377516 357312 458343 354228 308636 386212 393343 378509 452469 364839 358649 376641 429112 330546 403560 317892 307528 235133 299243 314073 368186 269661 125390 510834 321896 249898 408881 158492 292154 289513 378049 343466 332743 442882 214215 315688 375195 334280 355864 480382 353058 217193 314533 318056 314353 369448 312846 312075 315009 318903 314887 314913 325506 298568 315834 329784 312878 314987 325249 315877 291650 305959 297765 315245 315236 336425 306268 302187 314882 382712 341570 312412 309596 315547 313267 316176 359335 330068 314289 297413 314806 333210 352108 313332 291787 318745 315366 315688 409642 269587 300962 325479 316155 318574 343613 306948 330059 288985 304485 315688 317736 322331 296656 315354 312161 315576 314922 314551 312339 298700 321376 303230 315487 315793 312887 315637 324385 308989 296702 307322 304376 253588 309560 298466 343929 331955 381180 331420 310201 320016 320398 291841 310670 313491 331323 319210 318098 292754 325176 365959 302409 340968 313164 301164 344425 315394 316647 309836 346611 322031 315656 339445 314964 297141 315372 312502 313729 315388 315371 296139 313880 317698 295580 308256 303677 319369 318690 314049 325699 314210 322378 315398 308336 316386 315553 323361 336639 307424 295370 322340 319864 317291 280398 317330 238125 327071 309038 314210 307930 322327 292136 263276 367655 283910 283587 243650 438493 296261 230621 304252 333505 296919 278990 276898 327007 317046 304555 298096 231861 309422 286963 269753 448243 165404 204325 407159 290476 275311 246541 253468 240897 -83265 -42143 272713 215362 42754 306275 253537 372631 -7170
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
36
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Chart options
R Code
par1 <- as.numeric(par1) par2 <- as.numeric(par2) x <- as.ts(x) library(lattice) bitmap(file='pic1.png') plot(x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value') grid() dev.off() bitmap(file='pic2.png') hist(x) grid() dev.off() bitmap(file='pic3.png') if (par1 > 0) { densityplot(~x,col='black',main=paste('Density Plot bw = ',par1),bw=par1) } else { densityplot(~x,col='black',main='Density Plot') } dev.off() bitmap(file='pic4.png') qqnorm(x) qqline(x) grid() dev.off() if (par2 > 0) { bitmap(file='lagplot1.png') dum <- cbind(lag(x,k=1),x) dum dum1 <- dum[2:length(x),] dum1 z <- as.data.frame(dum1) z plot(z,main='Lag plot (k=1), lowess, and regression line') lines(lowess(z)) abline(lm(z)) dev.off() if (par2 > 1) { bitmap(file='lagplotpar2.png') dum <- cbind(lag(x,k=par2),x) dum dum1 <- dum[(par2+1):length(x),] dum1 z <- as.data.frame(dum1) z mylagtitle <- 'Lag plot (k=' mylagtitle <- paste(mylagtitle,par2,sep='') mylagtitle <- paste(mylagtitle,'), and lowess',sep='') plot(z,main=mylagtitle) lines(lowess(z)) dev.off() } bitmap(file='pic5.png') acf(x,lag.max=par2,main='Autocorrelation Function') grid() dev.off() } summary(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Descriptive Statistics',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'# observations',header=TRUE) a<-table.element(a,length(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'minimum',header=TRUE) a<-table.element(a,min(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Q1',header=TRUE) a<-table.element(a,quantile(x,0.25)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'median',header=TRUE) a<-table.element(a,median(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Q3',header=TRUE) a<-table.element(a,quantile(x,0.75)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'maximum',header=TRUE) a<-table.element(a,max(x)) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.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