Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
10406 11398 14117 10785 10334 12371 7918 9907 12855 11579 9788 8786 12231 13604 15107 10853 13698 11536 8879 11005 13656 12631 10931 8064 12332 12452 14029 10003 12388 10492 9114 9304 9660 10569 8356 5998 10408 11420 11538 10860 10412 9521 7602 8197 10449 11561 8603 8080 10792 11943 11179 9939 10065 11021 9226 9554 11468 9937 8928 8395 11996 12385 15277 12657 11482 16797 11047 11794 13077 11725 10921 9334 11431 13085 16394 15701 14936 18282 12824 14784 16061 14814 14375 13644 16397 19254 21943 16731 22065 20937 18242 19017 20372 20561 18267 16170 23163 22469 26500 23660 23339 26174 24617 23891 23516 25638 21258 17436 26210 25227 21928 25452 22578 23904 20842 21042 24890 23126 16951 16972 19985 19296 21078 19493 18821 19657 15678 16406 18264 18288 15179 15443 19306 19094 25673 20077 21698 25943 19778 21333 25222 24512 20126
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