Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
90 80 100 96 100 91 81 80 100 94 100 80 100 90 100 100 100 90 97 90 86 100 100 82 90 94 100 95 100 88 80 81 100 100 100 100 95 100 90 90 100 85 98 91 90 70 100 83 100 100 100 100 100 100 86 100 100 100 100 100 76 100 100 100 100 80 100 100 100 89 100 90 90 95 95 99 90 90 100 100 90 100 81 100 100 98 96 90 90 100 100 88 73 85 100 100 99 90 100 100 100 91 96 80 100 85 90 100 94 95 96 80 100 82 90 100 90 100 100 94 90 79 95 100 91 100 100 76 87 95 71 100 100 100 92 93 80 100 80 90 100 100 100 99 85 100 100 85 100 100
Data Y:
32 30 60 67 40 59 61 20 30 51 80 70 10 55 87 90 57 90 72 20 19 70 61 53 81 75 65 71 39 60 50 60 41 37 35 70 80 70 60 60 60 72 69 30 50 80 56 80 60 50 65 80 37 71 70 49 61 90 17 50 73 70 20 45 80 70 90 58 90 60 78 31 80 70 65 30 71 50 20 55 38 90 86 65 70 70 100 80 39 62 75 60 86 53 74 69 50 65 44 80 20 70 28 40 60 81 59 64 55 69 70 80 50 55 50 70 22 50 46 60 71 60 91 80 56 86 70 80 74 65 91 50 90 79 60 60 100 67 50 83 80 70 87 51 60 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