Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-999.00 6.30 -999.00 -999.00 2.10 9.10 15.80 5.20 10.90 8.30 11.00 3.20 7.60 -999.00 6.30 8.60 6.60 9.50 4.80 12.00 -999.00 3.30 11.00 -999.00 4.70 -999.00 10.40 7.40 2.10 -999.00 -999.00 7.70 17.90 6.10 8.20 8.40 11.90 10.80 13.80 14.30 -999.00 15.20 10.00 11.90 6.50 7.50 -999.00 10.60 7.40 8.40 5.70 4.90 -999.00 3.20 -999.00 8.10 11.00 4.90 13.20 9.70 12.80 -999.00
Data Y:
-999.00 2.00 -999.00 -999.00 1.80 0.70 3.90 1.00 3.60 1.40 1.50 0.70 2.70 -999.00 2.10 0.00 4.10 1.20 1.30 6.10 0.30 0.50 3.40 -999.00 1.50 -999.00 3.40 0.80 0.80 -999.00 -999.00 1.40 2.00 1.90 2.40 2.80 1.30 2.00 5.60 3.10 1.00 1.80 0.90 1.80 1.90 0.90 -999.00 2.60 2.40 1.20 0.90 0.50 -999.00 0.60 -999.00 2.20 2.30 0.50 2.60 0.60 6.60 -999.00
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