Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
100.3 101.9 102.1 103.2 103.7 106.2 107.7 109.9 111.7 114.9 116.0 118.3 120.4 126.0 128.1 130.1 130.8 133.6 134.2 135.5 136.2 139.1 139.0 139.6 138.7 140.9 141.3 141.8 142.0 144.5 144.6 145.5 146.8 149.5 149.9 150.1 150.9 152.8 153.1 154.0 154.9 156.9 158.4 159.7 160.2 163.2 163.7 164.4 163.7 165.5 165.6 166.8 167.5 170.6 170.9 172.0 171.8 173.9 174.0 173.8 173.9 176.0 176.6 178.2 179.2 181.3 181.8 182.9 183.8 186.3 187.4 189.2 189.7 191.9 192.6 193.7 194.2 197.6 199.3 201.4 203.0 206.3 207.1 209.8 211.1 215.3 217.4 215.5 210.9 212.6
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