Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
153.4 159.5 157.4 169.1 172.6 161.7 159.2 157.4 153.9 144.8 142.2 140.1 143.4 153.3 166.9 170.6 182.8 170.3 156.6 155.2 154.7 151.6 152.1 153.2 149.5 149.7 144.3 140 137.8 132.2 128.9 123.1 120.4 122.8 126 124.5 120.6 114.7 111.7 109.1 108 107.7 99.9 103.7 103.4 103.4 104.7 105.8 105.3 103 103.8 103.4 105.8 101.4 97 94.3 96.6 97.1 95.7 96.9 97.4 95.3 93.6 91.5 93.1 91.7 94.3 93.9 90.9 88.3 91.3 91.7 92.4 92 95.6 95.8 96.4 99 107 109.7 116.2 115.9 113.8 112.6 113.7 115.9 110.3 111.3 113.4 108.2 104.8 106 110.9 115 118.4 121.4 128.8 131.7 141.7 142.9 139.4 134.7 125 113.6 111.5 108.5 112.3 116.6 115.5 120.1 132.9 128.1 129.3 132.5 131 124.9 120.8 122 122.1 127.4 135.2 137.3 135 136 138.4 134.7 138.4 133.9 133.6 141.2 151.8 155.4 156.6 161.6 160.7 156 159.5 168.7 169.9 169.9 185.9
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) grid() dev.off() if (par2 > 0) { bitmap(file='lagplot.png') dum <- cbind(lag(x,k=1),x) dum dum1 <- dum[2:length(x),] dum1 z <- as.data.frame(dum1) z plot(z,main=paste('Lag plot, lowess, and regression line')) lines(lowess(z)) abline(lm(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