Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
547.084 639.842 770.730 911.599 971.249 925.102 906.046 1.006.991 1.013.942 991.188 819.356 793.778 601.962 685.640 785.923 954.888 1.029.140 972.811 951.330 1.012.865 1.005.502 987.489 828.421 817.308 625.827 683.491 848.657 978.027 1.019.467 980.306 992.574 1.080.411 1.047.988 1.023.560 871.245 824.793 645.999 736.888 874.488 992.614 1.107.708 955.938 1.024.122 1.081.598 1.028.158 1.006.457 826.725 839.116 591.481 671.244 788.395 912.291 987.428 873.452 952.046 1.037.521 958.597 965.368 780.741 814.377 594.739 668.940 815.882 928.023 1.025.552 945.840 1.020.639 1.109.899 1.033.403 1.050.530 840.420 820.378 609.379 678.402 889.241 998.445 1.054.502 1.076.699 1.093.802 1.134.793 1.054.084 1.068.675 857.337 855.380
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