Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
9.741833333 9.741833333 9.551833333 9.381833333 10.05183333 13.18183333 13.15183333 12.76183333 12.01183333 11.40183333 10.87183333 10.28183333 9.531833333 9.281833333 8.861833333 8.481833333 8.121833333 7.781833333 7.461833333 7.131833333 6.401833333 5.291833333 4.411833333 3.651833333 2.941833333 1.321833333 -8.068166667 -8.768166667 -7.478166667 -3.588166667 -1.738166667 0.251833333 4.031833333 5.531833333 6.801833333 7.561833333 7.711833333 6.721833333 6.091833333 8.901833333 7.761833333 6.561833333 5.821833333 4.941833333 4.041833333 2.931833333 1.801833333 4.591833333 4.151833333 3.161833333 2.341833333 1.621833333 0.841833333 -0.118166667 -1.068166667 -2.078166667 -3.058166667 0.731833333 3.161833333 2.371833333 1.211833333 0.241833333 3.601833333 3.541833333 2.491833333 1.371833333 0.471833333 -0.638166667 -1.568166667 4.391833333 2.731833333 1.131833333 -0.118166667 -1.378166667 -2.838166667 -1.148166667 -1.498166667 -2.888166667 -4.248166667 -5.748166667 -3.148166667 -2.628166667 -2.998166667 -4.458166667 -4.788166667 -6.218166667 -7.158166667 -7.188166667 -7.528166667 -8.178166667 -9.768166667 -8.278166667 -7.738166667 -9.158166667 -9.918166667 -9.148166667 -10.58816667 -12.32816667 -10.89816667 -14.08816667 -16.87816667 -15.19816667 -17.21816667 -18.89816667 -17.07816667 -18.94816667 -15.66816667 -15.68816667 -10.09816667 -0.478166667 14.20183333 15.61183333 16.61183333 15.57183333 13.97183333 12.42183333 10.62183333 9.441833333 10.49183333 8.701833333 7.111833333 5.691833333 4.161833333 2.711833333 1.261833333 -0.028166667 -1.338166667 -2.498166667 -3.538166667 -2.048166667 -0.398166667 -1.388166667 -1.268166667 0.651833333 -1.048166667 -0.228166667 -0.888166667 -2.548166667 -4.028166667 -5.468166667 -6.948166667 -5.578166667 -1.248166667 -2.678166667 -2.608166667 -5.638166667 -6.528166667 -0.068166667 -1.758166667 -0.938166667 -1.468166667 -2.968166667 -4.518166667 -4.888166667 -4.378166667 -6.008166667 -7.758166667 -9.558166667 -7.578166667 -5.378166667 -7.068166667 -8.678166667 -10.16816667 -11.66816667 -5.378166667 -6.198166667 -7.608166667 -9.098166667 -10.37816667 -11.52816667 -10.28816667 -6.628166667 -7.788166667 -8.948166667 -10.05816667 -11.22816667 -12.72816667 -10.95816667 -11.56816667 -12.83816667 -12.83816667 -16.59816667 -18.45816667 -19.11816667 -19.76816667 -20.42816667 -24.22816667 -27.57816667 -28.13816667 -28.69816667 -29.23816667 -29.79816667 -30.29816667 -30.77816667 -31.24816667 -28.63816667 -28.30816667 -29.00816667 -29.50816667 -23.19816667 -23.74816667 -24.29816667 -24.57816667 -25.36816667 -25.83816667 -18.98816667 0.661833333 -0.508166667 -1.348166667 -0.388166667 -1.668166667 17.93183333 32.13183333 34.74183333 34.47183333 30.39183333 28.42183333 27.52183333 25.44183333 24.66183333 27.69183333 24.31183333 22.35183333 18.69183333 17.22183333 13.97183333 14.09183333 14.00183333 7.691833333 10.29183333 9.841833333 6.901833333 7.651833333 6.491833333 9.191833333 24.98183333 26.91183333 29.44183333 29.48183333 21.72183333 16.91183333 35.90183333 79.79183333 69.84183333 94.35183333 94.41183333 55.17183333 48.48183333 43.64183333 37.91183333 32.94183333 40.31183333 40.09183333 47.11183333 32.05183333 33.73183333 22.24183333 20.67183333 21.66183333 20.43183333 12.01183333 10.37183333 15.80183333 16.88183333 15.66183333 12.75183333 13.92183333 12.44183333 10.81183333 10.87183333 4.901833333 2.351833333 -1.848166667 -1.878166667 6.961833333 19.19183333 9.941833333 4.851833333 5.941833333 1.771833333 0.621833333 -4.768166667 -5.088166667 -9.078166667 -9.918166667 -8.778166667 -7.468166667 -8.988166667 -12.23816667 -18.57816667 -18.36816667 -15.16816667 -11.25816667 -21.91816667 -22.30816667 -21.68816667 -20.78816667 -26.64816667 -23.65816667 -24.58816667 -22.45816667 -23.92816667 -18.75816667 -15.68816667 -21.62816667 -24.21816667 -31.12816667 -32.96816667 -27.53816667 -27.53816667 -24.17816667 -31.30816667 -27.08816667 -28.46816667 -31.68816667 -29.08816667 -27.57816667 -31.00816667 -27.02816667 -29.95816667 -29.48816667 -30.69816667 -29.86816667 -28.37816667 -21.99816667 -21.71816667 -19.31816667 -21.34816667 -19.76816667 -14.34816667 -22.77816667 -21.79816667 -14.99816667 -16.14816667 -7.938166667 1.691833333 2.461833333 16.14183333 30.09183333 22.64183333 19.76183333 12.91183333 3.101833333 3.041833333 -1.718166667 8.051833333 11.81183333 11.88183333 27.19183333 17.78183333 11.73183333 12.90183333 9.431833333 2.441833333 3.681833333 9.811833333 6.101833333 4.681833333 16.86183333 24.64183333
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