Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
12.06426712 12.06577556 12.05328853 12.06744256 12.06875122 12.07505238 12.07209544 12.05634218 12.0513468 12.04096213 12.07013264 12.06531521 12.06351204 12.06076938 12.04534623 12.0594097 12.06115669 12.06502738 12.05779883 12.05474963 12.05506369 12.04060821 12.0662242 12.05703885 12.05273497 12.01333099 11.99086626 11.98773005 11.99822403 11.98408468 11.95012177 11.94537649 11.92168514 11.86854886 11.91813721 11.91817055 11.88153293 11.87631084 11.8570115 11.87839463 11.8867623 11.87254906 11.84268235 11.84368139 11.80284503 11.80914102 11.86258889 11.85433549 11.83534949 11.83751307 11.85058985 11.89679915 11.93313468 11.95382206 11.97686072 11.9848772 11.96836733 11.98380996 12.02826688 12.02950252 12.01007601
Data Y:
1.3 1.3 1.2 1.1 1.4 1.2 1.5 1.1 1.3 1.5 1.1 1.4 1.3 1.5 1.6 1.7 1.1 1.6 1.3 1.7 1.6 1.7 1.9 1.8 1.9 1.6 1.5 1.6 1.6 1.7 2 2 1.9 1.7 1.8 1.9 1.7 2 2.1 2.4 2.5 2.5 2.6 2.2 2.5 2.8 2.8 2.9 3 3.1 2.9 2.7 2.2 2.5 2.3 2.6 2.3 2.2 1.8 1.8 2
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