Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
586.9642 582.1727 586.19396 590.49531 589.70506 590.07518 595.2568 604.1796 605.00987 610.71165 618.31404 614.74292 609.16284 611.73756 620.77222 618.00755 612.3328 604.04309 605.08732 569.6086 595.0899 598.49214 606.67306 608.78857 606.9776 603.86769 606.42144 592.42386 590.6524 592.57978 602.51677 595.5471 605.94461 605.4981 607.95824 612.04311 612.7243 604.3511 597.85685 601.4573 590.17392 592.59948 597.24933 597.11685 599.7328 607.71194 604.82143 608.02913 606.1822 609.73516 602.5858 595.55291 597.41659 594.57492 600.63662 598.85984 598.97301 603.61033 604.24871 608.12389 610.69475 608.90087 607.98959 603.37721 607.81136 610.96411 606.97026 605.89335 611.97502 616.95077 618.69499 621.90975 617.85264 623.04912 615.57 623.58574 623.63317 615.04568 624.57004 625.8824 629.83163 626.42181 628.40528 632.30782 631.60361 635.57585 634.08687 632.61106 632.6136 635.80934 636.67236 633.388 638.09523 641.6666 646.15675 651.88736 651.22665 654.79548 654.65449 659.91121 653.37456 645.67016 650.11779 658.91968 662.42603 667.60539 666.14582 664.27573 676.48872 680.1659 678.99055 677.61221 672.24744 669.48689 668.19145 658.29031 659.15736 660.34479 668.77636 667.01524 669.37186 672.58801 669.36903 654.958 653.03433 642.61224 657.74554 656.64312 657.08444 662.14989 661.94064 653.83966 664.17629 670.41666 670.73615 677.35214 682.47259 680.40158 686.65088 694.91907 695.01497 699.45908 705.01325 692.39885 691.58396 686.89767 693.52192 684.19211 677.3194 661.73269 681.12618 682.86649 678.14703 677.16558 680.69632 676.53337 668.03667 668.97155 666.98498 661.76808 667.50585 666.06849 670.68352 667.93756 673.30419 687.39311 688.37189 671.79872 677.22114 693.12414 698.4465 687.64631 687.61812 679.51819 685.70631 690.25711 696.94325 705.98803 708.31175 720.88209 717.75784 717.55138 716.99835 716.65894 713.41968 729.40358 733.9712 723.67358 729.87932 736.03188 732.64932 728.98133 731.63834 734.6898 737.88677 740.78089 741.90176 738.40627 736.92209 737.36337 732.89592 733.55081 738.51387 741.46149 736.41252 735.99137 734.26023 734.85552 730.46576 729.38976 739.7233 736.24305 733.40158 736.50854 733.27274 731.06448 727.84077 730.40812 729.59849 731.9837 727.2243 723.33322 728.46526 721.99641 729.75831 736.52441 733.60152 737.86398 738.99614 740.62804 742.35983 736.59008 739.67615 739.77171 746.85967 734.762 725.37503 735.5332 733.90288 725.90513 715.5104 720.74408 718.75698 719.95689 716.1199 718.00358 727.08914 722.45696 726.53179 731.11631 731.65889 728.91337
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