Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3.720 50.019 93.129 138.979 208.464 307.849 411.588 467.842 535.263 604.149 679.767 705.363 750.346 776.514 804.579 850.324 871.033 926.949 991.705 1.019.102 1.066.156 1.108.789 1.182.719 1.182.522 1.197.875 1.222.159 1.232.595 1.275.583 1.289.095 1.297.587 1.264.780 1.278.115 1.269.744 1.299.313 1.338.204 1.309.497 1.265.779 1.219.256 1.186.288 1.129.329 1.067.917 1.015.314 943.447 915.833 918.935 954.777 1.032.889 1.103.345 1.211.498 1.241.914 1.305.909 1.371.108 1.442.409 1.546.070 1.576.103 1.598.671 1.639.028 1.686.467 1.694.438 1.725.652 1.762.676 1.761.370 1.764.242 1.720.878 1.687.746 1.678.328 1.676.453 1.682.564 1.694.591 1.772.547 1.751.338 1.744.670 1.786.945 1.749.868 1.742.377 1.676.310 1.653.733 1.560.218 1.480.074 1.428.446 1.403.511 1.347.614 1.315.340 1.270.665 1.258.422 1.196.657 1.166.989 1.103.117 1.074.472 999.209 910.928 906.044 868.716 821.639 768.862 754.739 684.809 655.563 657.402 633.389
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