Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
51.442 45.594 52.518 48.564 41.745 49.585 32.747 33.379 35.645 37.034 35.681 20.972 58.552 54.955 65.540 51.570 51.145 46.641 35.704 33.253 35.193 41.668 34.865 21.210 56.126 49.231 59.723 48.103 47.472 50.497 40.059 34.149 36.860 46.356 36.577 23.872 57.276 56.389 57.657 62.300 48.929 51.168 39.636 33.213 38.127 43.291 30.600 21.956 48.033 46.148 50.736 48.114 38.390 44.112 36.287 30.333 35.908 40.005 35.263 26.591 49.771 47.882 64.830 57.846 48.188 54.400 39.778 37.772 37.214 43.829 40.701 29.450 53.597 53.588 64.172 53.955 55.509 48.908 35.331 38.073 41.776 42.717 40.736 49.020
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
par4 <- '12' par3 <- '' par2 <- '' par1 <- '' 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