Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0 -1.948342641 -1.359385149 1.357954964 -1.700694682 1.449969008 1.319038156 2.051491606 -0.133535063 1.037244962 0.631422616 -1.637925413 -0.867991129 -1.07958031 -0.672654982 -1.05064355 0.333390996 0.487322267 -0.570817054 -0.499534007 0.115264994 1.74691902 0.739021637 0.738226066 -0.412999274 -1.583363411 -0.181363817 0.105418964 -0.463545968 -1.216121966 1.640603862 -0.052871366 1.523685005 1.083344688 -0.469412704 0.721118803 -0.943920679 -0.52258191 0.359348877 -0.247868669 0.562507598 0.648148736 -1.270108506 -0.447026313 1.78025952 0.731000414 1.581054158 -0.098455366 -0.585819713 0.397301065 0.096307367 -1.033663768 -0.793451127 0.871673984 0.803259829 1.249946587 -0.295993913 -1.450053283 0.767875716 0.609240092 0.933296633 -0.679282808 -1.196592669 0.418815652 -0.181297827 0.432789884 -0.06594299 1.739802997 0.328406732 0.120753615 -0.369205393 0.79144574 0.866899133 0.074081225 -2.264885838
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