Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
103.7 103.2 102.88 102.86 102.86 102.9 102.81 102.77 102.61 102.61 102.61 102.58 102.65 102.31 101.95 101.75 101.75 101.74 101.63 101.61 101.23 101.15 101.15 101.13 101.01 100.35 100.22 100.19 100.19 100.19 100.42 99.97 100.13 100.12 87.89 87.59 87.45 87.49 87.49 87.25 86.62 86.63 86.24 86.28 86.28 86.19 86.26 86.41 86.8 86.79 86.79 86.93 86.72 86.51 86.44 86.29 86.29 86.36 86.43 86.33 86.36 86.65 86.65 86.61 86.85 86.91 86.84 86.82 69.52 69.33 68.41 68.47 68.46 68.37 68.21 68.22 67.96 68.12 68.12 68.13 68.1 68.01 67.8 67.88 67.88 67.83 67.87 67.85 67.75 67.86 67.86 67.7 68.05 67.68 67.49 67.29 67.29 67.41 67.61 67.63 67.89 68.03 86.55 86.26 86.06 86.04 86.04 85.89 86.08 85.93 85.9 85.9 85.9 85.79 85.77 85.45 84.93 84.93 84.93 84.89 84.95 84.67 84.45 84.44 84.44 84.35 84.17 83.87 83.71 83.64 83.64 83.66 83.26 83.33 83.37 83.34 133.05 132.53 131.6 131.6 131.6 130.85 130.89 130.85 130.65 130.65 130.65 130.39 130.37 128.53 126.7 126.7 126.7 126.82 127.26 126.87 126.57 126.39 126.39 126.13 125.98 123.02 122.49 121.83 121.83 121.73 122.23 121.91 122.03 122.14 68.67 68.5 68.27 68.27 68.27 68.35 68.21 68.25 68.7 68.75 68.75 68.77 68.81 68.76 68.59 68.59 68.59 68.67 68.83 68.99 68.91 68.89 68.89 68.93 68.89 69.18 68.74 68.89 68.89 68.88 68.84 68.96 68.75 68.71 72 71.65 71.28 71.27 71.27 71.28 71.17 71.16 71.1 71.06 71.06 70.98 70.73 69.44 69.06 69.06 69.06 69.13 69.29 69.18 69.18 69.2 69.2 69.13 68.97 68.42 68.24 68.12 68.12 68.1 68 67.94 68.16 68.14
Name of dataseries
Source
Description
Season
12
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
if (par4 != 'No season') { par4 <- as.numeric(par4) if (par4 < 4) par4 <- 12 } summary(x) n <- length(x) bitmap(file='test1.png') if (par4=='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,10)) } if (par4!='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,par4)) grid(nx=0,ny=NULL,col='black') abline(v=seq(1,n,par4),col='black',lty='dotted') } dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Univariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of observations',header=TRUE) a<-table.element(a,length(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