Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
72 70 90 81 80 40 49 80 90 86 100 40 100 75 83 100 77 55 97 60 40 100 100 59 65 91 100 85 62 68 75 80 80 34 42 94 85 95 90 80 61 65 73 81 40 90 95 67 90 90 90 85 91 100 60 100 90 85 81 80 45 90 93 75 80 85 70 80 96 62 82 50 75 59 78 95 70 80 75 95 70 90 59 16 60 87 80 70 80 100 100 81 49 75 70 91 75 85 84 100 90 87 86 60 100 78 80 90 81 71 92 50 81 90 90 85 80 95 100 79 80 50 70 81 91 100 57 79 95 90 81 70 90 40 60 100 80 81 100 87 100 88 100 93 60 85 100
Data Y:
68 70 90 95 75 69 39 80 100 80 81 55 100 75 70 100 61 83 90 60 44 90 100 82 80 88 100 83 75 55 75 80 70 100 60 95 95 90 90 80 76 65 78 70 60 65 100 65 90 90 90 80 91 100 90 80 100 88 61 90 58 90 88 90 80 85 60 95 100 61 80 90 75 85 95 78 90 80 100 30 70 67 35 100 96 74 70 80 100 100 74 59 35 80 91 75 82 100 90 50 90 60 100 80 65 100 72 98 93 45 88 82 90 100 75 100 100 80 71 71 60 100 80 85 100 61 73 80 60 100 83 70 91 45 70 95 80 78 100 100 100 82 90 87 75 100
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