Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1120400 1118600 1120100 1117300 1117700 1118300 1117000 1116900 1111900 1111800 1109500 1106400 1105100 1103600 1102500 1102100 1101800 1100200 1098100 1097300 1109900 1109700 1108100 1101400 1101400 1099900 1102000 1101500 1101200 1099500 1098200 1096500 1098300 1097500 1095400 1090300 1090300 1090400 1086600 1086400 1083000 1081400 1080300 1079200 1083800 1083700 1078700 1075500 1074000 1073000 1073000 1072000 1069000 1064000 1063000 1062000 1056000 1056000 1052000 1052000
Name of dataseries
Source
Description
Season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
bitmap(file='test1.png') plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab) 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