Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
14688 46660 7199 21054 80953 19349 173260 38214 17547 43287 78800 65029 31414 7176 24188 61857 22938 43410 19764 53117 33170 232138 111665 152871 100750 221698 209641 52746 215641 85439 145790 132943 132487 135473 84853 210767 97839 120221 224549 116408 158015 150629 123185 124817 104389 162765 149061 84207 201940 168809 176508 99466 106408 344297 218946 122774 153935 206161 183167 144966 34662 116048 77945 65490 81872 101011 71965 72880 62792 31774 182192 67989 52915 56375 30989 135131 76990 64175 59194 53515 89746 49862 85574 220801 49289 135781 82316 133368 92499 37460 91735 187681 79619 98104 80949 31706 70344 99923 91899 235454 46455 60812 77648 101523 254488 103597 136084 62088 86680 38395 179321 40248 70551 84105 112611 73624 89806 98866 61254 99643 310839 181633 50090 92661 46698 61361 84337 72535 84856 124064 54157 76302 59382 65745 74914 101645 73504 99373 135458 184510 385534 108043 328107 362301 130585 85709 174184 81437 120982 187559 235800 220516 210907 155754 152299 79863 346485 135649 134019 167488 108446 27634 232317 22648 119308 194979 81240 121848 86678 73566 102010 151101 207176 165543 182999 256462 244052 63123 87186 182079 95227 165446 229242 167542 225060 164709 131698 56613 250579 44296 152474 86230 258873 41566 250047 243511 62215 104838 77272 148446 69304 102538 101097 223632 141722 351067 311473 152601 215147 52164 91005 265318 299775 241066 118612 173326 225548 277965 317394 177939 92630 140344 230964 199476 174724 128423 341570 64187 150580 204713 244749 98146 351619 58981 233328 182613 89113 324799 143246 40151 158399 195838 286468 175824 143756 139942 104011 196553 180083 260561 294424 99611 131069 65475 237213 324598 170266 269651 243060 149112 174415 133131 133328 56653 50857 74408 193339 275541 96560 243199 76702 272458 103425 271856 139526 172494 120445 181528 236785 224330 202925 30837 329267 125930 204271 51567 325107 119016 265769
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
0
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