Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
25 24 21 23 17 19 18 27 23 23 29 21 26 25 25 23 26 20 29 24 23 24 30 22 22 13 24 17 24 21 23 24 24 24 23 26 24 21 23 28 23 22 24 21 23 23 20 23 21 27 12 15 22 21 21 20 24 24 29 25 14 30 19 29 25 25 25 16 25 28 24 25 21 22 20 25 27 21 13 26 26 25 22 19 23 25 15 21 23 25 24 24 21 24 22 24 28 21 17 28 24 10 20 22 19 22 22 26 24 22 20 20 15 20 20 24 22 29 23 24 22 16 23 27 16 21 26 22 23 19 18 24 24 29 22 24 22 12 26 18 22 24 21 15 23 22 22 24 23 13
Data Y:
13 16 19 15 14 13 19 15 14 15 16 16 16 17 15 15 20 18 16 16 19 16 17 17 16 15 14 15 12 14 16 14 7 10 14 16 16 16 14 20 14 14 11 15 16 14 16 14 12 16 9 14 16 16 15 16 12 16 16 14 16 17 18 18 12 16 10 14 18 18 16 16 16 13 16 16 20 16 15 15 16 14 15 12 17 16 15 13 16 16 16 16 14 16 16 20 15 16 13 17 16 12 16 16 17 13 12 18 14 14 13 16 13 16 13 16 15 16 15 17 15 12 16 10 16 14 15 13 15 11 12 8 16 15 17 16 10 18 13 15 16 16 14 10 17 13 15 16 12 13
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