Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-8 -9 -5 -1 -2 -5 -4 -6 -2 -2 -2 -2 2 1 -8 -1 1 -1 2 2 1 -1 -2 -2 -1 -8 -4 -6 -3 -3 -7 -9 -11 -13 -11 -9 -17 -22 -25 -20 -24 -24 -22 -19 -18 -17 -11 -11 -12 -10 -15 -15 -15 -13 -8 -13 -9 -7 -4 -4 -2 0 -2 -3 1 -2 -1 1 -3 -4 -9 -9 -7 -14 -12 -16 -20 -12 -12 -10 -10 -13 -16 -14 -17 -24 -25 -23 -17 -24 -20 -19 -18 -16 -12 -7 -6 -6 -5 -4 -4 -8 -9 -6 -7 -10 -11 -11 -12 -14 -12 -9 -5 -6 -6 -3 -2 -6 -6 -10
Data Y:
8.5 8.4 8.5 8.7 8.7 8.6 8.5 8.3 8 8.2 8.1 8.1 8 7.9 7.9 8 8 7.9 8 7.7 7.2 7.5 7.3 7 7 7 7.2 7.3 7.1 6.8 6.4 6.1 6.5 7.7 7.9 7.5 6.9 6.6 6.9 7.7 8 8 7.7 7.3 7.4 8.1 8.3 8.1 7.9 7.9 8.3 8.6 8.7 8.5 8.3 8 8 8.8 8.7 8.5 8.1 7.8 7.7 7.5 7.2 6.9 6.6 6.5 6.6 7.7 8 7.7 7.3 7 7 7.3 7.3 7.1 7.1 7 7 7.5 7.8 7.9 8.1 8.3 8.4 8.6 8.5 8.4 8.3 8 8 8.7 8.7 8.6 8.5 8.5 8.6 8.8 8.7 8.6 8.4 8.1 8.1 8.7 8.7 8.6 8.6 8.5 8.6 8.8 8.8 8.7 8.5 8.3 8.3 8.9 9 8.8
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