Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6282929 4324047 4108272 -1212617 1485329 1779876 1367203 2519076 912684 1443586 1220017 984885 1457425 -572920 929144 1151176 790090 774497 990576 454195 876607 711969 702380 264449 450033 541063 588864 -37216 783310 467359 688779 608419 696348 597793 821730 377934 651939 697458 700368 225986 348695 373683 501709 413743 379825 336260 636765 481231 469107 211928 563925 511939 521016 543856 329304 423262 509665 455881 367772 406339 493408 232942 416002 337430 361517 360962 235561 408247 450296 418799 247405 378519 326638 328233 386225 283662 370225 269236 365732 420383 345811 431809 418876 297476 416776 357257 458343 388386 358934 407560 392558 373177 428370 369419 358649 376641 467427 364885 436230 329118 317365 286849 376685 407198 377772 271483 153661 513294 324881 264512 420968 129302 191521 268673 353179 354624 363713 456657 211742 338381 418530 351483 372928 485538 279268 219060 325314 322046 325599 377028 323850 331514 325632 322265 325906 325985 346145 325898 325356 325930 318020 326389 302925 325540 326736 340580 331828 323299 387722 324598 328726 325043 325806 387732 349729 332202 305442 329537 327055 356245 328451 307062 331345 331824 325685 404480 318314 311807 337724 326431 327556 356850 322741 310902 324295 326156 326960 333411 297761 325536 325762 327957 318521 319775 325486 325838 331767 324523 339995 319582 307245 317967 331488 335452 334184 313213 348678 328727 387978 336704 322076 334272 338197 321024 322145 323351 327748 328157 311594 335962 372426 319844 355822 324047 311464 353417 325590 328576 326126 369376 332013 325871 342165 324967 314832 325557 322649 324598 325567 324005 325748 323385 315409 312275 320576 325246 332961 323010 345253 325559 319634 319951 318519 343222 317234 314025 320249 349365 289197 329245 240869 327182 322876 323117 306351 335137 308271 301731 382409 279230 298731 243650 532682 319771 171493 347262 343945 311874 302211 316708 333463 344282 319635 301186 300381 318765 286146 306844 307705 312448 299715 373399 299446 325586 291221 261173 255027 -78375 -58143 227033 235098 21267 238675 197687 418341 -297706
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