Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
14.3 14.2 15.9 15.3 15.5 15.1 15 12.1 15.8 16.9 15.1 13.7 14.8 14.7 16 15.4 15 15.5 15.1 11.7 16.3 16.7 15 14.9 14.6 15.3 17.9 16.4 15.4 17.9 15.9 13.9 17.8 17.9 17.4 16.7 16 16.6 19.1 17.8 17.2 18.6 16.3 15.1 19.2 17.7 19.1 18 17.5 17.8 21.1 17.2 19.4 19.8 17.6 16.2 19.5 19.9 20 17.3
Data Y:
15.89 16.93 20.28 22.52 23.51 22.59 23.51 24.76 26.08 25.29 23.38 25.29 28.42 31.85 30.1 25.45 24.95 26.84 27.52 27.94 25.23 26.53 27.21 28.53 30.35 31.21 32.86 33.2 35.73 34.53 36.54 40.1 40.56 46.14 42.85 38.22 40.18 42.19 47.56 47.26 44.03 49.83 53.35 58.9 59.64 56.99 53.2 53.24 57.85 55.69 55.64 62.52 64.4 64.65 67.71 67.21 59.37 53.26 52.42 55.03
Name of dataseries x
Source of x
Description of x
Name of dataseries y
Source of y
Description of y
Chart options
Label y-axis:
Label x-axis:
R Code
bitmap(file='test1.png') op <- par(mfrow=c(2,2)) plot(x,type='b',main='Plot of x',xlab=xlab,ylab=ylab) plot(y,type='b',main='Plot of y',xlab=xlab,ylab=ylab) hist(x) hist(y) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Bivariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries x',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source of x',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description of x',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries y',header=TRUE) a<-table.element(a,par4) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source of y',header=TRUE) a<-table.element(a,par5) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description of y',header=TRUE) a<-table.element(a,par6) 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