Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
9.166456 7.970589 7.104091 6.621064 7.529215 8.170938 8.15745 7.378962 7.921496 8.15674 8.856365 8.817177 8.734347 9.345927 8.99297 10.78512 8.886867 8.818847 8.823744 9.165298 8.652657 8.173054 7.563416 7.595809 8.381467 7.216432 6.540178 6.238914 5.487288 5.759462 5.993215 7.474726 7.348907 7.303379 7.119314 6.99378 6.958153 7.595706 8.088153 7.555753 7.315433 7.893427 8.858794 8.839367 8.014733 7.873465 8.930377 10.50055 12.61144 11.41787 11.87249 11.06082 12.04331 9.776299 9.557194 9.20259 10.22402 9.350807 8.300913 8.365779 8.133595 7.66047 8.074839 7.848597 7.99822 7.396895 7.900419 8.1005 7.899453 7.599783 8.100929 9.002175 10.2989 10.10152 10.69915 9.69814 9.800951 10.90047 10.69785 9.297252 10.39744 10.90072 12.90127 13.09906 11.69828 11.09987 11.30157 10.70211 10.09931 9.591119
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation