Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
38 6 32 69 106 98 21 68 25 21 35 74 7 127 69 134 51 98 107 32 74 53 14 146 13 25 146 104 180 86 74 10 102 28 47 29 22 60 21 133 98 43 76 45 24 42 64 67 56 37 92 139 99 92 62 40 33 51 90 87 61 49 114 67 56 89 144 39 40 19 173 82 35 49 101 103 116 141 138 55 40 30 144 183 41 83 113 64 61 40 103 12 2 13 219 41 46 38 54 47 60 128 99 49 64 182 260 122 1149 31 16 84 99 63 49 43 11 80 156 308 269 1209 49 19 102 117 29 11 46 152 123 8 273 227 1156 23 18 56 85 32 52 24 113 20 16 29 216 36 10 88 24 41 34 47 12 27 39 52 230 16 19 65 58 36 19 19 20 7 9 42 474 69 19 91 68 39 17 6 9 18 3 52 205 25 34 66 139 30 12 13 6 34 4 33 273
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